Arithmetic/Integer: Difference between revisions
Content added Content deleted
(Racket) |
|||
Line 1,860: | Line 1,860: | ||
</lang> |
</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}}== |
=={{header|Raven}}== |
||