ziplocator.frink

View or download ziplocator.frink in plain text format

// Sign conventions (to coincide with Meeus)
// North = +1
// South = -1
// West = +1
// East = -1

// This function returns [latitude, longitude] based on zip code (passed in
// as a string)
zipToLatLong[zip, FSPRoot=""] :=
{
   if FSPRoot
      fileroot = "///$FSPRoot"
   else
      fileroot = "fsp"

   for [line] lines["file:$fileroot/neighbors/zipnov99.txt"]
      if [zipLine, lat, long] = line =~ %r/^(\d{5})\t([^\t]+)\t([^\t]+)/
         if zipLine == zip
             return eval["[$lat degree, -($long) degree]"] // W is neg in file
}

// [lat, long] = zipToLatLong["80303"]
// println["Latitude:  " + (lat -> degrees)]
// println["Longitude: " + (long -> degrees)]

"ziplocator.frink included Ok"


View or download ziplocator.frink in plain text format


This is a program written in the programming language Frink.
For more information, view the Frink Documentation or see More Sample Frink Programs.

Alan Eliasen was born 17646 days, 9 hours, 40 minutes ago.