Ticket #54 (new defect)
INTERNAL ERROR: build
| Reported by: | guest | Owned by: | nobody |
|---|---|---|---|
| Priority: | major | Milestone: | |
| Component: | hugs | Version: | current |
| Keywords: | Cc: |
Description (last modified by ross) (diff)
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))
Change History
Note: See
TracTickets for help on using
tickets.
