#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