home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacGofer 0.22d / MacGofer Sources / apr7.gs < prev    next >
Encoding:
Text File  |  1994-01-06  |  244 b   |  9 lines  |  [TEXT/MPS ]
  1. main     = appendChan stdout (answer 1.0) exit done
  2.  
  3. answer n = unlines (map (concat . map (pad 10 . show) . worker) [0.1,0.2..n])
  4.  
  5. worker n = map (\f -> f n) [sin,cos,tan,asin,acos,atan,log,exp]
  6.  
  7. pad n s  = iterate (' ':) s !! (n - length s)
  8.  
  9.