ProjectEuler Q2: Haskell Lösung wird nicht bewertet

Question

Ich lade Sie ein, das folgende Problem von Fibonacci aus project Euler zu überprüfen. Die Frage fordert die Benutzer auf, zuerst eine Fibonacci-Sequenz oder -Funktion zu erzeugen, die die n-te Fibonacci-Zahl zurückgeben kann. Ich benutzen die zipWith Lösung eine faule/unendliche Liste der Fibonacci-Zahlen zu erzeugen:

fibs = 0 : 1 : zipWith (+) fibs (tail fibs) 

Als nächstes stellt die Frage, um die Liste zu beschränken Zahlen/Werte weniger als fibonacci 4E6, und dann die geraden Zahlen summieren. Ich dachte wäre dies ein sehr einfache Liste Verständnis sein:

sum [x | x<-fibs, even x && x < (4*10^6 + 1)] 

Dieser Ausdruck wird die Bewertung nicht zu Ende .... Ich dachte, es würde gehen, bis sie die am weitesten rechts stehende Zahl (die erste fib größer als 4E6 finden , das 34. Element in der Liste fibs!!34) und dann die Liste beenden, eine kleine Anzahl von Ganzzahlen summieren. Was mache ich falsch?

Answer 1

ghc weiß nicht, wann [x | x<-fibs, even x && x < (4*10^6 + 1)] sollte beendet werden und es wird versuchen, die unendliche Liste fibs auszuschöpfen. In anderen Worten, es wird versuchen, eine unbestimmte Liste von Fibonacci-Zahlen vor dem Terminieren auszuschöpfen. Sie sollten in takeWhile schauen.