var a:array[1..1000000] of longint;
    n,i,s:longint;
begin
read(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
if a[i]<>a[i+1] then inc(s);
if a[1]<>a[n] then inc(s);
write(s);
end.
/**************************************************************
	Problem: 1805
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/