Data commit
This commit is contained in:
parent
7387c8f97b
commit
cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
|
|
@ -0,0 +1 @@
|
|||
(if <test> <consequent> <alternate>)
|
||||
|
|
@ -0,0 +1 @@
|
|||
(if <test> <consequent>)
|
||||
|
|
@ -0,0 +1,9 @@
|
|||
(display
|
||||
(if (> 1 2)
|
||||
"yes"
|
||||
"no"))
|
||||
(newline)
|
||||
(display
|
||||
(if (> 1 2)
|
||||
(- 1 2)))
|
||||
(newline)
|
||||
|
|
@ -0,0 +1 @@
|
|||
(cond <clause1> <clause2> ...)
|
||||
|
|
@ -0,0 +1,9 @@
|
|||
(display
|
||||
(cond ((> 1 2) "greater")
|
||||
((< 1 2) "less")))
|
||||
(newline)
|
||||
(display
|
||||
(cond ((> 1 1) "greater")
|
||||
((< 1 1) "less")
|
||||
(else "equal")))
|
||||
(newline)
|
||||
|
|
@ -0,0 +1 @@
|
|||
(case <key> <clause1> <clause2> ...)
|
||||
|
|
@ -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)
|
||||
Loading…
Add table
Add a link
Reference in a new issue