summaryrefslogtreecommitdiff
path: root/examples/speech/en-random.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/en-random.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/en-random.lali')
-rwxr-xr-xexamples/speech/en-random.lali12
1 files changed, 6 insertions, 6 deletions
diff --git a/examples/speech/en-random.lali b/examples/speech/en-random.lali
index 9ac271d..9deb0b0 100755
--- a/examples/speech/en-random.lali
+++ b/examples/speech/en-random.lali
@@ -23,13 +23,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)))))
@@ -76,7 +76,7 @@
(set 'question-score target-question)
(set 'my-words (readl))
- (differ my-words '(f))
+ (diff my-words '(f))
(set 'answer-score (get-answer-score
(map
(lambda (word)
@@ -85,7 +85,7 @@
(princ "\n~")
(newline)
(fill
- ((dif target-answer
+ ((diff target-answer
(+ question-score answer-score))
'correct)
(f 'wrong))))
@@ -93,8 +93,8 @@
(defun loop ()
(set 'res (main))
(fill
- ((dif res 'correct) (loop))
- ((dif res 'wrong) (prog (princ ">> wrong") (newline)))
+ ((diff res 'correct) (loop))
+ ((diff res 'wrong) (prog (princ ">> wrong") (newline)))
(f f)))