10 lines
173 B
Bash
10 lines
173 B
Bash
#!/usr/bin/env bash
|
|
|
|
paste -s -d '' input.txt |
|
|
perl -lne '
|
|
print "$1$4$2$3"
|
|
while
|
|
/(?<=(.).(.).{138})A(?=.{138}(.).(.))/g
|
|
' |
|
|
grep -Ec '(SM|MS){2}'
|