<h2 id="heading-url">URL</h2>
<p><a target="_blank" href="https://leetcode.com/problems/simplify-path/description/">Simplify Path - LeetCode</a></p>
<h2 id="heading-code">Code</h2>
<p><a target="_blank" href="https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202304/simplify_path/main.fsx">https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202304/simplify_path/main.fsx</a></p>
<pre><code class="lang-plaintext">let simplifyPath (path: string) : string =
    let rec simplifyPath' ps acc =
        match ps with
        | [] -&gt;
            match acc with
            | [] -&gt; failwith "never reach here"
            | _ :: [] -&gt; "/"
            | _ -&gt;
                acc |&gt; List.rev |&gt; String.concat "/"
        | h :: t -&gt;
            if h = "" || h = "." then
                simplifyPath' t acc
            elif h = ".." then
                match acc with
                | [] -&gt; failwith "never reach here"
                | _ :: [] -&gt; simplifyPath' t acc
                | _ :: rest -&gt; simplifyPath' t rest
            else
                simplifyPath' t (h :: acc)

    let ps = path.Split "/" |&gt; List.ofArray
    simplifyPath' ps [""]
</code></pre>


## URL

[Simplify Path - LeetCode](https://leetcode.com/problems/simplify-path/description/)

## Code

[https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202304/simplify\_path/main.fsx](https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202304/simplify_path/main.fsx)

```plaintext
let simplifyPath (path: string) : string =
    let rec simplifyPath' ps acc =
        match ps with
        | [] ->
            match acc with
            | [] -> failwith "never reach here"
            | _ :: [] -> "/"
            | _ ->
                acc |> List.rev |> String.concat "/"
        | h :: t ->
            if h = "" || h = "." then
                simplifyPath' t acc
            elif h = ".." then
                match acc with
                | [] -> failwith "never reach here"
                | _ :: [] -> simplifyPath' t acc
                | _ :: rest -> simplifyPath' t rest
            else
                simplifyPath' t (h :: acc)

    let ps = path.Split "/" |> List.ofArray
    simplifyPath' ps [""]
```

LeetCode 71. Simplify Path in F#

URL

Code