<h2 id="heading-url">URL</h2>
<p><a href="https://leetcode.com/problems/maximum-product-of-word-lengths/" class="autolinkedURL autolinkedURL-url" target="_blank">leetcode.com/problems/maximum-product-of-wo..</a></p>
<h2 id="heading-code">Code</h2>
<p><a href="https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/problems/0318/main.fsx" class="autolinkedURL autolinkedURL-url" target="_blank">github.com/syohex/dotnet-study/blob/master/..</a></p>
<pre><code class="lang-fsharp">open System

let maxProduct (words: string list) : int =
    let toBitMask (s: string) =
        s
        |&gt; Seq.fold
            (fun acc c -&gt;
                let v = 1 &lt;&lt;&lt; (int c - int 'a')
                acc ||| v)
            0

    let rec maxProduct' (ws: (string * int) list) acc =
        match ws with
        | [] -&gt; acc
        | (word, mask) :: rest -&gt;
            let acc' =
                rest
                |&gt; List.filter (fun (_, m) -&gt; (mask &amp;&amp;&amp; m) = 0)
                |&gt; List.fold (fun acc (w, _) -&gt; Math.Max(acc, word.Length * w.Length)) acc

            maxProduct' rest acc'

    let masks = words |&gt; List.map toBitMask
    let ws = List.zip words masks
    maxProduct' ws 0
</code></pre>


## URL

https://leetcode.com/problems/maximum-product-of-word-lengths/

## Code

https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/problems/0318/main.fsx

```fsharp
open System

let maxProduct (words: string list) : int =
    let toBitMask (s: string) =
        s
        |> Seq.fold
            (fun acc c ->
                let v = 1 <<< (int c - int 'a')
                acc ||| v)
            0

    let rec maxProduct' (ws: (string * int) list) acc =
        match ws with
        | [] -> acc
        | (word, mask) :: rest ->
            let acc' =
                rest
                |> List.filter (fun (_, m) -> (mask &&& m) = 0)
                |> List.fold (fun acc (w, _) -> Math.Max(acc, word.Length * w.Length)) acc

            maxProduct' rest acc'

    let masks = words |> List.map toBitMask
    let ws = List.zip words masks
    maxProduct' ws 0
```

LeetCode 318. Maximum Product of Word Lengths in F#

URL

Code