by@JP3BGY
AC
7787ms
open System
let f=Console.ReadLine
let w (x:string)=Console.WriteLine x
let T=f()
let t=T.IndexOf 'T'
[<EntryPoint>]
let main v =
w(T)
let mutable i=f()
while i.IndexOf 'K'<0 do
w(T)
i<-f()
let k=i.IndexOf 'K'
w (i.[..k]+String.replicate (t-k) "K")
0 T
K
T
T
T
T
T
T
T
T
T
T
KKKKKKKKKKKKKKKKKKKKKK
The template "Console Application" was created successfully. Processing post-creation actions... Running 'dotnet restore' on /tmp/Proj/Proj.fsproj... Restoring packages for /tmp/Proj/Proj.fsproj... Generating MSBuild file /tmp/Proj/obj/Proj.fsproj.nuget.g.props. Generating MSBuild file /tmp/Proj/obj/Proj.fsproj.nuget.g.targets. Restore completed in 213.18 ms for /tmp/Proj/Proj.fsproj. Restore succeeded.