Сеня как-то красил окна в широком одноэтажном доме — со стороны этот дом выглядит как N стоящих друг за другом окон. Изнутри дом состоит из квартир: каждая квартира — это некоторый непрерывный отрезок окон, причём каждое окно принадлежит ровно одной квартире. У Сени была краска только двух цветов: цвета «a» и цвета «b». Сеня знал про каждое окно, к какой квартире оно относится, и покрасил окна так, чтобы у каждой квартиры все окна стали одинакового цвета, а цвета окон соседних квартир различались.
Когда Сеня закончил свою работу, вечером мимо этого дома проходил его друг Витя. Витя увидел, что в некоторых окнах горит свет, а в других окнах — не горит. Витя зарисовал, в каких окнах горит свет, и показал эту схему Сене. Теперь Витя с Сеней хотят понять: сколько в доме квартир, у которых свет горел во всех окнах?
Исходные данные
В первой строке вводится целое число N — количество окон в доме (1 ≤ N ≤ 100 000).
Во второй строке вводится последовательность букв «a» и «b» длины N — цвета окон. Смена одной буквы на другую обозначает конец одной квартиры и начало следующей.
В третьей строке вводится последовательность символов «.» (точка) и «#» (диез) длины N — схема Вити в том же порядке: точка обозначает, что свет в соответствующем окне не горит, диез — что горит.
Результат
Выведите единственное целое число — у какого количества квартир свет горит во всех окнах.
Пример
исходные данные результат
6
abbaab
.##.##
2
Система оценки и описание подзадач
Тесты в этой задаче разбиты на 6 групп. за группу начисляются при прохождении всех тестов этой и всех необходимых групп. Пример из условия не оценивается.
Problem illustration
Const n=3; m=3;
Var A:array[1..n, 1..m] of integer;
i,j,s,s1,k:integer; sr:real;
BEGIN
Writeln('Массив А: ');
For i:=1 to n do
begin
s:=0;
for j:=1 to m do
begin
A[i,j]:=Random(10);
Write(A[i,j]:2);
s:=s+A[i,j];
sr:=s/i;
end;
Writeln;
end;
Writeln;
k:=0;
For i:=1 to n do
begin
s1:=0;
for j:=1 to m do
If A[i,j]>sr then
begin
inc(k);
s1:=s1+A[i,j];
end;
Writeln('Сумма строки №',i,' : ',s1);
end;
Writeln('Сред. ариф. массива: ',sr:2:2);
Writeln('Количество: ',k);
END.