Kaprekar numbers: Difference between revisions
→{{header|Quackery}}: added casting out 9s
(Added Quackery.) |
(→{{header|Quackery}}: added casting out 9s) |
||
Line 3,978:
=={{header|Quackery}}==
<lang Quackery>
[ dup dup *
9 mod swap 9 mod != ] is castout9 ( n --> b )
[ []
[ swap 10 /mod
rot join
Line 3,987 ⟶ 3,991:
[ swap 10 * + ] ] is ->number ( [ --> n )
[ dup
[ drop false ] done
dup 1 = if done
false swap
dup temp put
|