17 lines
529 B
Plaintext
17 lines
529 B
Plaintext
> Test := ["1001110011", "1110111011", "0010010010", "1010101010", "1111111111", \
|
|
"0100101101", "0100100", "101", "11", "00", "1"]:
|
|
> for s in Test do
|
|
> printf( "%*s\t%5s %s\n", 3 + max(map(length,Test)), s, repstr?( s ) )
|
|
> end do:
|
|
1001110011 true 10011
|
|
1110111011 true 1110
|
|
0010010010 true 001
|
|
1010101010 true 10
|
|
1111111111 true 1
|
|
0100101101 false
|
|
0100100 true 010
|
|
101 false
|
|
11 true 1
|
|
00 true 0
|
|
1 false
|