Commit 0c425780 authored by simonmar's avatar simonmar

[project @ 2005-04-28 12:08:12 by simonmar]

mode=slow
parent f7f1672b
module Main (main) -- comp_lab_zift
where {
import System.Environment (getArgs);
--partain: import Fast2haskell;
#include "../Fast2haskell.hs"
strict_show_i::Int -> [Char];
......@@ -879,6 +880,5 @@ data
f_zip::([t1],[t2]) -> [(t1,t2)];
f_zip (a_x,a_y)=f_zip2 a_x a_y;
f_main a_x=f_benchmark_main a_x;
c_input=(10 :: Int);
main = putStr (f_main c_input)
main = do (n:_) <- getArgs; putStr (f_main (read n :: Int))
}
......@@ -3,5 +3,9 @@ include $(TOP)/mk/boilerplate.mk
SRC_HC_OPTS += -cpp -fglasgow-exts
FAST_OPTS = 10
NORM_OPTS = 10
SLOW_OPTS = 13
include $(TOP)/mk/target.mk
module Main (main) -- event
where {
import System.Environment (getArgs);
--partain: import Fast2haskell;
#include "../Fast2haskell.hs"
strict_show_i::Int -> [Char];
......@@ -446,6 +447,5 @@ data
f_zip::([t1],[t2]) -> [(t1,t2)];
f_zip (a_x,a_y)=f_zip2 a_x a_y;
f_main a_x=f_benchmark_main a_x;
c_input=(400000 :: Int);
main = putStr (f_main c_input)
main = do (n:_) <- getArgs; putStr (f_main (read n :: Int))
}
......@@ -3,5 +3,9 @@ include $(TOP)/mk/boilerplate.mk
SRC_HC_OPTS += -cpp -fglasgow-exts
FAST_OPTS = 400000
NORM_OPTS = 400000
SLOW_OPTS = 1500000
include $(TOP)/mk/target.mk
module Main (main) -- fft
where {
import System.Environment (getArgs);
--partain: import Fast2haskell;
#include "../Fast2haskell.hs"
strict_show_i::Int -> [Char];
......@@ -407,6 +408,5 @@ data
f_zip::([t1],[t2]) -> [(t1,t2)];
f_zip (a_x,a_y)=f_zip2 a_x a_y;
f_main a_x=f_benchmark_main a_x;
c_input=(5 :: Int);
main = putStr (f_main c_input)
main = do (n:_) <- getArgs; putStr (f_main (read n :: Int))
}
......@@ -3,5 +3,9 @@ include $(TOP)/mk/boilerplate.mk
SRC_HC_OPTS += -cpp -fglasgow-exts
FAST_OPTS = 5
NORM_OPTS = 5
SLOW_OPTS = 8
include $(TOP)/mk/target.mk
module Main (main) -- genfft
where {
import System.Environment (getArgs);
--partain: import Fast2haskell;
#include "../Fast2haskell.hs"
strict_show_i::Int -> [Char];
......@@ -497,6 +498,5 @@ data
f_zip::([t1],[t2]) -> [(t1,t2)];
f_zip (a_x,a_y)=f_zip2 a_x a_y;
f_main a_x=f_benchmark_main a_x;
c_input=(7 :: Int);
main = putStr (f_main c_input)
main = do (n:_) <- getArgs; putStr (f_main (read n :: Int))
}
......@@ -3,5 +3,8 @@ include $(TOP)/mk/boilerplate.mk
SRC_HC_OPTS += -cpp -fglasgow-exts
include $(TOP)/mk/target.mk
FAST_OPTS = 7
NORM_OPTS = 7
SLOW_OPTS = 11
include $(TOP)/mk/target.mk
module Main (main) -- ida
where {
import System.Environment (getArgs);
--partain: import Fast2haskell;
#include "../Fast2haskell.hs"
strict_show_i::Int -> [Char];
......@@ -65,7 +66,7 @@ data
} in (++) (f_show_pos r_inipos) ((++) (f_concat (f_map f_show_square r_inisqr)) ((++) "\n"
((++) (strict_show_i r_bound) ((++) " " ((++) (strict_show_i r_opt_part) "\n")))));
f_benchmark_main::Int -> [Char];
f_benchmark_main a_seed=f_main' a_seed (4 :: Int) (4 :: Int) (7 :: Int);
f_benchmark_main a_size=f_main' (6 :: Int) (a_size :: Int) (4 :: Int) (7 :: Int);
f_func_split::(t1 -> Bool) -> [t1] -> T_split [t1];
f_func_split a_func []=F_SPLIT [] [];
f_func_split a_func (a_elem_1:a_elem_list)=
......@@ -485,6 +486,5 @@ data
f_zip::([t1],[t2]) -> [(t1,t2)];
f_zip (a_x,a_y)=f_zip2 a_x a_y;
f_main a_x=f_benchmark_main a_x;
c_input=(6 :: Int);
main = putStr (f_main c_input)
main = do (n:_) <- getArgs; putStr (f_main (read n :: Int))
}
......@@ -3,5 +3,9 @@ include $(TOP)/mk/boilerplate.mk
SRC_HC_OPTS += -cpp -fglasgow-exts
FAST_OPTS = 4
NORM_OPTS = 4
SLOW_OPTS = 6
include $(TOP)/mk/target.mk
(1,1)((2,1)-(1,2))((1,2)-(2,2))((1,4)-(2,4))((2,4)-(2,3))((1,3)-(1,4))((6,1)-(6,2))((6,4)-(5,3))((4,4)-(3,4))((6,3)-(5,4))((5,4)-(4,2))((6,2)-(6,4))((5,3)-(6,3))((5,2)-(5,1))((5,1)-(6,1))((4,1)-(4,1))((3,4)-(1,3))((4,3)-(4,4))((4,2)-(5,2))((3,3)-(3,3))((2,3)-(4,3))((3,2)-(2,1))((3,1)-(3,2))((2,2)-(3,1))
42 88888
......@@ -3,5 +3,9 @@ include $(TOP)/mk/boilerplate.mk
SRC_HC_OPTS += -cpp -fglasgow-exts
# no fast/norm/slow stuff: increasing the parameter would generate a
# huge .stdout file, bloating the repository and not testing anything
# particularly useful --SDM.
include $(TOP)/mk/target.mk
......@@ -3,5 +3,9 @@ include $(TOP)/mk/boilerplate.mk
SRC_HC_OPTS += -cpp -fglasgow-exts
# no fast/norm/slow stuff: increasing the parameter would generate a
# huge .stdout file, bloating the repository and not testing anything
# particularly useful --SDM.
include $(TOP)/mk/target.mk
......@@ -3,5 +3,8 @@ include $(TOP)/mk/boilerplate.mk
SRC_HC_OPTS += -cpp -fglasgow-exts -H80M
# not suitable for the fast/norm/slow treatment: GHC optimises
# the repeatition away.
include $(TOP)/mk/target.mk
module Main (main) -- sched
where {
import System.Environment (getArgs);
--partain: import Fast2haskell;
#include "../Fast2haskell.hs"
strict_show_i::Int -> [Char];
......@@ -550,6 +551,5 @@ data
f_zip::([t1],[t2]) -> [(t1,t2)];
f_zip (a_x,a_y)=f_zip2 a_x a_y;
f_main a_x=f_benchmark_main a_x;
c_input=(11 :: Int);
main = putStr (f_main c_input)
main = do (n:_) <- getArgs; putStr (f_main (read n :: Int))
}
......@@ -3,5 +3,9 @@ include $(TOP)/mk/boilerplate.mk
SRC_HC_OPTS += -cpp -fglasgow-exts
FAST_OPTS = 11
NORM_OPTS = 11
SLOW_OPTS = 14
include $(TOP)/mk/target.mk
module Main (main) -- solid
where {
import System.Environment (getArgs);
--partain: import Fast2haskell;
#include "../Fast2haskell.hs"
strict_show_i::Int -> [Char];
......@@ -1239,6 +1240,5 @@ data
f_zip::([t1],[t2]) -> [(t1,t2)];
f_zip (a_x,a_y)=f_zip2 a_x a_y;
f_main a_x=f_benchmark_main a_x;
c_input=(13 :: Int);
main = putStr (f_main c_input)
main = do (n:_) <- getArgs; putStr (f_main (read n :: Int))
}
......@@ -3,5 +3,9 @@ include $(TOP)/mk/boilerplate.mk
SRC_HC_OPTS += -cpp -fglasgow-exts
FAST_OPTS = 13
NORM_OPTS = 13
SLOW_OPTS = 15
include $(TOP)/mk/target.mk
1.0
1.0
1.0
0.9921875
0.986328125
0.974853515625
0.96685791015625
0.964263916015625
0.9637413024902344
0.9635915756225586
0.9635202884674072
0.9635137319564819
0.9635114073753357
0.9635102823376656
0.9635101817548275
module Main (main) -- transform
where {
import System.Environment (getArgs);
--partain: import Fast2haskell;
#include "../Fast2haskell.hs"
strict_show_i::Int -> [Char];
......@@ -1137,6 +1138,5 @@ data
f_zip::([t1],[t2]) -> [(t1,t2)];
f_zip (a_x,a_y)=f_zip2 a_x a_y;
f_main a_x=f_benchmark_main a_x;
c_input=(500 :: Int);
main = putStr (f_main c_input)
main = do (n:_) <- getArgs; putStr (f_main (read n :: Int))
}
......@@ -3,5 +3,9 @@ include $(TOP)/mk/boilerplate.mk
SRC_HC_OPTS += -cpp -fglasgow-exts
FAST_OPTS = 500
NORM_OPTS = 500
SLOW_OPTS = 1000
include $(TOP)/mk/target.mk
module Main (main) -- typecheck
where {
import System.Environment (getArgs);
--partain: import Fast2haskell;
#include "../Fast2haskell.hs"
strict_show_i::Int -> [Char];
......@@ -653,6 +654,5 @@ data
f_zip::([t1],[t2]) -> [(t1,t2)];
f_zip (a_x,a_y)=f_zip2 a_x a_y;
f_main a_x=f_benchmark_main a_x;
c_input=(600 :: Int);
main = putStr (f_main c_input)
main = do (n:_) <- getArgs; putStr (f_main (read n :: Int))
}
......@@ -3,5 +3,9 @@ include $(TOP)/mk/boilerplate.mk
SRC_HC_OPTS += -cpp -fglasgow-exts
FAST_OPTS = 600
NORM_OPTS = 600
SLOW_OPTS = 1200
include $(TOP)/mk/target.mk
module Main (main) -- wang
where {
import System.Environment (getArgs);
--partain: import Fast2haskell;
#include "../Fast2haskell.hs"
strict_show_i::Int -> [Char];
......@@ -352,6 +353,5 @@ data
f_zip::([t1],[t2]) -> [(t1,t2)];
f_zip (a_x,a_y)=f_zip2 a_x a_y;
f_main a_x=f_benchmark_main a_x;
c_input=(250 :: Int);
main = putStr (f_main c_input)
main = do (n:_) <- getArgs; putStr (f_main (read n :: Int))
}
......@@ -3,5 +3,9 @@ include $(TOP)/mk/boilerplate.mk
SRC_HC_OPTS += -cpp -fglasgow-exts
FAST_OPTS = 250
NORM_OPTS = 250
SLOW_OPTS = 500
include $(TOP)/mk/target.mk
module Main (main) -- wave4main
where {
import System.Environment (getArgs);
--partain: import Fast2haskell;
#include "../Fast2haskell.hs"
strict_show_i::Int -> [Char];
......@@ -594,6 +595,5 @@ data
f_zip::([t1],[t2]) -> [(t1,t2)];
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 = putStr (f_main c_input)
main = do (n:_) <- getArgs; putStr (f_main (read n :: Int))
}
......@@ -3,5 +3,9 @@ include $(TOP)/mk/boilerplate.mk
SRC_HC_OPTS += -cpp -fglasgow-exts
FAST_OPTS = 4000
NORM_OPTS = 4000
SLOW_OPTS = 6000
include $(TOP)/mk/target.mk
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