--- /dev/null
+module GuessWhat\r
+\r
+/* Instructions:\r
+\r
+(1) copy this main file (GuessWhat.icl), QA_shapes.(d/i)cl, and QA.(d/i)cl in the folder:\r
+ {iTasks-SDK}\Experiments\SVG_tests\\r
+ \r
+(2) create a new project and set de environment to 'iTasks'\r
+\r
+(3) Bring-Up-To-Date and start generated application\r
+\r
+(4) Open a browser and navigate to localhost.\r
+ The application creates a task that randomly selects a number of image-name pairs and asks the user to \r
+ give the right name to the right image. Once this is done correctly, the task terminates, otherwise the\r
+ user can try again.\r
+\r
+(5) Create a new set of QA-shapes. You can choose one of the following:\r
+ (i) Dutch traffic signs. See attached document:\r
+ Reglement-verkeersregels-en-verkeersteke.pdf, appendix 1, hoofdstuk A upto L.\r
+ \r
+ Implement **at least 15** traffic signs. In your solution, clearly indicate at each traffic sign \r
+ which one you have implemented (use the numbers in the right-most column in the above document).\r
+ \r
+ \r
+ (ii) European flags. See the following wikipedia page:\r
+ http://nl.wikipedia.org/wiki/Lijst_van_vlaggen_van_Europa\r
+ \r
+ Implement **at least 15** flags. In your solution, clearly indicate at each flag which one you\r
+ have implemented by the name of the nation or organization.\r
+*/\r
+\r
+import iTasks // de algemene iTask API\r
+import iTasks.API.Extensions.SVG.SVGlet // specialiseer task editors\r
+from Data.List import zipWith\r
+\r
+import QA_shapes // the QA elements that have to be guessed\r
+\r
+nr_of_qas :== 10\r
+\r
+Start :: *World -> *World\r
+Start world = startEngine [publish "/" (WebApp []) (\_ -> play queries)] world\r
+\r
+play :: [QA] -> Task String\r
+play []\r
+ = viewInformation "missing queries" [] "No queries are available"\r
+play qas\r
+ = sequence "throw dice" (repeatn (nr_of_qas + length qas) (get randomInt))\r
+ >>= \nrs -> let (nrs1,nrs2) = splitAt nr_of_qas nrs\r
+ shuffled_qas = shuffle nrs2 qas\r
+ (qs,as) = unzip (take nr_of_qas shuffled_qas)\r
+ sas = shuffle nrs1 as\r
+ in keep_guessing qs as sas\r
+\r
+keep_guessing :: [Image ()] [String] [String] -> Task String\r
+keep_guessing qs as sas\r
+ = allTasks [guess i q sas \\ q <- qs & i <- [1 ..]]\r
+ >>* [ OnAction (Action "Check" []) (hasValue (check_answers qs as sas))\r
+ , OnAction ActionQuit (always (return "Goodbye"))\r
+ ] \r
+\r
+check_answers :: [Image ()] [String] [String] [String] -> Task String\r
+check_answers qs as sas nas\r
+| ok == nr_of_qas\r
+ = viewInformation "Tada!" [] "Congratulations! All correct!"\r
+| otherwise\r
+ = (viewInformation "Ouch!" [] ("Too bad: there are " <+++ nr_of_qas - ok <+++ " mistakes.")\r
+ ||-\r
+ allTasks [ ((show_image i q <<@ ArrangeHorizontal)\r
+ ||-\r
+ (viewInformation "isn't" [] a <<@ ArrangeHorizontal)\r
+ ) <<@ ArrangeHorizontal\r
+ \\ wrong <- zipWith (<>) as nas\r
+ & q <- qs\r
+ & a <- nas\r
+ & i <- [1 ..]\r
+ | wrong\r
+ ]\r
+ ) >>* [ OnAction (Action "Try again" []) (always (keep_guessing qs as sas))\r
+ , OnAction ActionQuit (always (return "Goodbye"))\r
+ ]\r
+where\r
+ ok = length [() \\ a <- as & b <- nas | a == b]\r
+\r
+show_image :: Int (Image ()) -> Task ()\r
+show_image i q = viewInformation ("image " <+++ i) [imageView (\_ _ -> q) (\_ _ -> Nothing)] ()\r
+\r
+guess :: Int (Image ()) [String] -> Task String\r
+guess i q sas\r
+ = ( (show_image i q <<@ ArrangeHorizontal)\r
+ ||-\r
+ (enterChoice "is:" [ChooseWith (ChooseFromComboBox id)] sas <<@ ArrangeHorizontal)\r
+ ) <<@ ArrangeHorizontal\r
+\r
+shuffle :: [Int] [a] -> [a]\r
+shuffle rnrs as\r
+ = fst (unzip (sortBy (\(_,r1) (_,r2) -> r1 < r2) (zip2 as rnrs)))\r
repositories / fp1415.git / blobdiff