2016 Update

2016-12-05 22:15:40 +01:00 · 2016-12-05 22:15:40 +01:00 · dcf5d15da3
commit dcf5d15da3
parent 948b86eafa
7965 changed files with 139854 additions and 31002 deletions
--- a/Task/Arithmetic-Integer/Racket/arithmetic-integer.rkt
+++ b/Task/Arithmetic-Integer/Racket/arithmetic-integer.rkt
@ -1,7 +1,7 @@
-#lang racket
+#lang racket/base
+
 (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)))))
+  (for ([op (list + - * / quotient remainder modulo max min gcd lcm)])
+    (printf "~s => ~s\n" `(,(object-name op) ,x ,y) (op x y))))

 (arithmetic 8 12)