Help for this page

Select Code to Download

Select or download this
```
$h{shift@s}
```
Select or download this
```
$h{$s[0]}
```

Select or download this

sub e {sub n{abs($s-$b)};$s=pop;while($b=pop){if(&n<$d||!$d){$l=$b;$d=
+&n}}$l}