Revision as of 23:35, 24 April 2022 (view source) rosettacode>Jeff mallatt (Added a Scheme implementation.) ← Older edit		Revision as of 23:50, 24 April 2022 (view source) rosettacode>Jeff mallatt m (Fix problem in Scheme.) Newer edit →
Line 1,894: (printf "~%The maximum value of L(n, k) where n = 100:~%") (let ((max 0)) (do ((nk 1 (1+ nk))) ((> nk 100)) (dolet ((~~k 1~~val (1+lah 100 k))) (when ((> kval max) (set! max nval)))) ~~(let ((val (lah n k)))~~ ~~(when (> val max) (set! max val)))))~~ (printf "~d~%" max))</lang> {{out}}

Lah numbers: Difference between revisions

Lah numbers (view source)