Repeat some characters n times in ObjectScript.

Question

Question

Michel Bruyère · Nov 27, 2019

Hello,

I'm looking for a simple commons method or operator that allows me to repeat some characters n times. I know I could write this using a for loop, but I wish to avoid for loops whenever necessary and a simple direct method should exist somewhere.

Best Regards.

Discussion (6)0

Log in or sign up to continue

Alexander Koblov · Nov 27, 2019

The best I know is $TR/$J combination:

USER>w $TR($J("",10)," ","x") ; repeat x 10 times
xxxxxxxxxx
USER>w $TR($J("",5)," ","y") ; repeat y 5 times
yyyyy

2 0

score 0 · Answer 1 · 2019-11-27T05:22:59-05:00

Michel Bruyère · Nov 27, 2019

Thanks.

0 0

score 5 · Answer 2 · 2019-11-27T04:56:22-05:00

set myVar="",$piece(myVar,"=",31)="" ;repeat = 30 times

works also with multiple characters :

USER>set myVar="",$piece(myVar,"=?",31)=""

USER>write myVar
=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?

score 0 · Answer 3 · 2019-11-27T05:14:53-05:00

Michel Bruyère · Nov 27, 2019

Tricky!

Thanks.

0 0

score 0 · Answer 4 · 2019-11-28T05:54:47-05:00

Or

USER>k temp  set $LIST(temp,31)="",myVar=$LISTTOSTRING(temp,"=?",1)
USER>w myVar
=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?

score 0 · Answer 5 · 2019-11-28T10:33:31-05:00

Or

USER>w $replace($j("",30)," ","=?")
=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?

USER>w $l(x,"=?")
31 ; as in previous samples