diff options
| author | Steve Lee <me@xiangyangli.com> | 2017-12-02 06:10:20 +0800 |
|---|---|---|
| committer | Steve Lee <me@xiangyangli.com> | 2017-12-02 06:10:20 +0800 |
| commit | 9b939e65cf007e859dabe5de6b31d255d647e0ce (patch) | |
| tree | bf9229755f4e58bb81add73c7f3c32fe4023e7ec /Computer_Science/SICP/ex1-1.scm | |
| parent | 5dc061ae68ac3b5b28556bdbd1574579d8da33e7 (diff) | |
| download | 42-9b939e65cf007e859dabe5de6b31d255d647e0ce.tar.xz 42-9b939e65cf007e859dabe5de6b31d255d647e0ce.zip | |
category
Diffstat (limited to 'Computer_Science/SICP/ex1-1.scm')
| -rw-r--r-- | Computer_Science/SICP/ex1-1.scm | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/Computer_Science/SICP/ex1-1.scm b/Computer_Science/SICP/ex1-1.scm new file mode 100644 index 0000000..7f0b307 --- /dev/null +++ b/Computer_Science/SICP/ex1-1.scm @@ -0,0 +1,16 @@ +(define (factorial n) + (if (= n 1) + n + (* n (factorial (- n 1))) + ) + ) + +(factorial 11000) + +(define (fib n) + (cond ((= n 0) 0) + ((= n 1) 1) + (else (+ (fib (- n 1)) + (fib (- n 2)))))) + +(fib 6) |