11 lines
210 B
Scheme
11 lines
210 B
Scheme
(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)
|