kawakami-o3/gist:3609211

Created September 3, 2012 13:05

Star () You must be signed in to star a gist
Fork () You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/kawakami-o3/3609211.js"></script>
Save kawakami-o3/3609211 to your computer and use it in GitHub Desktop.

Download ZIP

Stack space overflow: current size 8388608 bytes.

Raw

gistfile1.hs

	sum :: Int -> Int
	sum = sum' 0
	where
	sum' acc n \| n<1 = acc
	\| otherwise = sum' (acc+n) (n-1)

	main = do
	putStrLn (show (Main.sum (2^24)))

Author

kawakami-o3 commented Sep 3, 2012

$ ghc main.hs && ./main
[1 of 1] Compiling Main ( main.hs, main.o )
Linking main ...
Stack space overflow: current size 8388608 bytes.
Use `+RTS -Ksize -RTS' to increase it.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment