Smallest power of 6 whose decimal expansion contains n: Difference between revisions

added AWK
m (→‎{{header|Haskell}}: Applied Hlint, Ormolu)
(added AWK)
Line 85:
20: 6^26 170 581 728 179 578 208 256
21: 6^3 216
</pre>
=={{header|AWK}}==
<lang AWK>
# syntax: GAWK -f SMALLEST_POWER_OF_6_WHOSE_DECIMAL_EXPANSION_CONTAINS_N.AWK
BEGIN {
printf(" n power %30s\n","smallest power of 6")
for (n=0; n<22; n++) {
p = 1
power = 0
while (p !~ n) {
p *= 6
power++
}
printf("%2d %5d %'30d\n",n,power,p)
}
exit(0)
}
</lang>
{{out}}
<pre>
n power smallest power of 6
0 9 10,077,696
1 0 1
2 3 216
3 2 36
4 6 46,656
5 6 46,656
6 1 6
7 5 7,776
8 12 2,176,782,336
9 4 1,296
10 9 10,077,696
11 16 2,821,109,907,456
12 4 1,296
13 13 13,060,694,016
14 28 6,140,942,214,464,815,497,216
15 18 101,559,956,668,416
16 3 216
17 10 60,466,176
18 15 470,184,984,576
19 21 21,936,950,640,377,856
20 26 170,581,728,179,578,208,256
21 3 216
</pre>
 
477

edits