diff options
| author | Steve Lee <me@xiangyangli.com> | 2016-10-12 00:23:37 +0800 |
|---|---|---|
| committer | Steve Lee <me@xiangyangli.com> | 2016-10-12 00:23:37 +0800 |
| commit | e8a76cfac23e02dc8cc647280aee1ba92faa72d7 (patch) | |
| tree | 15600c627334b46565bd80ddb44afa3407c8fe55 /SICP/ex1-1.scm | |
| parent | aadf9309e33bf55e59dcced1a1e34b9090e771bb (diff) | |
| download | Personal-e8a76cfac23e02dc8cc647280aee1ba92faa72d7.tar.xz Personal-e8a76cfac23e02dc8cc647280aee1ba92faa72d7.zip | |
ex2-2 - ex2-4
Diffstat (limited to 'SICP/ex1-1.scm')
| -rw-r--r-- | SICP/ex1-1.scm | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/SICP/ex1-1.scm b/SICP/ex1-1.scm new file mode 100644 index 0000000..7f0b307 --- /dev/null +++ b/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) |