[Hugs] #82: Not a Number

[Hugs]

#82: Not a Number
--------------------+-------------------------------------------------------
 Reporter:  guest   |       Owner:  nobody
     Type:  defect  |      Status:  new   
 Priority:  minor   |   Milestone:        
Component:  hugs    |     Version:  200609
 Keywords:          |  
--------------------+-------------------------------------------------------
 My Program was:

 {{{
 cosineSeries :: Float -> [Float]
 cosineSeries x = scanl  (cosineSerPartSum x) 1 [1..]

 cosineSerPartSum :: Float -> Float -> Integer -> Float
 cosineSerPartSum x prev i = prev + ((-1) ^ i) * (x ^ (2 * i)) /
 fromIntegral (fak (2 * i))

 fak :: Integer -> Integer
 fak n = product [1..n]
 }}}

 My Study Mate is running WinHugs and when he types "cosineSeries 2" he
 gets many Numbers....
 I am Running hugs98 on a Mac. Im getting something like this:

 Main> cosineSeries 2
 [1.0,-1.0,-0.3333333,-0.4222222,-0.415873,-0.4161552,-0.4161466,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,-0.4161468,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,çnan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,nan,^C{Interrupted!}

-- 
Ticket URL: <http://hackage.haskell.org/trac/hugs/ticket/82>
Hugs <http://www.haskell.org/hugs/>
Hugs 98, an interpreter for Haskell