Created
June 17, 2018 14:54
-
-
Save Edmundworks/7c73c9b267a11042b0e8117c161474f1 to your computer and use it in GitHub Desktop.
Working through Lec2A
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
| define (sum term A next B) | |
| (IF (> A B) | |
| 0 | |
| (+ (term A) | |
| (sum term | |
| (next A) | |
| next | |
| B)))) | |
| define (sum-int A B) | |
| (define identity A) A) | |
| (sum identity A 1+ B)) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment