-
-
Notifications
You must be signed in to change notification settings - Fork 359
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.
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
berquist
merged 11 commits into
algorithm-archivists:master
from
c252:euclid_algorithm_in_scheme
Feb 2, 2019
Merged
Changes from 1 commit
Commits
Show all changes
11 commits
Select commit
Hold shift + click to select a range
d9f7458
euclid alg in scheme
e94b787
Update euclidalg.ss
c252 2e3c2df
Update euclidalg.ss
c252 49178fe
Update euclidalg.ss
c252 240ca66
Update euclidalg.ss
c252 1060e40
fixed import lines
d18a8b9
Update euclidalg.ss
c252 7297c09
Update euclidalg.ss
c252 0114f45
Update euclidalg.ss
c252 5f9ff01
Update euclidean_algorithm.md
c252 15e26c5
Update euclidalg.ss
c252 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
There are no files selected for viewing
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
|
@@ -188,6 +188,10 @@ | |
{ | ||
"lang": "piet", | ||
"name": "Piet" | ||
}, | ||
{ | ||
"lang": "ss", | ||
"name": "Scheme" | ||
} | ||
] | ||
} | ||
|
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,25 @@ | ||
(define euclid-sub | ||
(lambda (a b) | ||
(cond | ||
((or (negative? a) (negative? b)) | ||
(euclid-sub (abs a) (abs b))) | ||
(else (cond | ||
c252 marked this conversation as resolved.
Show resolved
Hide resolved
|
||
((eq? a b) a) | ||
(else (cond | ||
((> a b) | ||
(euclid-sub (- a b) b)) | ||
(else | ||
(euclid-sub a (- b a)))))))))) | ||
|
||
(define euclid-mod | ||
c252 marked this conversation as resolved.
Show resolved
Hide resolved
|
||
(lambda (a b) | ||
(cond | ||
((or (negative? a) (negative? b)) | ||
(euclid-mod (abs a) (abs b))) | ||
(else (cond | ||
((zero? b) a) | ||
(else | ||
(euclid-mod b (modulo a b)))))))) | ||
|
||
(display (euclid-mod (* 64 67) (* 64 81))) (newline) | ||
(display (euclid-sub (* 64 12) (* 64 27))) (newline) | ||
c252 marked this conversation as resolved.
Show resolved
Hide resolved
|
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Add this suggestion to a batch that can be applied as a single commit.
This suggestion is invalid because no changes were made to the code.
Suggestions cannot be applied while the pull request is closed.
Suggestions cannot be applied while viewing a subset of changes.
Only one suggestion per line can be applied in a batch.
Add this suggestion to a batch that can be applied as a single commit.
Applying suggestions on deleted lines is not supported.
You must change the existing code in this line in order to create a valid suggestion.
Outdated suggestions cannot be applied.
This suggestion has been applied or marked resolved.
Suggestions cannot be applied from pending reviews.
Suggestions cannot be applied on multi-line comments.
Suggestions cannot be applied while the pull request is queued to merge.
Suggestion cannot be applied right now. Please check back later.
Uh oh!
There was an error while loading. Please reload this page.