Repeat a string: Difference between revisions
Content added Content deleted
(Added an ActionScript version.) |
(→{{header|Prolog}}: Repeat strings) |
||
Line 346: | Line 346: | ||
=={{header|PowerBASIC}}== |
=={{header|PowerBASIC}}== |
||
<lang powerbasic>MSGBOX REPEAT$(5, "ha")</lang> |
<lang powerbasic>MSGBOX REPEAT$(5, "ha")</lang> |
||
=={{header|Prolog}}== |
|||
<lang prolog> |
|||
%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). |
|||
</lang> |
|||
=={{header|Pure}}== |
=={{header|Pure}}== |