File: gcd

package info (click to toggle)
scheme9 2025.08.12-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 4,080 kB
  • sloc: lisp: 16,752; ansic: 11,869; sh: 806; makefile: 237; sed: 6
file content (10 lines) | stat: -rw-r--r-- 308 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
 
R4RS 6.5.5  (gcd integer ...)  ==>  integer
            (lcm integer ...)  ==>  integer

These procedures return the greatest common divisor or least common
multiple of their arguments. The result is always non-negative.

(gcd 32 -36)  ==>  4
(gcd)         ==>  0
(lcm 32 -36)  ==>  288
(lcm)         ==>  1