18/12/05 18:56:07.81 ifntcr/4.net
こっちはHaskell
main = do
mapM_ (\_ -> hello str) [1..]
hello [] = return ()
hello (s:ss) = do
putStrLn (s:ss)
mapM_ (\_ -> putStr "") [1..50000]
hello ss
str = "Hello World!! "
18/12/05 18:56:07.81 ifntcr/4.net
こっちはHaskell
main = do
mapM_ (\_ -> hello str) [1..]
hello [] = return ()
hello (s:ss) = do
putStrLn (s:ss)
mapM_ (\_ -> putStr "") [1..50000]
hello ss
str = "Hello World!! "