diff options
| author | Daniel Cerqueira <dan.git@lispclub.com> | 2026-08-16 12:59:14 +0100 |
|---|---|---|
| committer | Daniel Cerqueira <dan.git@lispclub.com> | 2026-08-16 13:37:34 +0100 |
| commit | 8cfffbeccdab028f780dcaf9f4ffaf97d7393a1e (patch) | |
| tree | 17c734d83e40be785cbec3ca2df8c069474f5a5e /examples/speech/pt-fixed_answer.lali | |
| parent | 92b27832dbbe786c857e5fb461e218d370c14058 (diff) | |
add diff operatorv.0.0.0
- and remove and diff and differ
- and update documentation
- and update all lali scripts
Diffstat (limited to 'examples/speech/pt-fixed_answer.lali')
| -rwxr-xr-x | examples/speech/pt-fixed_answer.lali | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/examples/speech/pt-fixed_answer.lali b/examples/speech/pt-fixed_answer.lali index 0002672..b500975 100755 --- a/examples/speech/pt-fixed_answer.lali +++ b/examples/speech/pt-fixed_answer.lali @@ -18,13 +18,13 @@ (defun assoc (el lst) (fill - ((dif el (car (car lst))) (car lst)) + ((diff el (car (car lst))) (car lst)) ((algo lst) '(f f)) (f (assoc el (cdr lst))))) (defun without (el lst) (fill - ((dif el (car lst)) f) + ((diff el (car lst)) f) ((algo (car lst)) t) (f (without el (cdr lst))))) @@ -72,14 +72,14 @@ (set 'question-score target-question) (set 'my-reply (readl)) - (differ my-reply '(f)) + (diff my-reply '(f)) (set 'answer-score (get-answer-score (map (lambda (word) (car (cdr (assoc word reply)))) my-reply))) (fill - ((dif target-answer + ((diff target-answer (+ question-score answer-score)) 'correct) (f 'wrong)))) @@ -87,8 +87,8 @@ (defun loop () (set 'res (main)) (fill - ((dif res 'correct) (loop)) - ((dif res 'wrong) (prog (princ ">> errado") (newline))) + ((diff res 'correct) (loop)) + ((diff res 'wrong) (prog (princ ">> errado") (newline))) (f f))) (loop) |
