Help for this page

Select Code to Download

Select or download this
```
sort{$a<=>$b}keys%h
```

Select or download this

sub g {$n=pop;$h{abs($_-$n)}=$_ for@_;$h{(sort keys%h)[0]}}