Skip to content

Instantly share code, notes, and snippets.

@ritog

ritog/ex1-3.rkt

Last active June 27, 2024 17:05
Show Gist options
  • Save ritog/9e3f54923ec3588a6327d1694489b271 to your computer and use it in GitHub Desktop.
Save ritog/9e3f54923ec3588a6327d1694489b271 to your computer and use it in GitHub Desktop.
Download ZIP
Exercise 1.3 of SICP
Raw
ex1-3.rkt
#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