Periodic table: Difference between revisions

Content added Content deleted

Inline

@@ Line 248: / Line 248: @@
 </pre>
-=={{header|Raku}}==
+=={{header|Perl}}==
+{{trans|Raku}}
-<lang perl6>my $b = 18;
+<lang perl>use strict;
-my @offset = (16, 10, 10, (2*$b)+1, (-2*$b)-15, (2*$b)+1, (-2*$b)-15);
+use warnings; no warnings 'uninitialized';
-my @span   = flat ^8 Zxx <1 3 8 44 15 17 15 15>;
+use feature 'say';
+use List::Util <sum head>;
+sub divmod { int $_[0]/$_[1], $_[0]%$_[1] }
-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($b).reverse;
+my $b = 18;
+my(@offset,@span,$cnt);
+push @span, ($cnt++) x $_ for <1 3 8 44 15 17 15 15>;
+@offset = (16, 10, 10, (2*$b)+1, (-2*$b)-15, (2*$b)+1, (-2*$b)-15);
+for my $n (<1 2 29 42 57 58 72 89 90 103 118>) {
+    printf "%3d: %2d, %2d\n", $n, map { $_+1 } divmod $n-1 + sum(head $span[$n-1], @offset), $b;
 }</lang>
 {{out}}
@@ Line 384: / Line 393: @@
 </lang>
+=={{header|Raku}}==
+<lang perl6>my $b = 18;
+my @offset = (16, 10, 10, (2*$b)+1, (-2*$b)-15, (2*$b)+1, (-2*$b)-15);
+my @span   = flat ^8 Zxx <1 3 8 44 15 17 15 15>;
+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($b).reverse;
+}</lang>
+{{out}}
+<pre>  1:  1,  1
+:  1, 18
+:  4, 11
+:  5,  6
+:  8,  4
+:  8,  5
+:  6,  4
+:  9,  4
+:  9,  5
+:  9, 18</pre>
 =={{header|Wren}}==