20/05/23 01:33:43 m+h1wlWJ.net
>>324
コレは？
repMsub x = return(repeat x)
repM x = x>>=repMsub
main = do
xs<-repM (return 1)
print $ take 3 xs
20/05/23 01:33:43 m+h1wlWJ.net
>>324
コレは？
repMsub x = return(repeat x)
repM x = x>>=repMsub
main = do
xs<-repM (return 1)
print $ take 3 xs