diff options
| author | elioat <elioat@tilde.institute> | 2023-08-23 07:52:19 -0400 |
|---|---|---|
| committer | elioat <elioat@tilde.institute> | 2023-08-23 07:52:19 -0400 |
| commit | 562a9a52d599d9a05f871404050968a5fd282640 (patch) | |
| tree | 7d3305c1252c043bfe246ccc7deff0056aa6b5ab /js/games/nluqo.github.io/~bh/61a-pages/Lectures/3.5/fib.scm | |
| parent | 5d012c6c011a9dedf7d0a098e456206244eb5a0f (diff) | |
| download | tour-562a9a52d599d9a05f871404050968a5fd282640.tar.gz | |
*
Diffstat (limited to 'js/games/nluqo.github.io/~bh/61a-pages/Lectures/3.5/fib.scm')
| -rw-r--r-- | js/games/nluqo.github.io/~bh/61a-pages/Lectures/3.5/fib.scm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/js/games/nluqo.github.io/~bh/61a-pages/Lectures/3.5/fib.scm b/js/games/nluqo.github.io/~bh/61a-pages/Lectures/3.5/fib.scm new file mode 100644 index 0000000..6a2d8e6 --- /dev/null +++ b/js/games/nluqo.github.io/~bh/61a-pages/Lectures/3.5/fib.scm @@ -0,0 +1,12 @@ +(define (add-streams s1 s2)(cond((stream-null? s1)s2) + ((stream-null? s2)s1) + (else (cons-stream (+ (stream-car s1) + (stream-car s2)) + (add-streams + (stream-cdr s1) + (stream-cdr s2)))))) + +(define fibs (cons-stream 0 + (cons-stream 1 + (add-streams (stream-cdr fibs) + fibs)))) |