2020-10-05 01:19:22 +00:00
|
|
|
#!/usr/local/bin/picolisp /usr/local/lib/picolisp/lib.l
|
|
|
|
|
|
|
|
|
|
(setq *Questions
|
2020-10-05 12:08:16 +00:00
|
|
|
'(((How old do citizens have to be to vote for President?)
|
|
|
|
|
(18) )
|
|
|
|
|
((What happened at the Constitutional Convention?)
|
|
|
|
|
(The Constitution was written) )
|
|
|
|
|
((Where is the Statue of Liberty?)
|
|
|
|
|
(New York Harbor) )
|
|
|
|
|
) )
|
|
|
|
|
|
|
|
|
|
(de ask (Question)
|
|
|
|
|
(prinl (str (car Question)))
|
|
|
|
|
(let (Answer (str (line T))
|
|
|
|
|
Actual (cadr Question))
|
|
|
|
|
(cond
|
|
|
|
|
((= Answer Actual) '(T "Exactly right"))
|
|
|
|
|
(T '(NIL "Wrong or unrecognized")) ) ) )
|
2020-10-05 01:19:22 +00:00
|
|
|
|
