Problem:
Score : 400 points

Problem Statement

Snuke has N strings. The i-th string is s_i.

Let us concatenate these strings into one string after arranging them in some order.
Find the maximum possible number of occurrences of AB in the resulting string.

Constraints

1 \leq N \leq 10^{4}

2 \leq |s_i| \leq 10

s_i consists of uppercase English letters.

Input

Input is given from Standard Input in the following format:

N
s_1
\vdots
s_N

Output

Print the answer.

Sample Input 1

3
ABCA
XBAZ
BAD

Sample Output 1

2

For example, if we concatenate ABCA, BAD and XBAZ in this order, the resulting string ABCABADXBAZ has two occurrences of AB.

Sample Input 2

9
BEWPVCRWH
ZZNQYIJX
BAVREA
PA
HJMYITEOX
BCJHMRMNK
BP
QVFABZ
PRGKSPUNA

Sample Output 2

4

Sample Input 3

7
RABYBBE
JOZ
BMHQUVA
BPA
ISU
MCMABAOBHZ
SZMEHMA

Sample Output 3

4

Solution in Kotlin (1.3.71) (judge verdict: Accepted)

import kotlin.math.abs
import kotlin.math.max
import kotlin.math.min

fun main() {
    diverta2019c()
}

fun diverta2019c() {
    val n = readLine()!!.toInt()
    var bxx = 0
    var xxa = 0
    var bxxa = 0
    var count = 0
    repeat(n) {
        val s = readLine()!!
        count += "AB".toRegex().findAll(s).count()
        when {
            s.first() == 'B' && s.last() == 'A' -> bxxa++
            s.first() == 'B' -> bxx++
            s.last() == 'A' -> xxa++
        }
    }
    if (bxxa == 0) {
        // どっちかしかないなら少ない方分しかペアを作れない
        count += min(bxx, xxa)
    } else if (bxx == 0 && xxa == 0) {
        // bxxaしかないならbxxaの数-1個ペアが作れる（自身のBもしくはAが1つ無駄になって使えないから）
        count += bxxa - 1
    } else {
        // bxxaはどっちにも使えるからややこしい
        if (xxa >= bxx + bxxa) {
            // bxxaをbで始まるものとして扱うとしてもなおAで終わるものの数が多いのであれば、
            // Bで始まるものの個数だけABを作れる
            count += bxx + bxxa
        } else if (bxxa + xxa < bxx) {
            // bxxaをaで終わるものとして扱うとしてもなおBで始まるものの数が多いのであれば
            // Bで始まるものの個数分だけABを作れる
            count += bxxa + xxa
        } else {
            // bxxaが単独で余る場合、少ない方にbxxaを充足してやればbxxもしくはxxaの大きい方の個数だけABを作れる
            // あとは充足してもなお余ったbxxaの数 - 1個分だけABを作れるが、
            // 充足したbxxaを使ってもう1つペアを作れるので結局あまったbxxa分ペアを作れるということになる
            val bigger = max(bxx, xxa)
            count += bigger + bxxa - abs(bxx - xxa)
        }
    }
    println(count)
}