joachim/racket-random
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add check-expect tests

Browse source
This commit is contained in:
joachimschmidt557 2019-04-25 10:18:56 +02:00
parent 36cec89874
commit db7ee8d66f
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
merge-sort.rkt
View file

@ -44,4 +44,10 @@
[(empty? lst) lst] [(empty? lst) lst]
[(empty? (rest lst)) lst] [(empty? (rest lst)) lst]
[else (merge (merge-sort (upper-half lst)) (merge-sort (lower-half lst)))] [else (merge (merge-sort (upper-half lst)) (merge-sort (lower-half lst)))]
)) ))
(check-expect (merge-sort empty) empty)
(check-expect (merge-sort (list 4)) (list 4))
(check-expect (merge-sort (list 7 3)) (list 3 7))
(check-expect (merge-sort (list 1 2 3)) (list 1 2 3))
(check-expect (merge-sort (list 6 6 6)) (list 6 6 6))