ebus3004
public text v1 · immutable#!/usr/bin/perl -w
#strip whitespace
chomp (@a = <STDIN>);
# sort numerically
@sorted = sort { $a <=> $b } @a;
# add commas
$test = join(', ', @sorted);
#print it
print "$test\n" ;
#!/usr/bin/perl -w
#strip whitespace
chomp (@a = <STDIN>);
# sort numerically
@sorted = sort { $a <=> $b } @a;
# add commas
$test = join(', ', @sorted);
#print it
print "$test\n" ;