RosettaCodeData/Task/Repeat-a-string/Prolog/repeat-a-string-1.pro

%repeat(Str,Num,Res).
repeat(Str,1,Str).
repeat(Str,Num,Res):-
    Num1 is Num-1,
    repeat(Str,Num1,Res1),
    string_concat(Str, Res1, Res).