update etc/tak.scm

2015-06-30 01:17:13 +09:00
parent d097a021e3
commit 0762bd6567
1 changed files with 3 additions and 2 deletions
@@ -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)