Select Code to Download

#!/usr/bin/perl

...
print q{closest_city(290)="}, closest_city(290), qq{"\n}; 
print q{closest_city(500)="}, closest_city(500), qq{"\n}; 
print q{closest_city(5000)="}, closest_city(5000), qq{"\n};

closest_city(5)="London"
closest_city(149)="London"
...
closest_city(290)="Rome"
closest_city(500)="Berlin"
closest_city(5000)="Berlin"

              250
             /   \ 
...
     100   200   300  600
      |     |     |    |
  London  Paris  Rome  Berlin