langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Anonymous-recursion/Perl-6/anonymous-recursion-1.pl6
+++ b/Task/Anonymous-recursion/Perl-6/anonymous-recursion-1.pl6
@ -0,0 +1,10 @@
+sub fib($n) {
+    die "Naughty fib" if $n < 0;
+    return {
+        $_ < 2
+            ?? $_
+            !!  &?BLOCK($_-1) + &?BLOCK($_-2);
+    }($n);
+}
+
+say fib(10);
--- a/Task/Anonymous-recursion/Perl-6/anonymous-recursion-2.pl6
+++ b/Task/Anonymous-recursion/Perl-6/anonymous-recursion-2.pl6
@ -0,0 +1,2 @@
+constant @fib = 0, 1, *+* ... *;
+say @fib[10];