[project @ 2005-04-28 10:10:05 by simonmar]
authorsimonmar <unknown>
Thu, 28 Apr 2005 10:10:05 +0000 (10:10 +0000)
committersimonmar <unknown>
Thu, 28 Apr 2005 10:10:05 +0000 (10:10 +0000)
mode=slow

spectral/awards/Main.hs
spectral/awards/Makefile

index 05107aa..8ce3849 100644 (file)
@@ -29,6 +29,8 @@ Kevin
 
 import QSort
 import List((\\))
+import System.Environment
+import Control.Monad
 
 -- Generate all possible permutations of length m from a list of scores
 perms m [] = []
@@ -61,4 +63,6 @@ competitors = [
                ("Kevin",[9,23,17,54,18,41,9,18,14])
              ]
 
-main = print (findallawards competitors)
+main = do
+ (n:_) <- getArgs
+ replicateM_ (read n) $ print (findallawards competitors)
index cf44ea3..b0955ee 100644 (file)
@@ -3,3 +3,7 @@ include $(TOP)/mk/boilerplate.mk
 -include opts.mk
 include $(TOP)/mk/target.mk
 
+FAST_OPTS = 1
+NORM_OPTS = 1
+SLOW_OPTS = 200000
+