Data commit

This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions

View file

@ -0,0 +1 @@
(if <test> <consequent> <alternate>)

View file

@ -0,0 +1 @@
(if <test> <consequent>)

View file

@ -0,0 +1,9 @@
(display
(if (> 1 2)
"yes"
"no"))
(newline)
(display
(if (> 1 2)
(- 1 2)))
(newline)

View file

@ -0,0 +1 @@
(cond <clause1> <clause2> ...)

View file

@ -0,0 +1,9 @@
(display
(cond ((> 1 2) "greater")
((< 1 2) "less")))
(newline)
(display
(cond ((> 1 1) "greater")
((< 1 1) "less")
(else "equal")))
(newline)

View file

@ -0,0 +1 @@
(case <key> <clause1> <clause2> ...)

View file

@ -0,0 +1,11 @@
(display
(case (* 2 3)
((2 3 5 7) "prime")
((1 4 6 8 9) "composite")))
(newline)
(display
(case (car (list c d))
((a e i o u) "vowel")
((w y) "semivowel")
(else "consonant")))
(newline)