FsharpSnippets.fs

open System

let readInt () = Console.In.ReadLine() |> int
let N = readInt ()
 
let readline = [ for i in 0 .. N - 1 -> readInt () ]
 
let minimumBetweenTwoNumbers n1 n2 = min n1 n2

let rec minimum data mini =
    match data with
    | first::second::tail ->
        let min = (first-second) |> abs |> minimumBetweenTwoNumbers mini
        match tail with
        | [] -> min
        | _  -> minimum (second::tail) min 
 
let compute =
    minimum readline 10000000