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

Added Wren
m (→‎{{header|Raku}}: missing markup)
(Added Wren)
Line 307:
done...
 
</pre>
 
=={{header|Wren}}==
{{libheader|Wren-big}}
{{libheader|Wren-fmt}}
<lang ecmascript>import "/big" for BigInt
import "/fmt" for Fmt
 
System.print(" n smallest power of 6 which contains n")
var six = BigInt.new(6)
for (n in 0..21) {
var i = 0
while (true) {
var pow6 = six.pow(i).toString
if (pow6.contains(n.toString)) {
Fmt.print("$2d 6^$-2d = $,s", n, i, pow6)
break
}
i = i + 1
}
}</lang>
 
{{out}}
<pre>
n smallest power of 6 which contains n
0 6^9 = 10,077,696
1 6^0 = 1
2 6^3 = 216
3 6^2 = 36
4 6^6 = 46,656
5 6^6 = 46,656
6 6^1 = 6
7 6^5 = 7,776
8 6^12 = 2,176,782,336
9 6^4 = 1,296
10 6^9 = 10,077,696
11 6^16 = 2,821,109,907,456
12 6^4 = 1,296
13 6^13 = 13,060,694,016
14 6^28 = 6,140,942,214,464,815,497,216
15 6^18 = 101,559,956,668,416
16 6^3 = 216
17 6^10 = 60,466,176
18 6^15 = 470,184,984,576
19 6^21 = 21,936,950,640,377,856
20 6^26 = 170,581,728,179,578,208,256
21 6^3 = 216
</pre>
9,476

edits