Commit 0e1b113e authored by simonmar's avatar simonmar

[project @ 2005-04-28 10:10:05 by simonmar]

mode=slow
parent 138b2ec1
......@@ -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)
......@@ -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
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