martintrojer · January 28, 2014 10:00
diff --git a/fibs.clj b/fibs.clj
 (defn fib-seq [b1 b2]
  (lazy-seq 
    (cons b2 (fib-seq b2 (+ b1 b2)))))

 (def fibs (fib-seq 0 1))
diff --git a/fibs.fs b/fibs.fs
 let fib n =
  let rec fib’ back1 back2 = function
    | 0 -> 0
    | 1 -> back1 + back2
    | n -> fib’ back2 (back1 + back2) (n – 1)
  fib’ 1 0 n

 List.map fib [0..10]
	let fib n =
	let rec fib’ back1 back2 = function
	\| 0 -> 0
	\| 1 -> back1 + back2
	\| n -> fib’ back2 (back1 + back2) (n – 1)
	fib’ 1 0 n

	List.map fib [0..10]