ã§ããã¼ãå¤ããã£ãã«ã«æãè¾¼ãã¨ãã¯ããã£ã¡ãåãæ¸ãã»ããç¡é£ã¿ããã§ãã module Main where import PiMonad hiding (piStart) import PiMonad.IO.Console import PiMonad.Channel import PiMonad.Network main = piStart False Nothing mainPr mainPr :: Maybe (I (), NewP) -> PiMonad () mainPr _ = do s <- new fork $ fib 10 s s'<- recv s cout <!. show s' exit <! (0::Int) fib :: Int -> L Priv Int -> PiMonad () fib n s | n < 1 = s <! (1::Int) | o
{{#tags}}- {{label}}
{{/tags}}