2013-04-10 21:29:02 -07:00
|
|
|
(de choose (Prompt Items)
|
|
|
|
|
(use N
|
|
|
|
|
(loop
|
|
|
|
|
(for (I . Item) Items
|
|
|
|
|
(prinl I ": " Item) )
|
|
|
|
|
(prin Prompt " ")
|
2019-09-12 10:33:56 -07:00
|
|
|
(flush)
|
2013-04-10 21:29:02 -07:00
|
|
|
(NIL (setq N (in NIL (read))))
|
2019-09-12 10:33:56 -07:00
|
|
|
(T (>= (length Items) N 1) (prinl (get Items N))) ) ) )
|
2013-04-10 21:29:02 -07:00
|
|
|
(choose "Which is from the three pigs?"
|
|
|
|
|
'("fee fie" "huff and puff" "mirror mirror" "tick tock") )
|
