Concurrent Clean : for-notation : except pattern
朝の時点で動くようになっていた。
先ほど、チェックインした。
-
-
- -
-
こんな感じで書ける。
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 _ _ return -1 (_,w) = fclose f w #! w = w = (n,w)