ritog/ex1-3.rkt

Last active June 27, 2024 17:05

Star () You must be signed in to star a gist
Fork () You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/ritog/9e3f54923ec3588a6327d1694489b271.js"></script>
Save ritog/9e3f54923ec3588a6327d1694489b271 to your computer and use it in GitHub Desktop.

Download ZIP

Exercise 1.3 of SICP

Raw

	#lang racket
	(define (larger a b)
	(if (> a b)
	a
	b))

	(define (square x)
	(* x x))

	(define (sum-of-squares x y)
	(+ (square x) (square y)))

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment