Anonymous user
Repeat a string: Difference between revisions
→{{header|E}}
No edit summary |
|||
Line 353:
=={{header|E}}==
<lang e>"ha" * 5</lang>
=={{header|ECL}}==
<lang>RepeatString(STRING InStr, INTEGER Cnt) := FUNCTION
rec := {STRING Str};
ds := DATASET(Cnt,TRANSFORM(rec,SELF.Str := InStr));
res := ITERATE(ds,TRANSFORM(rec,SELF.Str := LEFT.Str + RIGHT.Str));
RETURN Res[Cnt].Str;
END;
RepeatString('ha',3);
RepeatString('Who',2);</lang>
=={{header|Emacs Lisp}}==
|