Result

AC

Duration

1418ms

Code [DL]

%%!
f(S,I)->
 case string:chr(io:get_line(""),$K) of
  0->io:format(S),f(S,I);
  J->io:format(string:copies(" ",J-1)++string:copies("*",2+I-J))
 end.

main(_) ->
 S=io:get_line(""),
 I=string:chr(S,$T)-1,
 io:format(S),
 f(S,I).

stdin

                                           T      
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                              K                   

stdout

                                           T      
                                           T      
                                           T      
                                           T      
                                           T      
                                           T      
                                           T      
                                           T      
                                           T      
                                           T      
                                           T      
                                           T      
                                           T      
                                           T      
                                           T      
                                           T      
                                           T      
                              **************

stderr

strace