diff options
| author | Iru Cai <mytbk920423@gmail.com> | 2018-05-24 21:39:58 +0800 |
|---|---|---|
| committer | Iru Cai <mytbk920423@gmail.com> | 2018-05-24 21:39:58 +0800 |
| commit | 1eefd58ca4fdb5d2f51f657bfd70c9a89a4707db (patch) | |
| tree | abde0e4da3c7fe138f3874a94d8eb7d0e44c3224 /euler114.scm | |
| download | project_euler-1eefd58ca4fdb5d2f51f657bfd70c9a89a4707db.tar.xz | |
initial commit
Diffstat (limited to 'euler114.scm')
| -rw-r--r-- | euler114.scm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/euler114.scm b/euler114.scm new file mode 100644 index 0000000..e23b441 --- /dev/null +++ b/euler114.scm @@ -0,0 +1,14 @@ +(define (comb m n) + (define (citer mm nn prod) + (if (> mm m) prod + (citer (+ mm 1) (- nn 1) (/ (* prod nn) mm)))) + (citer 1 n 1)) + +(define (solve nn) + (define (addto m n) + (if (> m n) 0 + (+ (comb m n) (addto (+ m 2) (- n 2))))) + (+ 1 (addto 2 (- nn 1)))) + +(display (solve 50)) +(newline) |