<h2 id="heading-url">URL</h2>
<p><a href="https://leetcode.com/problems/maximum-length-of-a-concatenated-string-with-unique-characters/" class="autolinkedURL autolinkedURL-url" target="_blank">leetcode.com/problems/maximum-length-of-a-c..</a></p>
<h2 id="heading-code">Code</h2>
<p><a href="https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/problems/1239/main.fsx" class="autolinkedURL autolinkedURL-url" target="_blank">github.com/syohex/dotnet-study/blob/master/..</a></p>
<pre><code class="lang-fsharp">let maxLength (arr: string list) : int =
    let rec maxLength' (arr: string list) (cands: string list) ret =
        match arr with
        | [] -&gt; ret
        | h :: t -&gt;
            let cands' =
                cands
                |&gt; List.fold
                    (fun acc cand -&gt;
                        let tmp = cand + h
                        let chars = tmp |&gt; Set.ofSeq |&gt; Seq.length

                        if chars = tmp.Length then
                            tmp :: acc
                        else
                            acc)
                    cands

            let ret' =
                cands'
                |&gt; List.fold (fun acc s -&gt; System.Math.Max(acc, s.Length)) 0

            maxLength' t cands' ret'

    maxLength' arr [ "" ] 0
</code></pre>


## URL

https://leetcode.com/problems/maximum-length-of-a-concatenated-string-with-unique-characters/

## Code

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

```fsharp
let maxLength (arr: string list) : int =
    let rec maxLength' (arr: string list) (cands: string list) ret =
        match arr with
        | [] -> ret
        | h :: t ->
            let cands' =
                cands
                |> List.fold
                    (fun acc cand ->
                        let tmp = cand + h
                        let chars = tmp |> Set.ofSeq |> Seq.length

                        if chars = tmp.Length then
                            tmp :: acc
                        else
                            acc)
                    cands

            let ret' =
                cands'
                |> List.fold (fun acc s -> System.Math.Max(acc, s.Length)) 0

            maxLength' t cands' ret'

    maxLength' arr [ "" ] 0
```

LeetCode 1239. Maximum Length of a Concatenated String with Unique Characters in F#

URL

Code