>>339 Perl
@a=<DATA>;
$n = shift @a;
for (@a) {
if (! $Ri or $_ < $Ri) {
$Ri=$_;
}
if (! $Rj or $Rj < $_) {
$Rj=$_;
}
}
say $Rj - $Ri;
__DATA__
6
2
3
1
3
4
3