New file for quicksort algorithm

impls/powerset.rkt

@@ -27,13 +27,13 @@
   ;; Print success of test (i.e. (equality expected got)) and return a
   ;; boolean representing if it worked.
   (printf "[TEST ~a]: " name)
-  (if (equality expected got)
-      (begin
-        (displayln "Success")
-        #t)
-      (begin
-        (printf "Failure (expected=~a, got=~a)~n" expected got)
-        #f)))
+  (cond
+    [(equality expected got)
+     (displayln "Success")
+     #t]
+    [else
+     (printf "Failure (expected=~a, got=~a)~n" expected got)
+     #f]))
 
 (define-syntax (perform-tests stx)
   (with-syntax