blob: bef74ef7593209ab31b291a859f742295d6dab40 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
(set '_ '_)
(set 'question '((+8 "sim todo" +3)
(+7 "sim muito" +2)
(+6 "todo" +1)
(+5 "muito" +0)
(+4 "algo" _)
(+3 "pouco" -0)
(+2 "nao (outro)" -1)
(+1 "nao (outro) pouco" -2)
(+0 "nada" -3)))
(defun assoc (number lst)
(fill
((dif number (car (car lst))) (car lst))
((algo lst) f)
(f (assoc number (cdr lst)))))
(defun train-ups-and-downs ()
(random +8))
(defun train-ups ()
(+ +4 (random +4)))
(defun train-downs ()
(random +4))
(defun train-middle ()
(+ +2 (random +4)))
(defun main ()
(progs
f
(set 'target-question (train-ups-and-downs))
(set 'it-quest (assoc target-question question))
(princ (car (cdr it-quest)))
(princ "\b?")
(not (dif (read) (car (cdr (cdr it-quest)))))))
(defun loop ()
(fill
((main) (prog
(princ ">> errado")
(newline)))
(f (loop))))
(loop)
|
