home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / language / gofer / Sources / original / gs / apr8 < prev    next >
Encoding:
Text File  |  1993-02-12  |  260 b   |  9 lines
  1. main     = appendChan stdout (answer 1.7) exit done
  2.  
  3. answer n = unlines (map (concat . map (pad 10 . show) . worker) [0.1,0.2..n])
  4.  
  5. worker n = [ n, sin n, asin (sin n), cos n, acos (cos n), tan n, atan (tan n) ]
  6.  
  7. pad n s  = iterate (' ':) s !! (n - length s)
  8.  
  9.