[project @ 1996-07-25 21:02:03 by partain]
[nofib.git] / spectral / hartel / wave4main / Main2.hs
index 281b1c5..c1524b7 100644 (file)
@@ -8,7 +8,7 @@ where {
     f_sumcode a_xs=
         let { 
             f_sumcode' [] a_sum a_n=(++) (show (((+) :: (Int -> Int -> Int)) a_sum a_n)) ((:) '/' (show a_n));
-            f_sumcode' (a_x:a_xs) a_sum a_n=f_sumcode' a_xs (((+) :: (Int -> Int -> Int)) a_sum (ord a_x)) (((+) :: (Int -> Int -> Int)) a_n (1 :: Int))
+            f_sumcode' (a_x:a_xs) a_sum a_n=f_sumcode' a_xs (((+) :: (Int -> Int -> Int)) a_sum (fromEnum a_x)) (((+) :: (Int -> Int -> Int)) a_n (1 :: Int))
          } in  f_sumcode' a_xs (0 :: Int) (0 :: Int);
 type 
     T_matrix t1=Array_type (Array_type t1);
@@ -246,9 +246,9 @@ type
                 else 
                     ' ';
             r_i=floor (entier (((+) :: (Double -> Double -> Double)) (0.500000 :: Double) (f_abs (((*) :: (Double -> Double -> Double)) a_x (100.000 :: Double)))));
-            r_d3_c=chr (((+) :: (Int -> Int -> Int)) (ord '0') (((rem) :: (Int -> Int -> Int)) r_i (10 :: Int)));
-            r_d2_c=chr (((+) :: (Int -> Int -> Int)) (ord '0') (((rem) :: (Int -> Int -> Int)) (((div) :: (Int -> Int -> Int)) r_i (10 :: Int)) (10 :: Int)));
-            r_d1_c=chr (((+) :: (Int -> Int -> Int)) (ord '0') (((rem) :: (Int -> Int -> Int)) (((div) :: (Int -> Int -> Int)) r_i (100 :: Int)) (10 :: Int)))
+            r_d3_c=toEnum (((+) :: (Int -> Int -> Int)) (fromEnum '0') (((rem) :: (Int -> Int -> Int)) r_i (10 :: Int)));
+            r_d2_c=toEnum (((+) :: (Int -> Int -> Int)) (fromEnum '0') (((rem) :: (Int -> Int -> Int)) (((div) :: (Int -> Int -> Int)) r_i (10 :: Int)) (10 :: Int)));
+            r_d1_c=toEnum (((+) :: (Int -> Int -> Int)) (fromEnum '0') (((rem) :: (Int -> Int -> Int)) (((div) :: (Int -> Int -> Int)) r_i (100 :: Int)) (10 :: Int)))
          } in  
             if (((>) :: (Int -> Int -> Bool)) r_i (999 :: Int))
             then "*****"
@@ -379,8 +379,8 @@ type
     f_const a_x a_y=a_x;
     f_digit::Char -> Bool;
     f_digit a_x=
-        if (((<=) :: (Int -> Int -> Bool)) (ord '0') (ord a_x))
-        then (((<=) :: (Int -> Int -> Bool)) (ord a_x) (ord '9'))
+        if (((<=) :: (Int -> Int -> Bool)) (fromEnum '0') (fromEnum a_x))
+        then (((<=) :: (Int -> Int -> Bool)) (fromEnum a_x) (fromEnum '9'))
         else 
             False;
     f_drop::Int -> [t1] -> [t1];
@@ -445,14 +445,14 @@ type
     f_letter::Char -> Bool;
     f_letter a_c=
         if (
-            if (((<=) :: (Int -> Int -> Bool)) (ord 'a') (ord a_c))
-            then (((<=) :: (Int -> Int -> Bool)) (ord a_c) (ord 'z'))
+            if (((<=) :: (Int -> Int -> Bool)) (fromEnum 'a') (fromEnum a_c))
+            then (((<=) :: (Int -> Int -> Bool)) (fromEnum a_c) (fromEnum 'z'))
             else 
                 False)
         then True
         else 
-        if (((<=) :: (Int -> Int -> Bool)) (ord 'A') (ord a_c))
-        then (((<=) :: (Int -> Int -> Bool)) (ord a_c) (ord 'Z'))
+        if (((<=) :: (Int -> Int -> Bool)) (fromEnum 'A') (fromEnum a_c))
+        then (((<=) :: (Int -> Int -> Bool)) (fromEnum a_c) (fromEnum 'Z'))
         else 
             False;
     f_limit::[Double] -> Double;
@@ -471,7 +471,7 @@ type
                 else 
                     ((:) [] [])
          } in  
-            if (((==) :: (Int -> Int -> Bool)) (ord a_a) (ord '\o012'))
+            if (((==) :: (Int -> Int -> Bool)) (fromEnum a_a) (fromEnum '\o012'))
             then ((:) [] (f_lines a_x))
             else 
                 ((:) ((:) a_a (head r_xs)) (tail r_xs));
@@ -593,5 +593,5 @@ data
     f_zip (a_x,a_y)=f_zip2 a_x a_y;
     f_main a_x=f_benchmark_main a_x;
     c_input=(4000 :: Int);
-    main r = [AppendChan "stdout" (f_main c_input)]
+    main = putStr (f_main c_input)
 }