<h2 id="heading-url">URL</h2>
<a target="_blank" href="https://leetcode.com/problems/relative-sort-array/description/?envType=daily-question&amp;envId=2024-06-11">https://leetcode.com/problems/relative-sort-array/description/?envType=daily-question&amp;envId=2024-06-11</a>
<h2 id="heading-code">Code</h2>
<a target="_blank" href="https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/challenge/202406/relative_sort_array/main.fsx">https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/challenge/202406/relative_sort_array/main.fsx</a>
<pre><code class="lang-fsharp">let relativeSortArray (arr1: int list) (arr2: int list) : int list =
 let m =
 arr2 |&gt; List.indexed |&gt; List.fold (fun acc (i, n) -&gt; Map.add n i acc) Map.empty

 arr1
 |&gt; List.sortWith (fun a b -&gt;
 match Map.tryFind a m, Map.tryFind b m with
 | None, None -&gt; compare a b
 | Some(_), None -&gt; -1
 | None, Some(_) -&gt; 1
 | Some(i), Some(j) -&gt; compare i j)
</code></pre>

## URL

[https://leetcode.com/problems/relative-sort-array/description/?envType=daily-question&envId=2024-06-11](https://leetcode.com/problems/relative-sort-array/description/?envType=daily-question&envId=2024-06-11)

## Code

[https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/challenge/202406/relative\_sort\_array/main.fsx](https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/challenge/202406/relative_sort_array/main.fsx)

```fsharp
let relativeSortArray (arr1: int list) (arr2: int list) : int list =
    let m =
        arr2 |> List.indexed |> List.fold (fun acc (i, n) -> Map.add n i acc) Map.empty

    arr1
    |> List.sortWith (fun a b ->
        match Map.tryFind a m, Map.tryFind b m with
        | None, None -> compare a b
        | Some(_), None -> -1
        | None, Some(_) -> 1
        | Some(i), Some(j) -> compare i j)
```

LeetCode 1122. Relative Sort Array in F#

URL

Code