ghc/lib/tests/Array/arr005/Main.hs

   1 -- Array - recurrences
   2 --
   3 -- array does not evaluate the elements.
   4 --
   5 import Array
   6
   7 main =
   8  let
   9   a1 = array (1,100) ((1,1::Integer):[(i,i*a1!(i-1))|i<-[2..100]])
  10  in
  11  print a1
  12
  13 --
  14
  15
  16