Collect and sort square numbers in ascending order from three lists: Difference between revisions
Collect and sort square numbers in ascending order from three lists (view source)
Revision as of 13:51, 10 December 2021
, 2 years ago→{{header|Raku}}: Add a Raku example
(Added Wren) |
Thundergnat (talk | contribs) (→{{header|Raku}}: Add a Raku example) |
||
Line 7:
<br>list[2] = [2,8,81,169,34,55,76,49,7]
<br>list[3] = [75,121,75,144,35,16,46,35]
=={{header|Raku}}==
<lang perl6>my $s = cache sort ( my $l = ( cache flat
[3,4,34,25,9,12,36,56,36],
[2,8,81,169,34,55,76,49,7],
[75,121,75,144,35,16,46,35]
)).grep: * ∈ $_ given cache {$++²}…*>$l.max;
put 'Added - Sorted';
put ' ' ~ $s.sum ~ ' ' ~ $s.gist;</lang>
<pre>Added - Sorted
690 (4 9 16 25 36 36 49 81 121 144 169)
</pre>
=={{header|Ring}}==
| |||