RosettaCodeData/Task/Rep-string/J/rep-string-1.j

5 lines
86 B
Plaintext

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