From 7ed7e0cd2b1fbf60e546b8141bb77e6dbf42fc7f Mon Sep 17 00:00:00 2001 From: Greg Hendershott Date: Tue, 2 Jul 2013 14:16:01 -0400 Subject: [PATCH] Add minus1 --- main.rkt | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/main.rkt b/main.rkt index 62b23fb..9106fcd 100644 --- a/main.rkt +++ b/main.rkt @@ -3,6 +3,10 @@ (define (plus1 x) (add1 x)) +(define (minus1 x) + (sub1 x)) + (module+ test (require rackunit) - (check-equal? (plus1 1) 2)) + (check-equal? (plus1 1) 2) + (check-equal? (minus1 1) 0))