<h2 id="heading-url">URL</h2>
<p><a href="https://leetcode.com/problems/unique-morse-code-words/" class="autolinkedURL autolinkedURL-url" target="_blank">leetcode.com/problems/unique-morse-code-words</a></p>
<h2 id="heading-code">Code</h2>
<p><a href="https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/problems/0804/main.fsx" class="autolinkedURL autolinkedURL-url" target="_blank">github.com/syohex/dotnet-study/blob/master/..</a></p>
<pre><code class="lang-fsharp">let uniqueMorseRepresentations (words: string list) : int =
    let codes =
        [| ".-"
           "-..."
           "-.-."
           "-.."
           "."
           "..-."
           "--."
           "...."
           ".."
           ".---"
           "-.-"
           ".-.."
           "--"
           "-."
           "---"
           ".--."
           "--.-"
           ".-."
           "..."
           "-"
           "..-"
           "...-"
           ".--"
           "-..-"
           "-.--"
           "--.." |]

    let rec uniqueMorseRepresentations' words acc =
        match words with
        | [] -&gt; Set.count acc
        | h :: t -&gt;
            let code =
                h
                |&gt; Seq.fold
                    (fun s c -&gt;
                        let index = int c - int 'a'
                        let code = codes.[index]
                        s + code)
                    ""

            uniqueMorseRepresentations' t (Set.add code acc)

    uniqueMorseRepresentations' words Set.empty
</code></pre>


## URL

https://leetcode.com/problems/unique-morse-code-words/

## Code

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

```fsharp
let uniqueMorseRepresentations (words: string list) : int =
    let codes =
        [| ".-"
           "-..."
           "-.-."
           "-.."
           "."
           "..-."
           "--."
           "...."
           ".."
           ".---"
           "-.-"
           ".-.."
           "--"
           "-."
           "---"
           ".--."
           "--.-"
           ".-."
           "..."
           "-"
           "..-"
           "...-"
           ".--"
           "-..-"
           "-.--"
           "--.." |]

    let rec uniqueMorseRepresentations' words acc =
        match words with
        | [] -> Set.count acc
        | h :: t ->
            let code =
                h
                |> Seq.fold
                    (fun s c ->
                        let index = int c - int 'a'
                        let code = codes.[index]
                        s + code)
                    ""

            uniqueMorseRepresentations' t (Set.add code acc)

    uniqueMorseRepresentations' words Set.empty
```

LeetCode 804. Unique Morse Code Words in F#

URL

Code