朝の時点で動くようになっていた。 先ほど、チェックインした。 - こんな感じで書ける。 Start w # (f,w) = stdio w (n,f) = for f fwrites "how many? " ? True,i <- freadi fwrites (toString ['a' \\ _ <- [1..i]]) $> newline return 1 except _ _ retur…

一応作ってみたが、有理数演算になっていないのでだめだった。実行時間は１秒程度らしい。 module Main extension for-notation import StdBase, OptEnv import StdDebug Start w # a = problems 8 |> (\a = zip2 a $ map calc a) |> filter (\(_,x) = x == …