Commit 9afb4d7f authored by Ian Lynagh's avatar Ian Lynagh

Remove the haskell98 dependency from the array tests

parent fc6f449e
-- !!! Simple array creation
import Array
import Data.Array
main =
let a1 = array (1,3) (zip [2,3,1] ['a'..'d']) in
......
......@@ -13,7 +13,7 @@
-- strict for the indices. To test this, we do (a!1)
-- twice, expecting to see the same value..
--
import Array
import Data.Array
main =
let a1 = array (1,3) (zip (1:[1..3]) ['a'..'d']) in
......
......@@ -9,7 +9,7 @@
-- to have its spine be evaluated - so the indexing below
-- should cause a failure.
--
import Array
import Data.Array
main =
let a1 = array (1::Int,3) (zip ([1..4]) ['a'..'d']) in
......
......@@ -3,7 +3,7 @@
-- Sample Haskell implementation in the 1.3 Lib report defines
-- this as being undefined/error.
import Array
import Data.Array
main =
let a1 = array (1,3) (zip ([1,2]) ['a'..'d']) in
......
......@@ -2,7 +2,7 @@
--
-- array does not evaluate the elements.
--
import Array
import Data.Array
main =
let
......
......@@ -2,7 +2,7 @@
--
-- print a couple of them to try to expose empty arrays
-- to a GC or two.
import Array
import Data.Array
main =
let
......
......@@ -2,7 +2,7 @@
--
-- empty arrays are legal, but indexing them is undefined!
--
import Array
import Data.Array
main =
let
......
......@@ -4,7 +4,7 @@
-- with out-of-range index is undefined.
--
--
import Array
import Data.Array
main =
let
......
......@@ -3,7 +3,7 @@
-- testing the well-behavedness of
-- derived ops for empty and non-empty arrays
--
import Array
import Data.Array
main =
let
......
......@@ -3,8 +3,8 @@
--
module Main(main) where
import Array
import Ix
import Data.Array
import Data.Ix
hist :: (Ix a, Num b) => (a,a) -> [a] -> Array a b
hist bnds is = accumArray (+) 0 bnds [(i,1) | i <- is , inRange bnds i]
......
......@@ -3,8 +3,8 @@
--
module Main(main) where
import Array
import Ix
import Data.Array
import Data.Ix
hist :: (Ix a, Num b) => (a,a) -> [a] -> Array a b
hist bnds is = accumArray (+) 0 bnds [(i,1) | i <- is , inRange bnds i]
......
......@@ -3,8 +3,8 @@
--
module Main(main) where
import Array
import Char
import Data.Array
import Data.Char
main =
let
......
import Ratio -- 1.3
import Array -- 1.3
import Data.Ratio -- 1.3
import Data.Array -- 1.3
infix 1 =:
(=:) a b = (a,b)
......
......@@ -3,7 +3,7 @@
module Main where
import Array
import Data.Array
-- All in main is only to show the strange behaviour.
--
......
......@@ -2,8 +2,8 @@
-- Spectral Norm benchmark
import Array
import System(getArgs)
import Data.Array
import System.Environment (getArgs)
main = do
--[arg] <- getArgs
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment