Skip to content

Instantly share code, notes, and snippets.

@aberant

aberant/gist:190499

Forked from redsquirrel/gist:189193
Created September 21, 2009 19:41
Show Gist options
  • Save aberant/190499 to your computer and use it in GitHub Desktop.
Save aberant/190499 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
(define (a-plus-abs-b a b)
((if (> b 0) + -) a b))
( a-plus-abs-a-b 5 6 ) ; method invocation
((if (> 6 0) + -) 5 6) ; method with paramters filed in
((+) 5 6) ; evaluate the if statemnt
(+ 5 6)
11
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment