diff options
Diffstat (limited to 'examples/speech')
| -rwxr-xr-x | examples/speech/pt-random.lali | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/examples/speech/pt-random.lali b/examples/speech/pt-random.lali index 1b3407c..e038f68 100755 --- a/examples/speech/pt-random.lali +++ b/examples/speech/pt-random.lali @@ -3,15 +3,16 @@ ;; ;; Alguns exemplos que podes dizer (um exemplo por linha): ;; okay -;; nao nao -;; sim +;; nazam +;; sim sim ;; (etc., existem mais combinações). (set '_ '_) (set 'words '((sim +1) (okay +0) - (nao -1))) + (nao -1) + (nazam -2))) (set 'answer '((+2 "positival / querer" +0) (+1 "neutral / ser" _) @@ -65,8 +66,9 @@ ;; vv change training (just) here (below) vv (set 'target-question (train-all-questions)) (set 'it-quest (assoc target-question question)) + (princ "pergunta ->") (princ (car (cdr it-quest))) - (princ "\b?\n") + (princ "\b?") (newline) ;; vv change training (just) here (below) vv @@ -76,6 +78,7 @@ (princ ".") (newline) + (newline) (princ "dizer:") (set 'question-score target-question) @@ -102,6 +105,6 @@ (f f))) -(princ "Perante a pergunta, dizer de acordo com a resposta.\nDizer uma combinação (de uma ou mais) das seguintes palavras:\nsim, okay, nao.\n\nSe acertares, aparecerá outra pergunta.\nPodes dizer f para sair deste treino.\n-~-\n") +(princ "Perante a pergunta, dizer de acordo com a resposta.\nDizer uma combinação (de uma ou mais) das seguintes palavras:\nsim, okay, nao, nazam.\n\nSe acertares, aparecerá outra pergunta.\nPodes dizer f para sair deste treino.\n-~-\n") (newline) (loop) |