ghc/tests/array/should_run/arr013.hs

   1 import Ratio -- 1.3
   2 import Array -- 1.3
   3 infix 1 =:
   4 (=:) a b = (a,b)
   5
   6 main = putStr (shows sub_b "\n")
   7     where
   8         sub_b :: Array Int Double
   9         sub_b = ixmap (102, 113) id b
  10
  11         b :: Array Int Double
  12         b = fmap ( \ r -> fromRational r / pi )
  13                  (ixmap (101,200) (\ i -> toInteger i - 100) a)
  14
  15         a :: Array Integer (Ratio Integer)
  16         a = array (1,100) ((1 =: 1) : [i =: fromInteger i * a!(i-1)
  17                                         | i <- [2..100]])