diff options
Diffstat (limited to 'robust_test.scm')
| -rw-r--r-- | robust_test.scm | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/robust_test.scm b/robust_test.scm index 6dd4abf..4b68c4e 100644 --- a/robust_test.scm +++ b/robust_test.scm @@ -229,3 +229,24 @@ src (list x) x (cons x x) + +(define (f x) + (if (<= x 2) 1 (+ (f (- x 1)) (f (- x 2))))) +(f 1) +(f 2) +(f 3) +(f 4) +(f 5) + +(define (g n) + (define (f p1 p2 n) + (if (<= n 2) + p2 + (f p2 (+ p1 p2) (- n 1)))) + (f 1 1 n)) + +(define (all i n) + (if (= n i) + #f + (and (display (g i)) (all (+ i 1) n)))) +(all 1 100) |