#54: INTERNAL ERROR: build ---------------------+------------------------------------------------------ Reporter: guest | Owner: nobody Type: defect | Status: new Priority: major | Milestone: Component: hugs | Version: current Resolution: | Keywords: ---------------------+------------------------------------------------------ Old description:
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))
New description: {{{ 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