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

small refactoring

This commit is contained in:
Yuichi Nishiwaki 2014-09-09 02:29:24 +09:00
parent d2e5ca6985
commit 3aced33d84
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
piclib/scheme/base.scm
View File

@ -197,20 +197,20 @@
(not (even? x))) (not (even? x)))
(define (min . args) (define (min . args)
(let loop ((args args) (min +inf.0)) (define (min a b)
(if (< a b) a b))
(let loop ((args args) (acc +inf.0))
(if (null? args) (if (null? args)
min acc
(loop (cdr args) (if (< (car args) min) (loop (cdr args) (min (car args) acc)))))
(car args)
min)))))
(define (max . args) (define (max . args)
(let loop ((args args) (max -inf.0)) (define (max a b)
(if (> a b) a b))
(let loop ((args args) (acc -inf.0))
(if (null? args) (if (null? args)
max acc
(loop (cdr args) (if (> (car args) max) (loop (cdr args) (max (car args) acc)))))
(car args)
max)))))
(define (floor-quotient i j) (define (floor-quotient i j)
(call-with-values (lambda () (floor/ i j)) (call-with-values (lambda () (floor/ i j))