Rosetta Code

Arithmetic/Integer: Difference between revisions

Page Discussion

Arithmetic/Integer (view source)

Revision as of 21:58, 22 May 2016

28 bytes removed ,  8 years ago
m
→‎{{header|Racket}}: No need for eval, just use the functions
No edit summary
m (→‎{{header|Racket}}: No need for eval, just use the functions)
Line 2,730:
=={{header|Racket}}==
<lang racket>
#lang racket/base
 
(define (arithmetic x y)
(for ([op '(list + - * / quotient remainder modulo max min gcd lcm)])
(displaylnprintf ("~as => ~s\n" `(,(listobject-name op) ,x ,y) "(op => "x y))))
 
((eval op (make-base-namespace)) x y)))))
(arithmetic 8 12)
</lang>
Line 2,752:
(lcm 8 12) => 24
</pre>
 
=={{header|Raven}}==
 
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/31426"