SHOW:
|
|
- or go back to the newest paste.
| 1 | \* <---MATH STUFF ---> *\ | |
| 2 | ||
| 3 | (define fac | |
| 4 | 0 -> 1 | |
| 5 | N -> (* N (fac (- N 1)))) | |
| 6 | - | N K -> (/ (fac N) (* (fac (- N K)) (fac K)))) |
| 6 | + | |
| 7 | (define combination | |
| 8 | N K -> (/ (fac N) (* (fac (- N K)) | |
| 9 | (fac K)))) | |
| 10 | - | N K -> (+ (combination N K) (sum-to-n N (- K 1)))) |
| 10 | + | |
| 11 | (define sum-to-n | |
| 12 | N 0 -> (combination N 0) | |
| 13 | N K -> (+ (combination N K) | |
| 14 | (sum-to-n N (- K 1)))) | |
| 15 | ||
| 16 | (define c-sum | |
| 17 | N -> (sum-to-n N N)) | |
| 18 | ||
| 19 | \* </---MATH STUFF ---> *\ | |
| 20 | ||
| 21 |
