Rose And Potato

rose_And_potato.fs

open System.IO
let image = System.Drawing.Image.FromFile(@"C:\personal\rose.jpg")
let image2  = System.Drawing.Image.FromFile(@"C:\personal\potato.jpg")

let ms = new MemoryStream()
image.Save(ms,System.Drawing.Imaging.ImageFormat.Jpeg)
let bytes = ms.ToArray() |> Array.map int |> List.ofArray

let ms2 = new MemoryStream()
image2.Save(ms2,System.Drawing.Imaging.ImageFormat.Jpeg)
let bytes2 = ms2.ToArray() |> Array.map int |> List.ofArray

let bytesPDF = listToHist bytes |> List.map snd
let bytesPDF2   = listToHist bytes2 |> List.map snd

let simCanberra = canberra bytesPDF bytesPDF2