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

lcm should do abs

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

2
piclib/scheme/base.scm
View File

@ -247,7 +247,7 @@
(define (lcm . args) (define (lcm . args)
(define (lcm i j) (define (lcm i j)
(/ (* i j) (gcd i j))) (/ (abs (* i j)) (gcd i j)))
(let loop ((args args) (acc 1)) (let loop ((args args) (acc 1))
(if (null? args) (if (null? args)
acc acc