<h2 id="heading-url">URL</h2>
<a target="_blank" href="https://leetcode.com/problems/custom-sort-string/">791. Custom Sort String</a>
<h2 id="heading-code">Code</h2>
<a target="_blank" href="https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/challenge/202403/custom_sort_string/main.fsx">https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/challenge/202403/custom_sort_string/main.fsx</a>
<pre><code class="lang-fsharp">open System

let customSortString (order: string) (s: string) : string =
 let table =
 order
 |&gt; Seq.map (fun c -&gt; int c - int 'a')
 |&gt; Seq.indexed
 |&gt; Seq.fold
 (fun (acc: int[]) (i, n) -&gt;
 acc.[n] &lt;- i
 acc)
 (Array.init 26 (fun _ -&gt; 27))

 s |&gt; Seq.sortBy (fun c -&gt; table.[int c - int 'a']) |&gt; String.Concat
</code></pre>

## URL

[**791\. Custom Sort String**](https://leetcode.com/problems/custom-sort-string/)

## Code

[https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/challenge/202403/custom\_sort\_string/main.fsx](https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/challenge/202403/custom_sort_string/main.fsx)

```fsharp
open System

let customSortString (order: string) (s: string) : string =
 let table =
 order
 |> Seq.map (fun c -> int c - int 'a')
 |> Seq.indexed
 |> Seq.fold
 (fun (acc: int[]) (i, n) ->
 acc.[n] <- i
 acc)
 (Array.init 26 (fun _ -> 27))

 s |> Seq.sortBy (fun c -> table.[int c - int 'a']) |> String.Concat
```

LeetCode 791. Custom Sort String in F#

URL

Code