Merge files t1 and myfibo

Add the slide number too

myfibo.hs

@@ -1,3 +1,18 @@
+-- Slide 15
+
+
+-- Fibonacci recursive
+
 fibo 0 = 1
 fibo 1 = 1
+
 fibo n = fibo (n - 2) + fibo (n - 1)
+
+
+-- Fibonacci terminal
+
+f n = ft n 1
+
+ft n acc = case n of
+	0 -> acc
+	_ -> ft (n - 1) (acc * n)

t1.hs

@@ -1,8 +0,0 @@
-f n = ft n 1
-
-ft n acc = case n of
-	0 -> acc
-	_ -> ft (n - 1) (acc * n)
-
-main :: IO ()
-main = print ( f 5 )