[id:lethevert:20060219:p1]で説明したHeap Fullエラーについて、MLで返事がきました。 http://mailman.science.ru.nl/pipermail/clean-list/2006/002968.html 先日の私の解説と大体同じですが、 Start = [0..100001]!!100000なら停止しますよ、という話は、…

[id:lethevert:20060219:p4]に、さらに便利関数を追加です。 reel :: ![(.u -> .u)] !.u -> .u reel [] u = u reel [x:xs] u = reel xs (x u) reelWhile :: ![(.u -> (Bool, .u))] .u -> .u reelWhile [] u = u reelWhile [x:xs] u # (b, u) = x u | b = ree…