Submission #2210526

---

Source Code Expand

open System

let N,K =
    let t = Console.ReadLine().Split() 
            |> Array.map (int)
    t.[0],t.[1]

let S = Console.ReadLine().ToCharArray()

let top =
    S
    |> Array.sort
    |> Array.take(K)

let set =
    top
    |> Set.ofArray

let other =
    S
    |> Array.partition (fun x -> set.Contains(x))
    |> snd

Array.concat[top;other]
|> String
|> printfn "%s"

Submission Info

Judge Result