<h2 id="heading-url">URL</h2>
<a target="_blank" href="https://leetcode.com/problems/score-of-a-string/description/?envType=daily-question&amp;envId=2024-06-01">https://leetcode.com/problems/score-of-a-string/description/?envType=daily-question&amp;envId=2024-06-01</a>
<h2 id="heading-code">Code</h2>
<a target="_blank" href="https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202406/score_of_a_string/main.fsx">https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202406/score_of_a_string/main.fsx</a>
<pre><code class="lang-fsharp">let scoreOfString (s: string) : int =
 let rec scoreOfString' cs prev acc =
 match cs with
 | [] -&gt; acc
 | h :: t -&gt; scoreOfString' t h (acc + abs (h - prev))

 let cs = s |&gt; Seq.map int |&gt; Seq.toList

 match cs with
 | [] -&gt; failwith "never reach here"
 | h :: t -&gt; scoreOfString' t h 0
</code></pre>

## URL

[https://leetcode.com/problems/score-of-a-string/description/?envType=daily-question&envId=2024-06-01](https://leetcode.com/problems/score-of-a-string/description/?envType=daily-question&envId=2024-06-01)

## Code

[https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202406/score\_of\_a\_string/main.fsx](https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202406/score_of_a_string/main.fsx)

```fsharp
let scoreOfString (s: string) : int =
    let rec scoreOfString' cs prev acc =
        match cs with
        | [] -> acc
        | h :: t -> scoreOfString' t h (acc + abs (h - prev))

    let cs = s |> Seq.map int |> Seq.toList

    match cs with
    | [] -> failwith "never reach here"
    | h :: t -> scoreOfString' t h 0
```

LeetCode 3110. Score of a String in F#

URL

Code