URL

Determine if String Halves Are Alike - LeetCode

Code

https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202401/determine_if_string_halves_are_alike/main.fsx

open System

let isVowel (c: char) : bool =
    let isVowel' c =
        match c with
        | 'a'
        | 'e'
        | 'i'
        | 'o'
        | 'u' -> true
        | _ -> false

    c |> Char.ToLower |> isVowel'

let halvesAreAlike (s: string) : bool =
    let half = s.Length / 2

    let a = s |> Seq.take half |> Seq.filter isVowel |> Seq.length
    let b = s |> Seq.skip half |> Seq.filter isVowel |> Seq.length

    a = b