...

2013-04-10 15:42:53 -07:00 · 2013-04-10 15:42:53 -07:00 · 0457928c3e
commit 0457928c3e
parent 051504d65b
295 changed files with 3588 additions and 3 deletions
--- a/Task/Arithmetic-Integer/Scheme/arithmetic-integer.ss
+++ b/Task/Arithmetic-Integer/Scheme/arithmetic-integer.ss
@ -0,0 +1,9 @@
+(define (arithmetic x y)
+  (for-each (lambda (op)
+              (write  (list op x y))
+              (display " => ")
+              (write ((eval op) x y))
+              (newline))
+            '(+ - * / quotient remainder modulo max min gcd lcm)))
+
+(arithmetic 8 12)