home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / language / gofer / Sources / original / gs / apr2 < prev    next >
Encoding:
Text File  |  1993-02-12  |  171 b   |  7 lines
  1. main     = appendChan stdout (answer 10) exit done
  2.  
  3. answer n = foldr (++) "\n" (map (pad 5 . show) [ x * x | x<-[1..10] ])
  4.  
  5. pad n s  = iterate (' ':) s !! (n - length s)
  6.  
  7.