Jump to content

Last list item: Difference between revisions

m
→‎{{header|Perl}}: can dispense with 'join'
m (→‎{{header|ALGOL 68}}: Not quite following task requirements)
m (→‎{{header|Perl}}: can dispense with 'join')
Line 345:
my @list = <6 81 243 14 25 49 123 69 11>;
say " Original @list";
push @list, get(min @list) + get(min @list) and say join ' ',"@list" while @list > 1;
 
sub get {
2,392

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.