15 lines
152 B
Awk
15 lines
152 B
Awk
|
#!/usr/bin/awk -f
|
||
|
|
|
||
|
|
BEGIN {
|
||
|
|
FS=""
|
||
|
|
}
|
||
|
|
|
||
|
|
{
|
||
|
|
sum=0
|
||
|
|
for(i=1;i<=10;i++) {
|
||
|
|
sum *= 2
|
||
|
|
if($(i) ~ /[BR]/) sum++
|
||
|
|
}
|
||
|
|
print sum, $0
|
||
|
|
}
|