Result

AC

Code [DL]

00000000  3a 25 73 2f 2e 5c 2b 2f  5c 3d 21 28 66 6c 6f 61  |:%s/.\+/\=!(floa|
00000010  74 32 6e 72 28 73 71 72  74 28 28 22 30 62 22 2e  |t2nr(sqrt(("0b".|
00000020  73 75 62 6d 61 74 63 68  28 30 29 29 2a 38 2b 31  |submatch(0))*8+1|
00000030  29 2a 39 39 29 25 39 39  29 2f 0a 1b 5a 5a        |)*99)%99)/..ZZ|
0000003e

Disassembly

:%s/.\+/\=!(float2nr(sqrt(("0b".submatch(0))*8+1)*99)%99)/<NL><Esc>ZZ

stdin

10101001
01011011
00101001
10111110
01100011
00001010
11100111
01011111
11111011
00100100
10101101
01000101
10110011
00100001
00010100
00111101
10011001
11010111
11101001
11001111
01111110
10101011
00011100
00000110
00000001
11010010
00000011
11100000
10101111
11111001
00001111
10011001
10010101
00101011
01000010
10010000
00001100
11111101
00101101
00110111
10111011
00111011
01001110
00000000
01101001
01111101
00010101
10001000
10101011
01111000

stdout

0
1
0
1
0
1
1
0
0
1
0
0
0
0
0
0
1
0
0
0
0
1
1
1
1
1
1
0
0
0
1
1
0
0
1
0
0
1
1
1
0
0
1
1
1
0
1
1
1
1

stderr

strace