15 lines
348 B
Text
15 lines
348 B
Text
factorials: [1 1 2 6 24 120 720 5040 40320 362880 3628800 39916800]
|
|
|
|
factorion?: function [n, base][
|
|
try? [
|
|
n = sum map digits.base:base n 'x -> factorials\[x]
|
|
]
|
|
else [
|
|
print ["n:" n "base:" base]
|
|
false
|
|
]
|
|
]
|
|
|
|
loop 9..12 'base ->
|
|
print ["Base" base "factorions:" select 1..45000 'z -> factorion? z base]
|
|
]
|