20 lines
414 B
AutoHotkey
20 lines
414 B
AutoHotkey
In := ["1001110011", "1110111011", "0010010010", "1010101010"
|
|
, "1111111111", "0100101101", "0100100", "101", "11", "00", "1"]
|
|
for k, v in In
|
|
Out .= RepString(v) "`t" v "`n"
|
|
MsgBox, % Out
|
|
|
|
RepString(s) {
|
|
Loop, % StrLen(s) // 2 {
|
|
i := A_Index
|
|
Loop, Parse, s
|
|
{
|
|
pos := Mod(A_Index, i)
|
|
if (A_LoopField != SubStr(s, !pos ? i : pos, 1))
|
|
continue, 2
|
|
}
|
|
return SubStr(s, 1, i)
|
|
}
|
|
return "N/A"
|
|
}
|