open System

open System.Diagnostics

let fill0="1abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz234567890qwertyuiopasdfghjklzxcvbnm"

let fill = fill0+fill0+fill0

let a = [|"helrlo1234567890"+fill;

      "1234567890hello"+ fill;

      "llohe1234567890"+fill;

      "1234567890nonono"+fill|]

let b = "1234567890olelh"+fill

​

let inline charToInt c = 

    int c - int '0'

let singlePassAnagram (x:string) =

    let hash : int array = Array.zeroCreate 300

    x |> Seq.iter (fun c->

    hash.[charToInt c] <- (hash.[charToInt c]+1)

    )

    hash

let areAnagramsFast 

        (x:string)

        (y:string) =

    if x.Length <> y.Length

    then false else

    (singlePassAnagram x) = 

        (singlePassAnagram y)

​

let rec areAnagramRec

        (x:string)

        (y:string) =  

    if x.Length <> y.Length 

    then false else

    if x.Length = 0

    then true else

    let repl = x.[0].ToString()

    areAnagramRec

        (x.Replace(repl,""))

        (y.Replace(repl,""))

​

let anagram (x:string) =

    x.ToLower()

    |> Seq.sort 

    |> Seq.toArray

let anagrBySort x y =

        anagram x = anagram y

let areAnagram arr y f =

    arr 

    |> Seq.filter (fun x ->

        f x y)

    |> Seq.toArray 

let sw=Stopwatch()

sw.Start()

printfn "anag by sort: %i" 

    <| (areAnagram a b anagrBySort).Length

sw.Stop ()

let elapsed = sw.ElapsedMilliseconds

sw.Reset()

printfn "sort ms: %i" elapsed

sw.Start()

printfn "and by recursion %i"

    <| (areAnagram a b areAnagramRec).Length

sw.Stop ()

printfn "Rec ms: %i" sw.ElapsedMilliseconds

sw.Reset()

sw.Start ()

printfn "and fast %i"

    <| (areAnagram a b areAnagramsFast).Length

sw.Stop()

printfn "Fast ms %i" sw.ElapsedMilliseconds