|> Array.map (fun line -> line.Split ',')
|> Array.map (fun line -> line |> Array.map int)
|> Array.map (fun line -> {Label = line.[0]; Pixels = line.[1..]} )
let distance (img1 : int[]) (img2 : int[]) =
Array.map2 (fun pix1 pix2 -> abs(pix1 - pix2)) img1 img2
let classify (img : int[]) =
readExamples (__SOURCE_DIRECTORY__ + "/train.csv")
|> Array.minBy (fun x -> distance x.Pixels img)