mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 05:39:18 +02:00
8 lines
200 B
Scheme
8 lines
200 B
Scheme
(define-library (edouard lucas)
|
|
(export lucas)
|
|
(import (scheme base))
|
|
(begin
|
|
(define (lucas n)
|
|
(if (< n 2)
|
|
(if (= n 1) 1 2)
|
|
(+ (lucas (- n 1)) (lucas (- n 2)))))))
|