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.
22 lines
884 B
22 lines
884 B
#!/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)
|
|
|