Clojure lazy-seq дает мне ArithmeticException

Question

Я пытаюсь повторно реализовать свою пользовательскую функцию карты, но это работает странным образом. Может кто-нибудь объяснить, почему это происходит?

(defn my-map [f coll] 
    (lazy-seq 
    (when-let [s (seq coll)] 
    (cons (f (first s)) (my-map f (rest s)))))) 

(take 10 (my-map inc (range))) 

(take 10 (->> [0 1] 
       (iterate (fn [[a b]] [b (+ a b)])) 
       (my-map first))) 

Первое взятие работает, как ожидалось, но вторая дает мне следующее сообщение об ошибке (выглядит она все оценки последовательности):

java.lang.ArithmeticException: integer overflow 
    Numbers.java:1388 clojure.lang.Numbers.throwIntOverflow 
    Numbers.java:1687 clojure.lang.Numbers.add 
    Numbers.java:430 clojure.lang.Numbers$LongOps.add 
    Numbers.java:126 clojure.lang.Numbers.add 

Answer 1

Вы правы, это lighttable ошибка. Вы должны войти его here

Следующая работа в lighttable без проблем

(->> [0 1] 
    (iterate (fn [[a b]] [b (+ a b)])) 
    (take 10) 
    (my-map first)) 

и

(take 10 (->> [0 1M] 
       (iterate (fn [[a b]] [b (+ a b)])) 
       (my-map first)))