mainの中でmkStdGenするぎりぎりまでIOモナドで包まない、ってのにチャレンジしてみた。 import Random dice :: (RandomGen g) => g -> (Int, g) dice g = randomR (1, 6) g dice_seq :: (RandomGen g) => g -> [Int] dice_seq g = let first_result = dice …

Twitterから転載 乗換駅を乗り過ごす 別の駅で乗り換えることにする 気がつくとその駅についてすでにドアが開いている 慌てる 考え事していたら乗換駅についていて、あわてて近くの手すりにかかっていたビニール傘をもって外にでたら、自分の左肘にも同じビ…