Skip to content

Instantly share code, notes, and snippets.

@kouddy

kouddy/SICP 1.17.part1

Created February 24, 2015 01:45
Show Gist options
  • Save kouddy/2c9e45dfcbb7d9dacc24 to your computer and use it in GitHub Desktop.
Save kouddy/2c9e45dfcbb7d9dacc24 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
SICP 1.17.part1
;;;(fast-expt 2 7)
(* 2 (fast-expt 2 6))
(* 2 (square (fast-expt 2 3)))
(* 2 (square (* 2 (fast-expt 2 2))))
(* 2 (square (* 2 (square (fast-expt 2 1)))))
(* 2 (square (* 2 (square (* 2 (fast-expt 2 0))))))
(* 2 (square (* 2 (square (* 2 1))))
(* 2 (square (* 2 (square 2))))
(* 2 (square (* 2 4)))
(* 2 (square 8))
(* 2 64)
128
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment