diff --git a/lang/kernel.rkt b/lang/kernel.rkt index d58de09..b6097dd 100644 --- a/lang/kernel.rkt +++ b/lang/kernel.rkt @@ -242,8 +242,8 @@ raise-mismatch-error quotient remainder modulo -;; max -;; min + max + min gcd lcm floor diff --git a/tests/more-tests/numbers.expected b/tests/more-tests/numbers.expected index dd1eb38..76de5d6 100644 --- a/tests/more-tests/numbers.expected +++ b/tests/more-tests/numbers.expected @@ -5,3 +5,13 @@ true false false false +3 +6 +9 +20 +20 +3 +3 +1 +3 +3 diff --git a/tests/more-tests/numbers.rkt b/tests/more-tests/numbers.rkt index 470c928..6cf2506 100644 --- a/tests/more-tests/numbers.rkt +++ b/tests/more-tests/numbers.rkt @@ -8,3 +8,15 @@ (number? "42") (number? 'this-is-a-test) (number? (list 3 4 5)) + +(max 3) +(max 3 4 5 6) +(max 3 1 4 1 5 9 2 6) +(max 3 20) +(max 20 3) + +(min 3) +(min 3 4 5 6) +(min 3 1 4 1 5 9 2 6) +(min 3 20) +(min 20 3) \ No newline at end of file