Skip to content

Instantly share code, notes, and snippets.

Show Gist options
  • Save Edmundworks/3b8627d3ecc1564701f111e234673aa3 to your computer and use it in GitHub Desktop.
Save Edmundworks/3b8627d3ecc1564701f111e234673aa3 to your computer and use it in GitHub Desktop.
SICP 1.10 c
(A x y)
(A 3 3)
(A (- 3 1)
(A 3 (- 3 1))
(A 2
(A 3 2))
(A 2
(A (- 3 1)
(A 3 (- 2 1))))
(A 2
(A 2 (A 3 1)))
(A 2
(A 2 2))
(A 2
(A (- 2 1)
(A 2 (- 2 1))))
(A 2
(A 1
(A 2 1)))
(A 2
(A 1 2)
(A 2
(A (- 1 1)
(A 1 (- 2 1)))))
(A 2
(A 0
(A 1 1)))
(A 2
(A 0 2))
(A 2 4)
Thats the same as the previous one!
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment