RosettaCodeData/Task/Rep-string/J/rep-string-1.j
2023-07-01 13:44:08 -04:00

4 lines
86 B
Text

replengths=: >:@i.@<.@-:@#
rep=: $@] $ $
isRepStr=: +./@((] -: rep)"0 1~ replengths)