RosettaCodeData/Task/User-input-Graphical/Common-Lisp/user-input-graphical-3.lisp

3 lines
108 B
Common Lisp
Raw Permalink Normal View History

2013-04-11 01:07:29 -07:00
(capi:prompt-for-integer "Enter an integer:"
:ok-check #'(lambda (n) (= n 75000)))