123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112 |
- (define (fibo x)
- (if (or (= x 1) (= x 2))
- 1
- (+ (fibo (- x 1))
- (fibo (- x 2)))))
- (define (g-c-d x y)
- (if (= x y)
- x
- (if (< x y)
- (g-c-d x (- y x))
- (g-c-d (- x y) y))))
- (define (loop n)
-
-
- (if (= 0 n)
- 0
- (loop (1- n))))
- (define (loopi n)
-
- (let loopi ((n n))
- (if (= 0 n)
- 0
- (loopi (1- n)))))
- (define (do-loop n)
-
- (do ((i n (1- i)))
- ((= 0 i))
-
- ))
- (define (do-cons x)
-
-
- (let loop ((x x)
- (result '()))
- (if (<= x 0)
- result
- (loop (1- x) (cons x result)))))
- (define big-list (iota 500000))
- (define (copy-list lst)
-
- (let loop ((lst lst)
- (result '()))
- (if (null? lst)
- result
- (loop (cdr lst)
- (cons (car lst) result)))))
|