langs a-z

Task/Fibonacci-sequence/Nemerle/fibonacci-sequence-1.nemerle

@@ -0,0 +1,18 @@
+using System;
+using System.Console;
+
+module Fibonacci
+{
+    Fibonacci(x : long) : long
+    {
+        |x when x < 2 => x
+        |_ => Fibonacci(x - 1) + Fibonacci(x - 2)
+    }
+
+    Main() : void
+    {
+        def num = Int64.Parse(ReadLine());
+        foreach (n in $[0 .. num])
+            WriteLine("{0}: {1}", n, Fibonacci(n));
+    }
+}

Task/Fibonacci-sequence/Nemerle/fibonacci-sequence-2.nemerle

@@ -0,0 +1,13 @@
+Fibonacci(x : long, current : long, next : long) : long
+{
+    match(x)
+    {
+        |0 => current
+        |_ => Fibonacci(x - 1, next, current + next)
+    }
+}
+
+Fibonacci(x : long) : long
+{
+    Fibonacci(x, 0, 1)
+}