Anonymous user
Factorions: Difference between revisions
→{{header|zkl}}: added code
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Remove some unnecessary syntax) |
(→{{header|zkl}}: added code) |
||
Line 192:
=={{header|zkl}}==
{{trans|C}}
<lang zkl></lang>▼
<lang zkl>var facts=[0..12].pump(List,fcn(n){ (1).reduce(n,fcn(N,n){ N*n },1) }); #(1,1,2,6....)
<lang zkl></lang>▼
fcn factorions(base){
foreach n in ([1..1_499_999]){
sum,j := 0,n;
while(j>0){
sum+=facts[j%base];
j/=base;
}
if(sum==n) print(" ",n)
}
println();
<lang zkl>foreach n in ([9..12]){
print("The factorions for base %2d are: ".fmt(n)); factorions(n);
{{out}}
<pre>
The factorions for base 9 are: 1 2 41282
The factorions for base 10 are: 1 2 145 40585
The factorions for base 11 are: 1 2 26 48 40472
The factorions for base 12 are: 1 2
</pre>
| |||