fork download
  1. #!/usr/bin/perl
  2. sub infix:<!!>($a, $b) is tighter(&infix:<+>) {
  3. 2 * ($a + $b)
  4. }
  5.  
  6. say 1 + 2 * 3 !! 4
  7.  
Success #stdin #stdout 2.83s 207168KB
stdin
Standard input is empty
stdout
21