Help for this page

Select Code to Download


  1. or download this
    use v5.10;

say for sort { $a <=> $b }
  map { chomp( my $i = <> ); $i } 1 .. <>;
  2. or download this
    print for sort { $a <=> $b }
  map { scalar <> } 1 .. <>;
  3. or download this
    my $count = <>;
my @numbers;
...
  push @numbers, scalar <>;
}
print for sort { $a <=> $b } @numbers;