並行プログラミングと継続モナド8. とりあえず実装/改良してみた • 局所的に問題を解いていくコード • すごい参考になる • IO版、Cont版作って単純ベンチマーク • VM RAM3GB • 9000clientsさばく • エラーなし • profile見たらほとんど文字列でメモリ消費してた • OOMKillerにやられた 8 9. 例: main周辺 9 main :: IO () main = withSocketsDo $ do server <- newServer sock <- listenOn (PortNumber (fromIntegral port)) forever $ do (handle, host, port) <- accept sock forkFinally (talk handle server) (_ -> hClose handle) 10. main :: IO ()
