prGmtc

#r @"nuget: Unquote"
open Swensen.Unquote

let rec combinationsRecursive list =
    match list with
    |x :: xs -> 
        let withX = xs |> List.map (fun y -> (x,y))
        let others = combinationsRecursive xs
        List.append withX others
    | _ -> []

prGmtc

open System
open System.Security.Cryptography

let hasher = MD5.Create()
let hash (word : string) =
    let bytes = System.Text.Encoding.ASCII.GetBytes(word)
    let hash = hasher.ComputeHash(bytes)
    BitConverter.ToString(hash).Replace("-", "")

let indexes =