[ create a new paste ] login | about

Link: http://codepad.org/RH882QkN    [ raw code | output | fork ]

jleedev - Haskell, pasted on Jul 10: 
1
2
3
4
5
6
7
8

import Control.Parallel

-- http://sequence.complete.org/hwn/20080709
forkbomb :: Integer -> ()
forkbomb n = forkbomb (2*n) `par` forkbomb (2*n+1)

main :: IO ()
main = print (forkbomb 1)


Output: 
1
2
3

Error occurred

ERROR - Garbage collection fails to reclaim sufficient space


Create a new paste based on this one


Comments: