19 lines
256 B
Racket
19 lines
256 B
Racket
#lang racket
|
|
|
|
;; A comment.
|
|
|
|
(define (plus1 x)
|
|
(add1 x))
|
|
|
|
(define (minus1 x)
|
|
(sub1 x))
|
|
|
|
(define (multiply1 x)
|
|
#f) ;buggy
|
|
|
|
(module+ test
|
|
(require rackunit)
|
|
(check-equal? (plus1 1) 2)
|
|
(check-equal? (minus1 1) 0)
|
|
(check-equal? (multiply1 1) 1))
|