Concurrent Clean : ガード
下で紹介した「\|」演算子ですが、「?|」の方がいいような気がしてきた。
こんな感じ。どう?
Start w # (f,w) = stdio w # f = f --> ([0..10] --> map fwritei --> flip interleave $ repeat $ fwrites "\n" ?| False --> reelU) # (ok, w) = fclose f w = w (?|) infixl 1 (?|) f p :== if p f id