RosettaCodeData/Task/User-input-Graphical/Common-Lisp/user-input-graphical-3.lisp
Ingy döt Net 68f8f3e56b all tasks
2013-04-11 01:07:29 -07:00

2 lines
108 B
Common Lisp

(capi:prompt-for-integer "Enter an integer:"
:ok-check #'(lambda (n) (= n 75000)))