43

43.pl

#!/usr/bin/env perl

use strict;
use warnings;
use DDP{deparse => 1 };

my @num;
@num = (1..1000);

my @rev_num = reverse @num;

# 文字順でソートの時
my @sort_num = sort @rev_num;

# 数値順でソートの時
my @sort_num = sort{$a <=> $b }@rev_num;

# 以降の問に使用するのは、"数値順でソート"を利用して下さい。