Periodic table: Difference between revisions
Added Raku
SqrtNegInf (talk | contribs) (Added Raku) |
|||
Line 247:
Atomic number 113 -> (7, 13)
</pre>
=={{header|Raku}}==
<lang perl6>my @offset = (16, 10, 10, (2*18)+1, (-2*18)-15, (2*18)+1, (-2*18)-15);
my @span = flat ^8 Zxx <1 3 8 44 15 17 15 17>;
for <1 2 29 42 57 58 72 89 90 103> -> $n {
printf "%3d: %2d, %2d\n", $n, map {1 + $_}, ($n-1 + [+] @offset.head(@span[$n-1])).polymod(18).reverse;
}</lang>
{{out}}
<pre> 1: 1, 1
2: 1, 18
29: 4, 11
42: 5, 6
57: 8, 4
58: 8, 5
72: 6, 4
89: 9, 4
90: 9, 5
103: 9, 18</pre>
=={{header|Phix}}==
| |||