Select Code to Download

use strict;
use warnings;
...
print rn(), "\n";
print rn(), "\n";
print rn(), "\n";

3725
3516
7534
1948

min(t($x), t($x+$e), t($x-$e))