You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
23 lines
884 B
23 lines
884 B
2 years ago
|
#!/run/current-system/profile/bin/env gxi-script
|
||
|
|
||
|
|
||
|
;;
|
||
|
;;
|
||
|
;;Each new term in the Fibonacci sequence is generated by adding the previous two terms. By starting with 1 and 2, the first 10 terms will be:
|
||
|
;;
|
||
|
;;1, 2, 3, 5, 8, 13, 21, 34, 55, 89, ...
|
||
|
;;
|
||
|
;;By considering the terms in the Fibonacci sequence whose values do not exceed four million, find the sum of the even-valued terms.
|
||
|
|
||
|
(define increment (lambda (current next largest)
|
||
|
(if (eqv? largest 0)
|
||
|
(println current)
|
||
|
(begin
|
||
|
(println (string-append "current is: " (number->string current) "next is: " (number->string next) "largest is: " (number->string largest)))
|
||
|
(increment next (+ current next) (- largest 1))))))
|
||
|
|
||
|
(define fibbonacci (lambda (integer) (increment 1 2 integer)))
|
||
|
|
||
|
|
||
|
(fibbonacci 10)
|