This commit is contained in:
Andros Fenollosa 2024-01-02 16:23:41 +01:00
parent b3cc6b901a
commit 58a4b295d4

View File

@ -14,106 +14,106 @@
(defun learning-irregular-verbs-in-English () (defun learning-irregular-verbs-in-English ()
"Application to learn and review irregular verbs in English." "Application to learn and review irregular verbs in English."
(interactive) (interactive)
(let ((learning-irregular-verbs-in-English--verbs '(("be" "was/were" "been") (let ((learning-irregular-verbs-in-English--verbs '(
("beat" "beat" "beaten") ("beat" "beat" "beaten")
("become" "became" "become") ("become" "became" "become")
("begin" "began" "begun") ("begin" "began" "begun")
("bend" "bent" "bent") ("bend" "bent" "bent")
("bet" "bet" "bet") ("bet" "bet" "bet")
("bite" "bit" "bitten") ("bite" "bit" "bitten")
("bleed" "bled" "bled") ("bleed" "bled" "bled")
("blow" "blew" "blown") ("blow" "blew" "blown")
("break" "broke" "broken") ("break" "broke" "broken")
("bring" "brought" "brought") ("bring" "brought" "brought")
("build" "built" "built") ("build" "built" "built")
("burn" "burnt" "burnt") ("burn" "burnt" "burnt")
("buy" "bought" "bought") ("buy" "bought" "bought")
("catch" "caught" "caught") ("catch" "caught" "caught")
("choose" "chose" "chosen") ("choose" "chose" "chosen")
("come" "came" "come") ("come" "came" "come")
("cost" "cost" "cost") ("cost" "cost" "cost")
("cut" "cut" "cut") ("cut" "cut" "cut")
("dig" "dug" "dug") ("dig" "dug" "dug")
("do" "did" "done") ("do" "did" "done")
("draw" "drew" "drawn") ("draw" "drew" "drawn")
("dream" "dreamt" "dreamt") ("dream" "dreamt" "dreamt")
("drink" "drank" "drunk") ("drink" "drank" "drunk")
("drive" "drove" "driven") ("drive" "drove" "driven")
("eat" "ate" "eaten") ("eat" "ate" "eaten")
("fall" "fell" "fallen") ("fall" "fell" "fallen")
("feed" "fed" "fed") ("feed" "fed" "fed")
("feel" "felt" "felt") ("feel" "felt" "felt")
("fight" "fought" "fought") ("fight" "fought" "fought")
("find" "found" "found") ("find" "found" "found")
("fly" "flew" "flown") ("fly" "flew" "flown")
("forget" "forgot" "forgotten") ("forget" "forgot" "forgotten")
("forgive" "forgave" "forgiven") ("forgive" "forgave" "forgiven")
("freeze" "froze" "frozen") ("freeze" "froze" "frozen")
("get" "got" "got") ("get" "got" "got")
("give" "gave" "given") ("give" "gave" "given")
("go" "went" "gone") ("go" "went" "gone")
("grow" "grew" "grown") ("grow" "grew" "grown")
("hang" "hung" "hung") ("hang" "hung" "hung")
("have" "had" "had") ("have" "had" "had")
("hear" "heard" "heard") ("hear" "heard" "heard")
("hide" "hid" "hidden") ("hide" "hid" "hidden")
("hit" "hit" "hit") ("hit" "hit" "hit")
("hold" "held" "held") ("hold" "held" "held")
("hurt" "hurt" "hurt") ("hurt" "hurt" "hurt")
("keep" "kept" "kept") ("keep" "kept" "kept")
("know" "knew" "known") ("know" "knew" "known")
("lay" "laid" "laid") ("lay" "laid" "laid")
("lead" "led" "led") ("lead" "led" "led")
("learn" "learnt" "learnt") ("learn" "learnt" "learnt")
("leave" "left" "left") ("leave" "left" "left")
("lend" "lent" "lent") ("lend" "lent" "lent")
("let" "let" "let") ("let" "let" "let")
("lie" "lay" "lain") ("lie" "lay" "lain")
("light" "lit" "lit") ("light" "lit" "lit")
("lose" "lost" "lost") ("lose" "lost" "lost")
("make" "made" "made") ("make" "made" "made")
("mean" "meant" "meant") ("mean" "meant" "meant")
("meet" "met" "met") ("meet" "met" "met")
("pay" "paid" "paid") ("pay" "paid" "paid")
("put" "put" "put") ("put" "put" "put")
("read" "read" "read") ("read" "read" "read")
("ride" "rode" "ridden") ("ride" "rode" "ridden")
("ring" "rang" "rung") ("ring" "rang" "rung")
("rise" "rose" "risen") ("rise" "rose" "risen")
("run" "ran" "run") ("run" "ran" "run")
("say" "said" "said") ("say" "said" "said")
("see" "saw" "seen") ("see" "saw" "seen")
("sell" "sold" "sold") ("sell" "sold" "sold")
("send" "sent" "sent") ("send" "sent" "sent")
("set" "set" "set") ("set" "set" "set")
("shake" "shook" "shaken") ("shake" "shook" "shaken")
("shine" "shone" "shone") ("shine" "shone" "shone")
("shoot" "shot" "shot") ("shoot" "shot" "shot")
("show" "showed" "shown") ("show" "showed" "shown")
("shut" "shut" "shut") ("shut" "shut" "shut")
("sing" "sang" "sung") ("sing" "sang" "sung")
("sink" "sank" "sunk") ("sink" "sank" "sunk")
("sit" "sat" "sat") ("sit" "sat" "sat")
("sleep" "slept" "slept") ("sleep" "slept" "slept")
("smell" "smelt" "smelt") ("smell" "smelt" "smelt")
("speak" "spoke" "spoken") ("speak" "spoke" "spoken")
("spend" "spent" "spent") ("spend" "spent" "spent")
("spill" "spelt" "spelt") ("spill" "spelt" "spelt")
("spit" "spit" "spit") ("spit" "spit" "spit")
("stand" "stood" "stood") ("stand" "stood" "stood")
("steal" "stole" "stolen") ("steal" "stole" "stolen")
("swim" "swam" "swum") ("swim" "swam" "swum")
("take" "took" "taken") ("take" "took" "taken")
("teach" "taught" "taught") ("teach" "taught" "taught")
("tear" "tore" "torn") ("tear" "tore" "torn")
("tell" "told" "told") ("tell" "told" "told")
("think" "thought" "thought") ("think" "thought" "thought")
("throw" "threw" "thrown") ("throw" "threw" "thrown")
("understand" "understood" "understood") ("understand" "understood" "understood")
("wake" "woke" "woken") ("wake" "woke" "woken")
("wear" "wore" "worn") ("wear" "wore" "worn")
("win" "won" "won") ("win" "won" "won")
("write" "wrote" "written"))) ("write" "wrote" "written")))
(buffer-name "*Learning irregular verbs in English*") (buffer-name "*Learning irregular verbs in English*")
(state 1) ;; 1: start, 2: playing (before first check), 3: win (show success layout) (state 1) ;; 1: start, 2: playing (before first check), 3: win (show success layout)
(verb-to-learn-infinitive nil) (verb-to-learn-infinitive nil)