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.
27 lines
1.2 KiB
27 lines
1.2 KiB
#!/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. |
|
; (println (string-append (number->string current) " % 2 = 0 is: " (if (eqv? (modulo current 2) 0) "#t" "#f"))) |
|
; (println (string-append (number->string current) " % 2 is: " (number->string (modulo current 2)))) |
|
|
|
(define increment (lambda (current next largest) |
|
(define even_total 0) |
|
(if (eqv? largest 0) |
|
(println (string-append "RETURN " (number->string even_total))) |
|
(lambda () |
|
((println "In lambda.") |
|
(if (eqv? (modulo current 2) 0) |
|
(+ even_total current)) |
|
(increment next (+ current next) (- largest 1))))))) |
|
|
|
(define fibbonacci (lambda (integer) (increment 1 2 integer))) |
|
|
|
|
|
(fibbonacci 10)
|
|
|