hints.frink

Download or view hints.frink in plain text format


// This library gives hints to help you through a calculation.
// These hints are mostly based on failed calculations that I've seen
// performed through the web-based interface.

use HTMLUtils.frink

// Str should include the whole input program like "foot -> m"
getHints[str, fromStr, toStr, results] :=
{
   h = ""
   c = str

   // Using "per" for division which is ambiguous.  For example, when you
   // say "miles per hour" you want miles/hour, but when you say
   // "days per week" you want to see 7, which is actually "week/day"
   // Best not to let this ambiguous English bit slip in.
   if c =~ %r/\bper\b/i
   {
      c =~ %s/\bper\b/\//ig
      h = h + """<LI>The word <CODE>per</CODE> is currently not allowed as 
                 a synonym for division (because it's ambiguous in some cases.)
                 <P>
                 For example, when you say "miles per hour" you want
                 miles/hour, but when you say "days per week" you probably
                 expect to get 7, which is actually "week/day" (the size of a
                 week divided by the size of a day.)  Since this is ambiguous
                 in English, I don't try to guess what you mean.
                 <P>
                 Please use the <CODE>/</CODE> character to indicate division. 
                 <P><CODE>""" +  HTMLEncode[c] + "</CODE>\n"
   }

   // Frink uses square brackets for function calls, not parentheses.
   // This is to preserve the implicit multiplication in standard mathematical
   // notation like x(x+1)
   if c =~ %r/([a-zA-Z][a-zA-Z]*)\((.*?)\)/  // Function calls with parens
   {
      c =~ %s/([a-zA-Z][a-zA-Z]*)\((.*?)\)/$1[$2]/g
      h = h + """<LI>Frink uses square brackets <CODE>[ ]</CODE>
                  to indicate function calls, and parentheses to indicate 
                 grouping. 
                 <A HREF="/frinkdocs/faq.html#WhySquareBrackets">Why?</A>
                 For example,<P>
                 <CODE>sin[30 degrees]</CODE><P>
                 If you intended to call a function, you might try to write it
                 as something like: <P><CODE>""" + HTMLEncode[c] + "</CODE>\n"
   }

   
   // Ounces are mass.  Fluid ounces are volume.
   if c =~ %r/\b(oz|ounces?|fluid)\b/     // oz / floz confusion
   {
      c =~ %s/\b(fluid\s+(ounces?\b|(oz\.|oz\b)))/floz/gi
      c =~ %s/\b(fl\.?\s+(ounces?\b|(oz\.|oz\b)))/floz/gi
      c =~ %s/\b((oz\.|oz\b)|ounces?\b|fluid\b)/floz/gi
      h = h + """<LI>The wonderful English system of measurements uses the word
                 <CODE>ounce</CODE> to describe two completely different units
                 of measure. 
                 One is a unit of mass, the other a unit of volume.
                 When referring to volume, the term is properly called 
                 "fluid ounce."  In Frink, please use 
                 <CODE>fluidounce</CODE> or <CODE>floz</CODE> to indicate the
                 fluid ounce and  
                 <CODE>ounce</CODE> or <CODE>oz</CODE> to refer to mass.
                 If you meant the fluid ounce, your calculation becomes: 
                 <P><CODE>""" + HTMLEncode[c] + "</CODE>\n"
   }

   // Warn about the word "of."  Frink doesn't try to parse sentences,
   // because they're usually ambiguous.
   if c =~ %r/\bof\b/i
   {
      [property, noun] = c =~ %r/(\w+)\s+of\s+(?:(?:a|an|the)\s+)?(\w+)/i

      property = lc[property]
      noun = lc[noun]

      fallbackName = "$noun$property"
      fallback = unit[fallbackName]
      fallbackHelp = ""

      if (fallback != undef)
      {
         c =~ %s/(\w+)\s+of\s+(?:(?:a|an|the)\s+)?(\w+)/$2 + $1/egi
         fallbackHelp = """<P>In fact, Frink has a unit called 
                           <CODE CLASS="input">$fallbackName</CODE> which is equal to:<P>
                           $fallbackName = """ + HTMLEncode["$fallback"] + 
                         """\n<P>If that's what you need, your calculation 
                           might look something like: <P><CODE>""" + 
                           HTMLEncode[c] + "</CODE>\n";
      } else
         c =~ %s/\s+of\s+(?:(?:a|an|the)\s+)?/ /gi
  
      h = h + """<LI>Frink currently doesn't use the word "of" as a modifier.
                 All Frink symbols are a single word.  If you're looking for
                 something like <CODE>$property of $noun</CODE>, it might
                 be called something like: <CODE>$noun$property</CODE> or
                 <CODE>${noun}_$property</CODE>.
                 $fallbackHelp
                 <P>
                 If you want to see all of the units that contain "$noun", 
                  you should type part or all of "$noun" into the "Lookup" 
                 field or, better yet, enter 
                 <CODE>??$noun</CODE> into the From: box and see what you get.
                 <A HREF="/frinkdocs/index.html#IntegratedHelp">More about 
                 integrated help.</A>\n"""
   }

   // "the" is not used.  Sentences are ambiguous.
   if [useless] = c =~ %r/\bthe\b/i
   {
      c =~ %s/\bthe\b//ig
      h = h + """<LI>The word "the" has no meaning in Frink.  Please eliminate
                     it. Your calculation might become:<P><CODE>""" +
              HTMLEncode[c] + "</CODE>\n"
   }


   // The Google calculator uses the word "in" where Frink uses ->
   if c =~ %r/\bin\b/i
   {
      c =~ %s/\bin\b/->/i
      h = h + """<LI>Instead of the word "in", Frink uses the
      <CODE>-&gt;</CODE> operator to convert to different units.  Your
      calculation might become:<P><CODE>""" +
              HTMLEncode[c] + "</CODE>\n" +
      """<P>However, it's unnecessary to type this symbol.  Just enter the
      units you're converting from in the "From:" box and the units you're
      converting to in the "To:" box above.\n  (Hint:  You can probably switch between these quickly using the tab key.)"""
   }
   
   // I sometimes see "kilo/kilos/k" used by itself.  A thousand what?
   if [let] = c =~ %r/\b(kilos?|k)\b/   
   {
      h = h + """<LI>If you're using "k" or "kilo" or 
                    "kilos" to mean 1000 of something, you need to specify 
                    what you're specifying 1000 of, or it's ambiguous.  
                    Did you mean "kilograms" or "kg" or maybe "kilometers" 
                    or "km"?"""

      if (let == "k")
          h = h + """<P>If you meant the temperature scale kelvin, that's 
                    either written "kelvin" (with a small k) or simply "K" 
                    with a capital K."""
   }


   // Temperature conversions.  Fahrenheit and Celsius, apart from being
   // almost always misspelled, cannot be treated as normal multiplicative
   // units because they don't have a reasonable zero-point at absolute
   // zero.  Point the user to the different meanings of the units.
   if c =~ %r/\b(deg|degC|degF|F|C|(?:degree|deg)?[cC]el[sc]ius|(?:degree|deg)?[fF]ah?renheit|rankine|Rankine|Kelvin)\b/
   {
      h = h + """<LI>Are you doing a temperature calculation?  
                 Keep in mind that
                 if you're using the Celsius or Fahrenheit system, the zero
                 point is not at absolute zero, so these units can't be
                 written as normal multiplicative units.  You also need to be
                 clear whether you're specifying an absolute temperature
                 or the <EM>size</EM> of a degree in the Fahrenheit or
                 Celsius system.  (You use the <EM>size</EM> only when you're
                 indicating the <EM>difference</EM> between two temperatures.)
                 <P> Frink can do it all, but you need to be unambiguous as
                 to which you mean, so you don't get a wrong answer.  For more
                 information, please see the
                 <A HREF="/frinkdocs/index.html#TemperatureScales">Temperature
                 Scales</A> section of the documentation."""

      if c =~ %r/\b[cC]elcius\b/
         h = h + """<P>By the way, you spelled "Celsius" wrong.
                   I see that a lot.</P>"""

      if c =~ %r/\b[fF]arenheit\b/
         h = h + """<P>By the way, you spelled "Fahrenheit" wrong.
                   I see that a lot.</P>"""
   }

   
   // Look for attempted date calculations without surrounding pound
   // signs.
   if c =~ %r/\b(Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec)/
      if ! (c =~ %r/#/)
      {
         h = h + """<LI>Are you trying to do a date calculation?  To be
                    unambiguous, you need to surround dates with pound signs
                    something like <P>
                    <CODE>#&nbsp;August&nbsp;19,&nbsp;1969&nbsp;#</CODE>
                    <P>Frink recognizes 
                    <A HREF="/frinkdata/dateformats.txt">lots of date/time 
                    formats</A>, and can do a lot of calculations and
                    conversions with dates.  Please see the 
                    <A HREF="/frinkdocs/index.html#DateTimeHandling">Date/Time
                    Handling</A> section of the documentation 
                    for more information."""
      }

   // Provide suggestions for possible unparsed dates.
   if results =~ %r/#/
   {
       h = h + """<LI>Are you trying to do a date calculation?  To be
                 unambiguous, you need to surround dates with pound signs
                 something like <P>
                 <CODE>#&nbsp;August&nbsp;19,&nbsp;1969&nbsp;#</CODE>.
                 If the date you're entering is not 
                 being parsed, please use one of the formats listed 
                 <A HREF="/frinkdata/dateformats.txt">in the official 
                 formats</A>.  I know you've learned from the Y2K fiasco that
                 you must enter 4-digit years.  (Most-significant digits 
                 first are recommended.)  See the
                 <A HREF="/frinkdocs/index.html#DateTimeHandling">Date/Time
                 Handling</A> section of the documentation 
                 for more information."""
   }

   // Warn about standard mathematical precedence in things like
   // 30 miles / 2 hours where the calculation may actually want to be:
   // 30 miles / (2 hours)
   if [quot] = c =~ %r/\/\s*(\d+(?:\.\d+)?\s*[[:alpha:]]\w*)/
   {
       c =~ %s/\/\s*(\d+(?:\.\d+)?\s*\w+)/\/ ($1) /g
       h = h + """<LI>There is an implicit multiplication in "$quot".  Frink
                 follows normal mathematical rules of precedence 
                 (multiplication and division are at the same precedence, and
                 performed left to right,) so you <EM>may</EM> need to put
                 parentheses around the right-hand-side of the equation:
                 <P><CODE>""" + HTMLEncode[c] + """</CODE>
                 <P>See <A HREF="/frinkdocs/faq.html#ParenthesesAroundRight">this
                 section of the FAQ</A> for more information."""
   }


   // People use the date calculations from the manual and miss the
   // obvious and necessary brackets after the now[] function.
   if c =~ %r/\bnow\b\s*[^\[]/
   {
       c =~ %s/\bnow\b/now\[\]/g
       h = h + """<LI>Did you mean the <EM>function</EM>
                 <CODE CLASS="input">now[]</CODE> ?
                 That's a function, so you need the square brackets after it.
                 Your calculation might become:
                 <P><CODE>""" + HTMLEncode[c] + "</CODE>"
   }

   
   // Check for capitalization
   for [word] results =~ %r/(\w+)\s*\(undefined symbol\)/ig
   {
      printed = false
      if (word =~ %r/^(of|the|per|a|an)$/i) or (length[word] <= 1)
         next

      array = array[select[units[], regex["^$word$", "i"]]]
      len = length[array]
      for cap = array
      {
         if ((cap == word) and (len == 1))
            next

         if (not printed)
         {
            h = h + "<LI>Frink is case-sensitive.  Did you mean one of the following capitalizations for <CODE CLASS=\"input\"><SPAN CLASS=\"warning\">$word</SPAN></CODE>?\n<UL>"
            printed = true
         }
         
         h = h + "<LI><CODE CLASS=\"input\">$cap</CODE> = " + unit[cap] + "\n"

         if len == 1
         {
            rep = subst["\\b$word\\b", cap, "g"]
            c =~ rep
            h = h + """<P>If so, your calculation becomes:</P>
                       <P><CODE>""" + HTMLEncode[c] + "</CODE></P>"
         }
      }

      if printed
         h = h + "</UL>"
      else
      {
         // If an exact capitalization match isn't found,
         // see if the word occurs as a substring in a unit name.
         altstr = ""
         // Skip certain words.
         if (word =~ %r/^(of|the|per|a|an)$/i) or (length[word] <= 1)
            next

         // Remove plural ending if the word is >= 4 characters long
         if ((word =~ %r/s$/i) and (length[word] >= 4))
            singular = substrLen[word, 0, length[word]-1]
         else
            singular = word

         // If word is 3 chars or shorter, just look for it at the
         // beginning or the end.
         if (length[singular] <= 3)
            pat = regex["((^$singular)|($singular$))", "i"]
         else
            pat = regex["$singular", "i"]
         
         x = sort[array[select[units[], pat]]]

         y = new array

         // Look for fuzzy spelling
         len = length[word]
         lowerword = lowercase[word]
         for poss = units[]
         {
            lposs = length[poss]
            maxlen = max[len, lposs]
            if (abs[lposs - len] / maxlen <= 1/3)
            {
               closeness = editDistanceDamerau[lowerword, lowercase[poss]]
               if (closeness/maxlen <= 1/3)
                  y.push[ [poss, closeness] ]
            }
         }

         // Sort by closeness
         sort[y, byColumn[1]]

         for [poss, closeness] y
            x.push[poss]
         
         for option = x
         {
            if word == option     // Avoid exact matches.
               next
            
            if (altstr == "")
               altstr = """<LI>The symbol
                <CODE><SPAN CLASS="warning">$word</SPAN></CODE> was not found.
            Perhaps you meant one of the following units:\n<UL>"""

            unit = unit[option]
            if unit conforms currency  // Don't fetch currencies
               altstr = altstr + "<LI><CODE CLASS=\"input\">$option</CODE> (currency)\n"
            else
               altstr = altstr + "<LI><CODE CLASS=\"input\">$option</CODE> = $unit\n"
            }

            if (altstr != "")
            {
               h = h + altstr + "\n</UL>"
               altstr = ""
            }
         }
      }

   // Note about bad capitalizations of SI prefix names like "kilo"
   if [word] = results =~ %r/(\w+)\s*\(undefined symbol\)/i
   {
      if [prefix, rest] = word =~ %r/^(yotta|zetta|exa|peta|tera|giga|mega|kilo|hecto|deka|deci|centi|milli|micro|nano|pico|femto|atto|zepto|yocto)(.*)/i
      {
         if (prefix =~ %r/[A-Z]/)   // And it contains a capital letter
         {
            pRight = lc[prefix]

            sub = subst[word, "$pRight$rest"]
            c =~ sub
            h = h + """<LI>You appear to be miscapitalizing the SI prefix
            "<CODE CLASS="input">$pRight</CODE>".  Under the rules of the
            International System of Units, these names must <EM>not</EM> be
            capitalized.  See the
            <A HREF="http://physics.nist.gov/cuu/Units/prefixes.html">official
            list of SI prefixes</A> for more details. Your calculation might
            become:<P><CODE>""" + HTMLEncode[c] + """</CODE>
            <P>
            (You may also want to verify the
            <A HREF="http://physics.nist.gov/cuu/Units/units.html">correct 
            capitalization of SI units</A> for
            "<CODE CLASS="input">$rest</CODE>" if you continue to have
            problems.)"""
         }
      } else  // Try fixing bad "K" prefix
          if [prefix, rest] = word =~ %r/^(K)(.+)/
          {
            pRight = lc[prefix]
            sub = subst[word, "$pRight$rest"]
            c =~ sub
            h = h + """<LI>You may be miscapitalizing the SI prefix
            "<CODE CLASS="input">$pRight</CODE>".  Under the rules of the
            International System of Units, all prefix symbols have only one
             correct capitalization.  See the
            <A HREF="http://physics.nist.gov/cuu/Units/prefixes.html">official
            list of SI prefixes</A> for more details. Your calculation might
            become:<P><CODE>""" + HTMLEncode[c] + """</CODE>
            <P>
            (You may also want to verify the
            <A HREF="http://physics.nist.gov/cuu/Units/units.html">correct 
            capitalization of SI units</A> for
            "<CODE CLASS="input">$rest</CODE>" if you continue to have
            problems.)"""
         }
   }
      
   // Note about undefined symbol
   if [word] = results =~ %r/(\w+)\s*\(undefined symbol\)/i
   {
      // Remove plural ending if the word is >= 4 characters long
      if ((word =~ %r/s$/i) and (length[word] >= 4))
         word = substrLen[word, 0, length[word]-1]

      h = h + """<LI>Your calculation contained one or more names that Frink
                 does not know about.  Generally, if you don't know the name
                 and/or capitalization that Frink uses for a particular unit,
                 type one or two
                 question marks and then all or part of the singular form of
                 the name you're looking
                 for.  (Two question marks gives more information.
                 Typing just <EM>part</EM> of the name may help.)  For example:
                 <P>
                  <CODE CLASS="input">??$word</CODE>
                 </P>

                 <P>
                   For more information on looking up units, read the
                   <A HREF="/frinkdocs/index.html#IntegratedHelp">Integrated
                   Help</A> section of the documentation.
                 </P>"""
   }

   // Frink currently uses h for Planck's constant, not hours.  This may change
   // as hours are more common and h, while not officially defined as an SI
   // symbol, is commonly used.
   if str =~ %r/\bh\b/
   {
      c =~ %s/\bh\b/hr/g
      h = h + """<LI>Frink uses the letter <CODE>h</CODE> to stand for 
                 Planck's constant. If you mean <CODE>hour</CODE>, please use
                 <CODE>hour</CODE> or <CODE>hr</CODE>:<P><CODE>""" + 
              HTMLEncode[c] + "</CODE>\n"
   }


   if h == ""
      return h
   else
      return """<HR><P><B>If you didn't get the answer you expected:</B></P>
                   <UL>
                    $h
                   </UL>"""
}


Download or view hints.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 19945 days, 4 hours, 55 minutes ago.