home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / lang / function / 933 < prev    next >
Encoding:
Internet Message Format  |  1992-07-21  |  1.4 KB
  1. Path: sparky!uunet!mcsun!uknet!glasgow!daemon
  2. From: jjl@doc.ic.ac.uk (Junxian J Liu)
  3. Newsgroups: comp.lang.functional
  4. Subject: Re: Questions on converting Miranda code to Haskell
  5. Message-ID: <20957.9207211558@peaberry.doc.ic.ac.uk>
  6. Date: 21 Jul 92 15:58:23 GMT
  7. Sender: daemon@dcs.glasgow.ac.uk
  8. Organization: Glasgow University Computing Science Dept.
  9. Lines: 35
  10. Approved: usenet@dcs.glasgow.ac.uk
  11. X-Mailer: mail-news 2.0.5
  12.  
  13.  
  14. The character '>' appeared at the first column of my original 
  15. message was automatically converted to '|' somehow (I don't know
  16. why). I list the Miranda code here again (leave first coulmn
  17. blank):
  18.  
  19.  > ns    = map numval (lines (read "data"))
  20.  
  21.  > n     = # ns
  22.  
  23.  > sqrts = map sqrt ns
  24.  
  25.  > sum_sqrts = sum sqrts
  26.  
  27.  > avg_sqrts = sum_sqrts / n
  28.  
  29.  > men_sqrts = sum (map minus_avg_sqr sqrts) / n
  30.  >             where
  31.  >             minus_avg_sqr x = (x - avg_sqrts) * (x - avg_sqrts)
  32.  
  33.  > result  = "number of values = " ++ show n ++ "\n"
  34.  >           ++ "sum_sqrts = " ++ show sum_sqrts ++ "\n"
  35.  >           ++ "avg_sqrts = " ++ show avg_sqrts ++ "\n"
  36.  >           ++ "men_sqrts = " ++ show men_sqrts ++ "\n"
  37.  
  38.  > main    = [Stdout result]
  39.  
  40. Sorry about this.
  41.  
  42. Liu.
  43. -------
  44. Dr J Liu,   Department of Computing, Imperial College, 
  45.             180 Queens Gate, London SW7 2BZ, United Kingdom.
  46. Telephone : (+44 71/071) 589 5111 ext. 5033  Fax : (+44 71/071) 581 8024
  47. Email:      jjl@doc.ic.ac.uk
  48.