more metaop

ash · Dec 27, 2016 · 361a0fc · 361a0fc
1 parent c2c71d0
commit 361a0fc
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 0 deletions.
diff --git a/metaop5.pl b/metaop5.pl
@@ -0,0 +1 @@
+say [*] 1..5;
diff --git a/metaop6.pl b/metaop6.pl
@@ -0,0 +1,11 @@
+sub infix:<pairsum>($a, $b) { 
+    state $sum = 0;
+    say "[$a + $b]";
+    $sum += $a + $b; 
+    #return $sum;
+} 
+
+#say [pairsum] 1, 2, 3; 
+#say [pairsum] 1, 2, 3; 
+
+say [pairsum] 1, 3, 5;