Magic numbers: Difference between revisions
m
→{{header|Phix}}: added largest per digit count to output
m (→{{header|Pascal}}: FreePascal not once more Pascal..) |
m (→{{header|Phix}}: added largest per digit count to output) |
||
Line 620:
<span style="color: #000000;">digits</span> <span style="color: #0000FF;">+=</span> <span style="color: #000000;">1</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">while</span>
<span style="color: #000000;">res</span><span style="color: #0000FF;">[</span><span style="color: #000000;">1</span><span style="color: #0000FF;">]</span> <span style="color: #0000FF;">
<span style="color: #008080;">return</span> <span style="color: #000000;">res</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
Line 635:
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #000000;">fmt</span><span style="color: #0000FF;">,{</span><span style="color: #7060A8;">sum</span><span style="color: #0000FF;">(</span><span style="color: #000000;">rc</span><span style="color: #0000FF;">),</span><span style="color: #000000;">r</span><span style="color: #0000FF;">[$][$]})</span>
<span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">,</span><span style="color: #000000;">c</span> <span style="color: #008080;">in</span> <span style="color: #000000;">rc</span> <span style="color: #008080;">do</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"%,5d with %2d digit%s
<span style="color: #0000FF;">{</span><span style="color: #000000;">c</span><span style="color: #0000FF;">,</span><span style="color: #000000;">i</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">iff</span><span style="color: #0000FF;">(</span><span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span><span style="color: #0000FF;">?</span><span style="color: #008000;">""</span><span style="color: #0000FF;">:</span><span style="color: #008000;">"s"</span><span style="color: #0000FF;">),</span><span style="color: #000000;">r</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">][$]})</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
<span style="color: #008080;">function</span> <span style="color: #000000;">pandigital</span><span style="color: #0000FF;">(</span><span style="color: #004080;">string</span> <span style="color: #000000;">s</span><span style="color: #0000FF;">,</span><span style="color: #000000;">p</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">return</span> <span style="color: #7060A8;">sort</span><span style="color: #0000FF;">(</span><span style="color: #000000;">s</span><span style="color: #0000FF;">)=</span><span style="color: #000000;">p</span> <span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
Line 668 ⟶ 669:
There are:
10 with 1 digit, the largest being 9
45 with 2 digits, the largest being 98
150 with 3 digits, the largest being 987
375 with 4 digits, the largest being 9876
750 with 5 digits, the largest being 98765
1,200 with 6 digits, the largest being 987654
1,713 with 7 digits, the largest being 9876545
2,227 with 8 digits, the largest being 98765456
2,492 with 9 digits, the largest being 987654564
2,492 with 10 digits, the largest being 9876545640
2,225 with 11 digits, the largest being 98765456405
2,041 with 12 digits, the largest being 987606963096
1,575 with 13 digits, the largest being 9876069630960
1,132 with 14 digits, the largest being 98760696309604
770 with 15 digits, the largest being 987606963096045
571 with 16 digits, the largest being 9876062430364208
335 with 17 digits, the largest being 98485872309636009
180 with 18 digits, the largest being 984450645096105672
90 with 19 digits, the largest being 9812523240364656789
44 with 20 digits, the largest being 96685896604836004260
18 with 21 digits, the largest being 966858966048360042609
12 with 22 digits, the largest being 9668589660483600426096
6 with 23 digits, the largest being 72645656402410567240820
3 with 24 digits, the largest being 402852168072900828009216
1 with 25 digits, the largest being 3608528850368400786036725
All magic numbers that are pan-digital in 1 through 9 with no repeats:
| |||