is_sorted

let is_sorted (a: string array) : bool =
  let answer =
    Array.mapi (fun i x ->
    if i = 0
    then
      true
    else if String.compare x a.(i - 1) > 0
    then
      true
    else
      false) a in
  Array.for_all (fun y -> y = true) answer
;;