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