C# Online Compiler | .NET Fiddle

<no name> by Anonymous

open System.Collections.Generic

let canConstruct (ransomNote : string) (magazine : string) =
  let letters = new Dictionary<char, int>()
  ransomNote 
  |> Seq.iter (fun char ->
    match letters.TryGetValue char with
    | true, n -> letters.[char] <- n+1
    | _       -> letters.[char] <- 1 
  )

  magazine
  |> Seq.iter (fun char -> 
    match letters.TryGetValue char with
    | true, n when n > 1 -> letters.[char] <- n-1
    | true, _ -> letters.Remove char |> ignore
    | _       -> ())

  letters.Count = 0

printfn "%A" <| canConstruct "aa" "abba"

​x
 
open System.Collections.Generic
​
let canConstruct (ransomNote : string) (magazine : string) =
  let letters = new Dictionary<char, int>()
  ransomNote 
  |> Seq.iter (fun char ->
    match letters.TryGetValue char with
    | true, n -> letters.[char] <- n+1
    | _       -> letters.[char] <- 1 
  )
​
  magazine
  |> Seq.iter (fun char -> 
    match letters.TryGetValue char with
    | true, n when n > 1 -> letters.[char] <- n-1
    | true, _ -> letters.Remove char |> ignore
    | _       -> ())
​
  letters.Count = 0
​
printfn "%A" <| canConstruct "aa" "abba"

Tell me and I forget.
Teach me and I remember.
Involve me and I learn.            Pad Unicode \u0080 next line
by Benjamin Franklin.
in 516007 ticks

-------- StringReader Issue ----------------
is string '\0' empty or null = False
is string '\0' whitespace or null = False
is char '\0' char.IsWhiteSpace = False
is char '\0' char.IsControl = True
is string '\0080' empty or null = False
is string '\0080' whitespace or null = False
Tell me and I forget.
Teach me and I remember.
Involve me and I learn.

   Pad Unicode \u0080 next line

by Benjamin Franklin.
in 553608 ticks

-------- StringReader Final ----------------
Tell me and I forget.
Teach me and I remember.
Involve me and I learn.
   Pad Unicode \u0080 next line
by Benjamin Franklin.
in 413406 ticks

-------- Regex ----------------
Tell me and I forget.
Teach me and I remember.
Involve me and I learn.            Pad Unicode \u0080 next line

by Benjamin Franklin.

in 9350130 ticks

Cached Result
Last Run:	11:59:45 am
Compile:	0.015s
Execute:	0.06s
Memory:	5.09Mb
CPU:	0.075s

View IL Code