Data commit

Task/Fibonacci-sequence/Oz/fibonacci-sequence-1.oz

@@ -0,0 +1,12 @@
+fun{FibI N}
+  Temp = {NewCell 0}
+  A = {NewCell 0}
+  B = {NewCell 1}
+in
+  for I in 1..N do
+    Temp := @A + @B
+    A := @B
+    B := @Temp
+  end
+  @A
+end

Task/Fibonacci-sequence/Oz/fibonacci-sequence-2.oz

@@ -0,0 +1,5 @@
+fun{FibR N}
+  if N < 2 then N
+  else {FibR N-1} + {FibR N-2}
+  end
+end

Task/Fibonacci-sequence/Oz/fibonacci-sequence-3.oz

@@ -0,0 +1,11 @@
+fun{Fib N}
+   fun{Loop N A B}
+      if N == 0 then
+	 B
+      else
+	 {Loop N-1 A+B A}
+      end
+   end
+in
+   {Loop N 1 0}
+end

Task/Fibonacci-sequence/Oz/fibonacci-sequence-4.oz

@@ -0,0 +1,20 @@
+declare
+  fun lazy {FiboSeq}
+     {LazyMap
+      {Iterate fun {$ [A B]} [B A+B] end [0 1]}
+      Head}
+  end
+
+  fun {Head A|_} A end
+
+  fun lazy {Iterate F I}
+     I|{Iterate F {F I}}
+  end
+
+  fun lazy {LazyMap Xs F}
+     case Xs of X|Xr then {F X}|{LazyMap Xr F}
+     [] nil then nil
+     end
+  end
+in
+  {Show {List.take {FiboSeq} 8}}