ghc/tests/array/should_run/arr005.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