diff options
Diffstat (limited to 'src/GF/Shell/TeachYourself.hs')
| -rw-r--r-- | src/GF/Shell/TeachYourself.hs | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/src/GF/Shell/TeachYourself.hs b/src/GF/Shell/TeachYourself.hs index 0a006c4ac..7cb3594f7 100644 --- a/src/GF/Shell/TeachYourself.hs +++ b/src/GF/Shell/TeachYourself.hs @@ -1,15 +1,15 @@ ---------------------------------------------------------------------- -- | --- Module : (Module) --- Maintainer : (Maintainer) +-- Module : TeachYourself +-- Maintainer : AR -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/02/18 19:21:20 $ +-- > CVS $Date: 2005/02/24 11:46:37 $ -- > CVS $Author: peb $ --- > CVS $Revision: 1.4 $ +-- > CVS $Revision: 1.5 $ -- --- (Description of the module) +-- translation and morphology quiz. AR 10\/5\/2000 -- 12\/4\/2002 ----------------------------------------------------------------------------- module TeachYourself where @@ -71,15 +71,17 @@ morphoTrainList opts ig number = do gr = grammar ig cnc = cncId ig --- compare answer to the list of right answers, increase score and give feedback +-- | compare answer to the list of right answers, increase score and give feedback mkAnswer :: [String] -> String -> (Integer, String) mkAnswer as s = if (elem (norml s) as) then (1,"Yes.") else (0,"No, not" +++ s ++ ", but" ++++ unlines as) + +norml :: String -> String norml = unwords . words ---- the maximal number of precompiled quiz problems +-- | the maximal number of precompiled quiz problems infinity :: Integer infinity = 123 |