正月の年越しに少し挑戦してみた。 let listgen_with_filter a b step filter = let rec iter c l = if c < a then l else if (filter c) then iter (c - step) (c :: l) else iter (c - step) l in iter b [] let listgen a b step = let rec iter c l = if…