Lah numbers: Difference between revisions
Content added Content deleted
(Added a Scheme implementation.) |
m (Fix problem in Scheme.) |
||
| Line 1,894: | Line 1,894: | ||
(printf "~%The maximum value of L(n, k) where n = 100:~%") |
(printf "~%The maximum value of L(n, k) where n = 100:~%") |
||
(let ((max 0)) |
(let ((max 0)) |
||
(do (( |
(do ((k 1 (1+ k))) |
||
((> |
((> k 100)) |
||
( |
(let ((val (lah 100 k))) |
||
(when (> val max) (set! max val)))) |
|||
(let ((val (lah n k))) |
|||
(when (> val max) (set! max val))))) |
|||
(printf "~d~%" max))</lang> |
(printf "~d~%" max))</lang> |
||
{{out}} |
{{out}} |
||