Steady squares: Difference between revisions
→{{header|Fe}}: Better mod
(→{{header|Fe}}: Much faster mod calculation) |
(→{{header|Fe}}: Better mod) |
||
Line 794:
<syntaxhighlight lang="clojure">
(= steadySquares
(fn (maxNumber) ;
(let powerOfTen 10) ; 10^(the number of digits in n
(let lastDigit (list 1 5 6)); a steady square must end with 1, 5 or 6
(let lastResult (cons 0 nil)); latest steady square start with a dummy 0
Line 816 ⟶ 815:
; FizzBuzz for an example of doing it with a C function
(let n2%p10 n2)
(let mDivisor
(while (<= powerOfTen mDivisor)
(while (<= mDivisor n2%p10)
| |||