12 lines
404 B
Plaintext
12 lines
404 B
Plaintext
* Rep-string
|
|
strings = "1001110011 1110111011 0010010010 1010101010 1111111111 0100101101 0100100 101 11 00 1 "
|
|
pat1 = (len(1) $ fc breakx(*fc)) $ x *x (arbno(*x) (rpos(0) | rem $ y *?(x ? y)))
|
|
getstring
|
|
strings ? (break(" ") . rs len(1)) = :f(end)
|
|
rs ? pat1 :s(yes)
|
|
output = rs " is not a rep-string -> n/a" :(getstring)
|
|
yes
|
|
output = rs " has shortest rep-string value of -> " x
|
|
:(getstring)
|
|
end
|