Commit 573f62f4 authored by Taddeus Kroes's avatar Taddeus Kroes

funclang series4: Added some shitespaces.

parent da3e466a
open List
(* Sort a list l using the quicksort algorithm *)
let rec quickSort (l:int list) =
let rec quickSort (l : int list) =
match l with
| ([] | [_]) -> l
| pivot::rest ->
......@@ -11,7 +11,7 @@ let rec quickSort (l:int list) =
;;
(* Sort a list l using the merge sort algorithm *)
let rec mergeSort (l:int list) =
let rec mergeSort (l : int list) =
match l with
(* If the list is of length 0 or 1, then it is already sorted *)
| ([] | [_]) -> l
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment