<h2 id="heading-url">URL</h2>
<p><a href="https://leetcode.com/problems/simplify-path/" class="autolinkedURL autolinkedURL-url" target="_blank">leetcode.com/problems/simplify-path</a></p>
<h2 id="heading-code">Code</h2>
<p><a href="https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/problems/0071/main.fsx" class="autolinkedURL autolinkedURL-url" target="_blank">github.com/syohex/dotnet-study/blob/master/..</a></p>
<pre><code class="lang-fsharp">open System

let simplyfyPath (path: string) : string =
    let rec simplyfyPath' parts (acc: string list) =
        match parts with
        | [] -&gt; sprintf "/%s" (String.Join("/", (acc |&gt; List.rev)))
        | head :: tail -&gt;
            match head with
            | "."
            | "" -&gt; simplyfyPath' tail acc
            | ".." -&gt;
                match acc with
                | [] -&gt; simplyfyPath' tail acc
                | _ :: tail2 -&gt; simplyfyPath' tail tail2
            | _ -&gt; simplyfyPath' tail (head :: acc)

    let parts = path.Split '/' |&gt; Array.toList
    simplyfyPath' parts []
</code></pre>


## URL

https://leetcode.com/problems/simplify-path/

## Code

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

```fsharp
open System

let simplyfyPath (path: string) : string =
    let rec simplyfyPath' parts (acc: string list) =
        match parts with
        | [] -> sprintf "/%s" (String.Join("/", (acc |> List.rev)))
        | head :: tail ->
            match head with
            | "."
            | "" -> simplyfyPath' tail acc
            | ".." ->
                match acc with
                | [] -> simplyfyPath' tail acc
                | _ :: tail2 -> simplyfyPath' tail tail2
            | _ -> simplyfyPath' tail (head :: acc)

    let parts = path.Split '/' |> Array.toList
    simplyfyPath' parts []
```

LeetCode 71. Simplify Path in F#

URL

Code