RosettaCodeData/Task/Integer-comparison/Emacs-Lisp/integer-comparison-1.l

8 lines
328 B
Common Lisp

(progn
(if (< 1 2) (insert "True\n") (insert "False\n") )
(if (= 1 2) (insert "True\n") (insert "False\n") )
(if (= 1 1) (insert "True\n") (insert "False\n") )
(if (> 1 2) (insert "True\n") (insert "False\n") )
(if (<= 1 2) (insert "True\n") (insert "False\n") )
(if (>= 1 2) (insert "True\n") (insert "False\n") ))