mxswd · December 21, 2015 10:09
diff --git a/gistfile1.txt b/gistfile1.txt

 main = do
  let xs = [0..1024]
  print $ foldl (\x y -> length y + x) 0 $ lsubs xs

 lsubs [] = []
 lsubs (x:xs) = (foldr (\y ys -> (x, y) : ys) [] xs) : lsubs xs

	main = do
	let xs = [0..1024]
	print $ foldl (\x y -> length y + x) 0 $ lsubs xs

	lsubs [] = []
	lsubs (x:xs) = (foldr (\y ys -> (x, y) : ys) [] xs) : lsubs xs