Skip to content

U
uva
Commit 573f62f4 authored by Taddeus Kroes's avatar Taddeus Kroes
Browse files
Options

funclang series4: Added some shitespaces.

parent da3e466a
Show whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
funclang-taddeus/series4/ass8.ml
View file @ 573f62f4
open List open List
(* Sort a list l using the quicksort algorithm *) (* Sort a list l using the quicksort algorithm *)
let rec quickSort (l:int list) = let rec quickSort (l : int list) =
match l with match l with
| ([] | [_]) -> l | ([] | [_]) -> l
| pivot::rest -> | pivot::rest ->
...@@ -11,7 +11,7 @@ let rec quickSort (l:int list) = ...@@ -11,7 +11,7 @@ let rec quickSort (l:int list) =
;; ;;
(* Sort a list l using the merge sort algorithm *) (* Sort a list l using the merge sort algorithm *)
let rec mergeSort (l:int list) = let rec mergeSort (l : int list) =
match l with match l with
(* If the list is of length 0 or 1, then it is already sorted *) (* If the list is of length 0 or 1, then it is already sorted *)
| ([] | [_]) -> l | ([] | [_]) -> 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