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/Mathematica/anonymous-recursion-1.math
+++ b/Task/Anonymous-recursion/Mathematica/anonymous-recursion-1.math
@ -0,0 +1,5 @@
+check := #<0&
+fib := If[check[#],Throw["Negative Argument"],If[#<=1,1,#0[#-2]+#0[#-1]]&[#]]&
+fib /@ Range[0,10]
+
+{1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89}