expr: 100%

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#lang racket

(provide add
         subtract
         multiply
         divide)

;; Basic arithmetic library

(define (add a b)
  (+ a b))

(define (subtract a b)
  (- a b))

(define (multiply a b)
  (* a b))

(define (divide a b)
  (if (= b 0)
      (error 'divide "division by zero")
      (/ a b)))