horus · June 11, 2013 15:25
diff --git a/gistfile1.hs b/gistfile1.hs
 import Control.Monad.State

 half :: Int -> State [Int] Int
 half x = do
    xs <- get
    put (x:xs)
    return (x `div` 2)

 main = print $ runState (half >=> half >=> half >=> half >=> half >=> half >=> half >=> half >=> half >=> half $ 1024) []

 -- (1,[2,4,8,16,32,64,128,256,512,1024])
	import Control.Monad.State

	half :: Int -> State [Int] Int
	half x = do
	xs <- get
	put (x:xs)
	return (x `div` 2)

	main = print $ runState (half >=> half >=> half >=> half >=> half >=> half >=> half >=> half >=> half >=> half $ 1024) []

	-- (1,[2,4,8,16,32,64,128,256,512,1024])
No results found