Last list item: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (→{{header|ALGOL 68}}: Not quite following task requirements) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: can dispense with 'join') |
||
Line 345: | Line 345: | ||
my @list = <6 81 243 14 25 49 123 69 11>; |
my @list = <6 81 243 14 25 49 123 69 11>; |
||
say " Original @list"; |
say " Original @list"; |
||
push @list, get(min @list) + get(min @list) and say |
push @list, get(min @list) + get(min @list) and say "@list" while @list > 1; |
||
sub get { |
sub get { |