chomado · August 29, 2015 14:08 · chomado · Nov 4, 2014
diff --git a/fib.hs b/fib.hs
 import Debug.Trace
 fib :: Num a => [a]
 fib = 0:1:(trace ("fib [" ++ show fib ++ "] + tail fib [" ++ show (tail fib) ++ "]") 
 		 (zipWith (+) fib (tail fib)))
 main = do
 	traceIO $ show $ take 10 fib
	import Debug.Trace
	fib :: Num a => [a]
	fib = 0:1:(trace ("fib [" ++ show fib ++ "] + tail fib [" ++ show (tail fib) ++ "]")
	(zipWith (+) fib (tail fib)))
	main = do
	traceIO $ show $ take 10 fib
No results found