Periodic table: Difference between revisions
Content added Content deleted
SqrtNegInf (talk | contribs) (Added Raku) |
|||
Line 247: | Line 247: | ||
Atomic number 113 -> (7, 13) |
Atomic number 113 -> (7, 13) |
||
</pre> |
</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}}== |
=={{header|Phix}}== |