by@kcz146
AC
1418ms
%%! 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).
T K
T T T T T T T T T T T T T T T T T **************