Skip to content

euclid algorithm in scheme #582

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 11 commits into from
Feb 2, 2019
Merged

euclid algorithm in scheme #582

Changes from 1 commit
Commits
Show all changes
11 commits
Select commit Hold shift + click to select a range
d9f7458
euclid alg in scheme
Jan 26, 2019
e94b787
Update euclidalg.ss
c252 Feb 2, 2019
2e3c2df
Update euclidalg.ss
c252 Feb 2, 2019
49178fe
Update euclidalg.ss
c252 Feb 2, 2019
240ca66
Update euclidalg.ss
c252 Feb 2, 2019
1060e40
fixed import lines
Feb 2, 2019
d18a8b9
Update euclidalg.ss
c252 Feb 2, 2019
7297c09
Update euclidalg.ss
c252 Feb 2, 2019
0114f45
Update euclidalg.ss
c252 Feb 2, 2019
5f9ff01
Update euclidean_algorithm.md
c252 Feb 2, 2019
15e26c5
Update euclidalg.ss
c252 Feb 2, 2019
File filter

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Prev Previous commit
Next Next commit
Update euclidalg.ss
  • Loading branch information
@c252
c252 authored Feb 2, 2019
commit 0114f450009a6d9a5345e798772cd8700fc54745
6 changes: 3 additions & 3 deletions contents/euclidean_algorithm/code/scheme/euclidalg.ss
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -2,9 +2,9 @@
(cond
[(or (negative? a) (negative? b)) (euclid-sub (abs a) (abs b))]
[(eq? a b) a]
(if (> a b)
(euclid-sub (- a b) b)
(euclid-sub a (- b a)))))
[(> a b) (euclid-sub (- a b) b)]
(else
(euclid-sub a (- b a)))))

(define (euclid-mod a b)
(if (zero? b)
Expand Down