はじめまして、ポイントフリーゲームをしてみました。 問題は、[id:n314:20061022:1161504834]から借用。 f0 a b = h (g a b)まず、関数合成演算子を用意。(StdFuncモジュールに定義されているもの） (o) infixr 9 (o) f g :== \ x -> f (g x)これを使って、…

次はこいつだ！！ [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]

http://cleanj.sourceforge.net/abc_inst.html 今日は、だいぶ進んだ。あと少しでひとまず完成。