Rosetta Code

Integer comparison: Difference between revisions

Page Discussion

Integer comparison (view source)

Revision as of 08:50, 8 February 2022

498 bytes removed ,  2 years ago
Emacs Lisp: Improve solution
(Add Draco)
(Emacs Lisp: Improve solution)
Line 1,352:
 
=={{header|Emacs Lisp}}==
<lang 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 …
 
<lang Emacs Lisp>
▲(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 ⟶ 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))))</lang>
</lang>
 
Invoke from within Emacs Lisp (or ege.g., with <code>M-:</code>) as <lang Emacs Lispcode>(integer-comparison 12 42)</langcode>
Or, use <code>M-x integer-comparison <RET</code> and you'll be prompted for the two numbers.
 
=={{header|Erlang}}==
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/28602"