| sure, I'm not telling anybody anything new, but I find it so essential ... (def mapa-b (f a b (o st 1))
(accum acc
(while (<= a b) (acc (f a)) (++ a st))))
(def map0-n (f n) (mapa-b f 0 n))
(def map1-n (f n) (mapa-b f 1 n))
use: (mapa-b idfn 10 20), (map0-n [cos (* 0.31415 _)] 10)have fun. pingi. |
