Concurrent Clean : 各要素が「0または1をとる乱数」から成る長さnのリストを得よ。

CleanJの切りも良いので、ちょっと息抜き。

import StdEnv, OptEnv, MersenneTwister

Start = mbrl 10 1

//make binary random list
mbrl n seed = take n $ map (\x = (abs x) rem 2) $ genRandInt seed

乱数種を与える方法として、OptEnvライブラリでrandSeedという関数を用意しているので、それを使ってもいいです。（ただ、参照透過でない関数なので、使うのはちょっと気が引ける）