[project @ 1996-07-25 21:02:03 by partain]
[nofib.git] / GHC_ONLY / array001 / Main.hs
index 4f1ee2d..8395b2f 100644 (file)
@@ -1,4 +1,8 @@
-main _ = [AppendChan stdout (shows a "\n")]
+import Array -- 1.3
+infix 1 =:
+(=:) a b = (a,b)
+
+main = putStr (shows a "\n") 
     where
        a :: Array Integer Integer
-       a = array (1,100) ((1 := 1) : [i := i * a!(i-1) | i <- [2..100]])
+       a = array (1,100) ((1 =: 1) : [i =: i * a!(i-1) | i <- [2..100]])