codepad
[
create a new paste
]
login
|
about
Project:
programmingpraxis
Link:
http://programmingpraxis.codepad.org/dUzIZ9IK
[
raw code
|
fork
]
programmingpraxis
-
Scheme
,
pasted on Feb 19:
1
2
3
4
(
define
(
gcd
m
n
)
(
cond
((
<
m
n
)
(
gcd
m
(
-
n
m
)))
((
<
n
m
)
(
gcd
(
-
m
n
)
n
))
(
else
m
)))
Create a new paste based on this one
Comments: