update etc/tak.scm

2015-06-28 04:13:12 +09:00 · 2015-06-28 04:13:12 +09:00 · 0762bd6567
parent d097a021e3
commit 0762bd6567
1 changed files with 3 additions and 2 deletions
--- a/etc/tak.scm
+++ b/etc/tak.scm
@ -5,8 +5,9 @@
 (define (time f)
  (let ((start (current-jiffy)))
    (f)
-    (/ (- (current-jiffy) start)
-       (jiffies-per-second))))
+    (inexact
+     (/ (- (current-jiffy) start)
+        (jiffies-per-second)))))

 (define (tak x y z)
  (if (> x y)