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

3 lines
108 B
Common Lisp

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