Anonymous user
Arithmetic/Integer: Difference between revisions
Racket
(Racket) |
|||
Line 1,860:
</lang>
=={{header|Racket}}==
<lang racket>
#lang racket
(define (arithmetic x y)
(for ([op '(+ - * / quotient remainder modulo max min gcd lcm)])
(displayln (~a (list op x y) " => "
((eval op (make-base-namespace)) x y)))))
(arithmetic 8 12)
</lang>
Output:
<pre>
(+ 8 12) => 20
(- 8 12) => -4
(* 8 12) => 96
(/ 8 12) => 2/3
(quotient 8 12) => 0
(remainder 8 12) => 8
(modulo 8 12) => 8
(max 8 12) => 12
(min 8 12) => 8
(gcd 8 12) => 4
(lcm 8 12) => 24
</pre>
=={{header|Raven}}==
| |||