dl = [ x/100 | x <- [1..] ] dlの頭から、指定した値を超えないところまで合計をだす。 sumlist (x:xs) n = if x >= n then 0 else x + sumlist xs n sumlist dl 10000 とすれば9999.99までの合計がだせるはず。だけど Stack space overflow になってしまう…