#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
_______________________________________________
Hugs-Bugs mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/hugs-bugs
