Skip to content
Snippets Groups Projects
Commit 573f62f4 authored by Taddeus Kroes's avatar Taddeus Kroes
Browse files

funclang series4: Added some shitespaces.

parent da3e466a
No related branches found
No related tags found
No related merge requests found
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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment