[Hugs] #54: INTERNAL ERROR: build

13 Feb 2007


      #54: INTERNAL ERROR: build
--------------------------+-------------------------------------------------
 Reporter:  guest         |       Owner:  nobody 
     Type:  defect        |      Status:  new    
 Priority:  major         |   Milestone:         
Component:  build system  |     Version:  current
 Keywords:                |  
--------------------------+-------------------------------------------------
Main> fvsp 450
 INTERNAL ERROR: build
 Please report this Hugs bug to http://hackage.haskell.org/trac/hugs

 //code

 pots :: Num a => a -> [a]
 pots x = scanl (*) 1 (repeat x)

 factoriales :: [Integer]
 factoriales = scanl (*) 1 [1..]

 fvsp :: Integer -> Int
 fvsp n = length (takeWhile not (zipWith (<) (pots n) factoriales))

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