2016 Update

Task/Anonymous-recursion/Elena/anonymous-recursion.elena

@@ -1,13 +1,20 @@
-#define system.
-#define extensions.
+#import system.
+#import extensions.
 
-#symbol fibo = (:n)
-[
-    (n < 0)
-        ? [ #throw InvalidArgumentException new &message:"Must be non negative". ].
+#class(extension)mathOp
+{
+    #method fib
+    [
+        (self < 0)
+            ? [ #throw InvalidArgumentException new &message:"Must be non negative". ].
 
-    ^ { eval:n [ ^ (n > 1) ? [ ($self:(n - 2)) + ($self:(n - 1)) ] ! [ n ]. ] }:n.
-].
+        ^ control eval:self &for:
+            (:n)
+                [
+                    (n > 1) ? [ this eval:(n - 2) + this eval:(n - 1) ] ! [ n ]
+                ].
+    ]
+}
 
 #symbol program =
 [
@@ -15,7 +22,7 @@
     [
         console writeLiteral:"fib(":i:")=".
 
-        console writeLine:(fibo:i) | if &InvalidArgumentError: e
+        console writeLine:(i fib) | if &InvalidArgumentError: e
             [
                 console writeLine:"invalid".
             ].