Concurrent Clean : ポイントフリーゲーム
次はこいつだ!!
[id:ha-tan:20061021:1161442240]
s f g a :== f a (g a) cons a aa :== [a:aa] ifNil [] _ = [] ifNil _ a = a groupn = s ifNil o flip (s (s o ((o) cons o flip take)) (s groupn o flip drop)) Start = groupn 3 [1..10]