Commit a7f17de2 authored by georgi's avatar georgi
Browse files

Compile all files

parent bd35788d
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
File added
File added
File added
......@@ -59,7 +59,7 @@ maxNumCharadeSubtrees
--
maxNumSubtractionSubtrees :: Int
maxNumSubtractionSubtrees
= 3
= 2
--
-- Determines the size of the text you are allowed to remove
......
File added
File added
......@@ -2176,7 +2176,6 @@ frenchTable
("men", ["mm"]),
("queen", ["renne"]),
("road", ["rue"]),
("sad", ["triste"]),
("some", ["du"]),
("son", ["fils"]),
("street", ["rue"]),
......@@ -2263,7 +2262,6 @@ spanishTable
("man", ["hombre"]),
("nothing", ["nada"]),
("queen", ["renia"]),
("sad", ["triste"]),
("thanks", ["gracias"]),
("thank you", ["gracias"]),
("the", ["la","el"]),
......@@ -2304,7 +2302,6 @@ italianTable
("nothing", ["niente"]),
("queen", ["regina"]),
("road", ["strada"]),
("sad", ["triste"]),
("street", ["strada"]),
("thanks", ["gracie"]),
("thank you", ["gracie"]),
......@@ -2337,7 +2334,6 @@ latinTable
("nothing", ["nihil"]),
("queen", ["regina"]),
("road", ["via"]),
("sad", ["tristis"]),
("street", ["via"]),
("thanks", ["gratias"]),
("this", ["hoc"]),
......@@ -2421,7 +2417,6 @@ synList
("a month", ["pm"]),
("a year", ["pa"]),
("able to", ["can"]),
("abroad", ["foreign"]),
("adagio", ["slowly"]),
("acceptable", ["u"]),
("address", ["orate"]),
......@@ -2489,7 +2484,6 @@ synList
("bible", ["av"]),
("blockbuster", ["sculptor"]),
("blows up", ["expands"]),
("boards", ["gets on"]),
("boat", ["dingey"]),
("boats", ["dingeys"]),
("bowler", ["drake"]),
......@@ -2808,7 +2802,6 @@ synList
("m", ["medium-size","medium-sized"]),
("meeting", ["contact"]),
("merchant of Venice", ["polo"]),
("messi", ["lionel"]),
("missile", ["shell"]),
("missiles", ["shells"]),
("money", ["tin","cent","fiver","tenner"]),
......@@ -2900,7 +2893,7 @@ synList
("planted", ["under"]),
("podgy", ["largish"]),
("polar", ["n","s"]),
("pompous", ["self important"]),
("pompous", ["selfimportant"]),
("poorly made", ["gimcrack"]),
("poor horse", ["rosinante"]),
("port", ["rio","aden","wine"]),
......@@ -2911,10 +2904,9 @@ synList
("prison", ["bird","jug","quad","cooler","pen","nick","hock","stir","can"]),
("provided", ["if"]),
("providing", ["if"]),
("public toilet", ["ladies", "gents"]),
("puzzle", ["rebus"]),
("put food in this", ["tuckerbag"]),
("race", ["classic","gold cup","oaks","national","derby"]),
("race", ["oaks","national","derby"]),
("record", ["log","disc","entry"]),
("red", ["che","castro","kim","lenin","mao","tito","stalin","marx"]),
("regarding", ["over"]),
......@@ -3033,8 +3025,6 @@ synList
("time", ["t","h","m","s","am","pm","ms","ns","ps","fs"]),
("tiny bit", ["mote"]),
("tobacco", ["fag","nicotiana"]),
("toilet", ["ladies", "gents"]),
("toilets", ["ladies", "gents"]),
("took", ["denuded"]),
("track", ["ry"]),
("trains", ["ry"]),
......
File added
File added
......@@ -213,8 +213,6 @@ evaluate ps pCache clue@(clueText, format) answer evalCacheOn
rs <- sequence (map (getTextStrings getter) ts)]
where
getStr (R (s, _)) = s
getTextStrings _ _
= []
-------------------------------------------------------------------
-- Evaluation rules...
......@@ -831,7 +829,7 @@ evaluate ps pCache clue@(clueText, format) answer evalCacheOn
-- solution from the two parts - that's tough for now!
--
evalB' t1@(Subtraction i t t', _)
= [R (s''', [rt, rt']) |
= [R (s''', [rt, rt']) |
rt@(R (s', _)) <- getTextStrings getStrs t,
rt'@(R (s'', _)) <- getTextStrings getStrs t',
s''' <- subtractFrom' (despace s') s''] ++
......
File added
Supports Markdown
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