LeetCode 392. Is Subsequence in F#
URL
leetcode.com/problems/is-subsequence
Code
github.com/syohex/dotnet-study/blob/master/..
let isSubsequence (s: string) (t: string) : bool =
let rec isSubsequence' cs ct =
match cs with
| [] -> true
| x :: xs ->
match List.tryFindIndex ((=) x) ct with
| Some (p) -> isSubsequence' xs (ct |> List.skip (p + 1))
| None -> false
isSubsequence' (s |> Seq.toList) (t |> Seq.toList)