Collect and sort square numbers in ascending order from three lists: Difference between revisions
Content added Content deleted
(Added Wren) |
Thundergnat (talk | contribs) (→{{header|Raku}}: Add a Raku example) |
||
| Line 7: | Line 7: | ||
<br>list[2] = [2,8,81,169,34,55,76,49,7] |
<br>list[2] = [2,8,81,169,34,55,76,49,7] |
||
<br>list[3] = [75,121,75,144,35,16,46,35] |
<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}}== |
=={{header|Ring}}== |
||