[project @ 2001-04-30 11:23:28 by simonpj]
[ghc-hetmet.git] / ghc / tests / etc / wdp-array.hs
1 import MiniPrel
2
3 a :: Array Int Int
4 a = array (1,100) ((1 := 1) : [i := i * a!(i-1) | i <- [2..100]])