summaryrefslogtreecommitdiff
path: root/examples/speech/pt-fixed_answer.lali
diff options
context:
space:
mode:
authorDaniel Cerqueira <dan.git@lispclub.com>2026-08-16 12:59:14 +0100
committerDaniel Cerqueira <dan.git@lispclub.com>2026-08-16 13:37:34 +0100
commit8cfffbeccdab028f780dcaf9f4ffaf97d7393a1e (patch)
tree17c734d83e40be785cbec3ca2df8c069474f5a5e /examples/speech/pt-fixed_answer.lali
parent92b27832dbbe786c857e5fb461e218d370c14058 (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-xexamples/speech/pt-fixed_answer.lali12
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)