Integer comparison: Difference between revisions

Line 1,352:

=={{header|Emacs 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") ))

</lang>

<b>Output:</b>

<pre>

True

False

True

False

True

False

</pre>

<lang Lisp>(defun integer-comparison (a b)

… or …

(defun integer-comparison (a b)

"Compare A to B and print the outcome in the message buffer."

(interactive "nFirst integer ⇒\nnSecond integer ⇒")

Line 1,380:

Line 1,359:

((< a b) (message "%d is less than %d." a b))

((> a b) (message "%d is greater than %d." a b))

((= a b) (message "%d is equal to %d." a b))))

((= a b) (message "%d is equal to %d." a b))))</lang>

</lang>

Invoke from within Emacs Lisp (or eg, with M-:) as <~~lang Emacs Lisp~~>(integer-comparison 12 42)</~~lang~~>

Invoke from within Emacs Lisp (or e.g., with <code>M-:</code>) as <code>(integer-comparison 12 42)</code>

Or, use M-x integer-comparison <RET> and you'll be prompted for the two numbers.

Or, use <code>M-x integer-comparison RET</code> and you'll be prompted for the two numbers.

=={{header|Erlang}}==