Skip to content

Instantly share code, notes, and snippets.

@yao2030
Created December 7, 2012 02:43
Show Gist options
  • Save yao2030/4230311 to your computer and use it in GitHub Desktop.
Save yao2030/4230311 to your computer and use it in GitHub Desktop.
(define (d x)
(if (= (remainder x 3) 2)
(* 2 (+ (quotient x 3) 1))
1))
;; exercise 1.38, sicp
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment