summaryrefslogtreecommitdiff
path: root/testsuite/tests/array/should_run/arr005.hs
blob: 274f8bb1c11abf5bf2e114b3503b201f9d42830f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
-- !!! Array - recurrences
-- 
-- array does not evaluate the elements.
--
import Data.Array

main =
 let 
  a1 = array (1,100) ((1,1::Integer):[(i,i*a1!(i-1))|i<-[2..100]])
 in
 print a1

--