conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

update etc/tak.scm

This commit is contained in:
Yuichi Nishiwaki 2015-06-28 04:13:12 +09:00
parent d097a021e3
commit 0762bd6567
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
etc/tak.scm
View File

@ -5,8 +5,9 @@
(define (time f) (define (time f)
(let ((start (current-jiffy))) (let ((start (current-jiffy)))
(f) (f)
(/ (- (current-jiffy) start) (inexact
(jiffies-per-second)))) (/ (- (current-jiffy) start)
(jiffies-per-second)))))
(define (tak x y z) (define (tak x y z)
(if (> x y) (if (> x y)