@@ -1,25 +0,0 @@
3−-- perform a very large foldr to test tail recursion
4−addAll : (Foldable t, Num a) => t a -> a
10−numbersList : List Integer
11−numbersList = numbersList' n []
13− numbersList' : Integer -> List Integer -> List Integer
14− numbersList' 0 xs = xs
15− numbersList' k xs = numbersList' (k - 1) (fromInteger k :: xs)
17−numbersVect : Vect (length numbersList) Integer
18−numbersVect = fromList numbersList
22− putStrLn . show . addAll $ numbersVect
23− putStrLn . show . addAll $ numbersList