generieren erste 10 Fibonacci-Zahlen unendlichen Strom mit

Question

Ich versuche, die ersten 10 Fibonacci-Zahlen wie folgt zu erhalten:

(take 10 (fn fibgen [a b] (cons a (fibgen b (+ a b))) 0 1)) 

Die Idee ist, dass fibgen eine faule Sequenz erzeugt (ein unendlicher Strom). Leider gibt dies den folgenden Fehler:

IllegalArgumentException Don't know how to create ISeq from:
user$eval10144$fibgen__10145 clojure.lang.RT.seqFrom (RT.java:528)

Wie kann das behoben werden?

Answer 1

Ich denke, Sie haben gerade einen Tippfehler gemacht. Hier ist, was Ihre fibgen Funktion wie neu formatiert aussieht:

(fn fibgen [a b] 
    (cons a (fibgen b (+ a b))) 
    0 
    1) 

Diese Funktion realisiert die gesamte Fibonacci-Folge, beginnend mit a und b, dann kehrt 1. Was Sie zu tun war, bedeutete eine Funktion definieren, die die Sequenz zurückgibt, Anruf mit 0 und 1, und nehmen dann die ersten zehn Elemente aus dieser Sequenz:

(take 10 ((fn fibgen [a b] (cons a (fibgen b (+ a b)))) 0 1)) 

Wenn Sie dies ausführen, erhalten Sie eine ArithmeticException für integer-Überlauf kommen, da Zahlen in der Fibonacci-Folge schnell die r verlassen Ange einer 64-Bit-Ganzzahl. Sie können dies mit +' beheben:

(take 10 ((fn fibgen [a b] (cons a (fibgen b (+' a b)))) 0 1)) 

Da Clojure nicht faul ist, wird dies versuchen, die gesamte Fibonacci-Folge zu realisieren, die eine StackOverflowError verursachen. Auch wenn Clojure selbst nicht faul ist, aber Sie können erstellen lazy sequence, die im Grunde die gleiche Wirkung in diesem Fall haben:

(take 10 ((fn fibgen [a b] (lazy-seq (cons a (fibgen b (+' a b))))) 0 1)) 
;;=> (0 1 1 2 3 5 8 13 21 34)