>живут в таком высоком доме, что у них в подъезде целых два лифта
Лол, эта задача что, прямиком из семидесятых?
Высокий дом - это типа Empire State Building, в таких домах лифтов десятки. А два лифта в каждой сраной новостройке есть, пассажирский и грузовой.
>Если нажать на кнопку "вверх", лифт поднимается на следующий этаж и останавливается. Если нажать на кнопку "вниз", лифт опускается на предыдущий этаж и останавливается.
Беру свои слова назад, такого маразма даже в семидесятых не было. Это уже стимпанк какой-то, тридцатые, нахуй. Там в следующей задаче случайно не требуется подсчитать, сколько дров сожгли в паровом котле этого замечательного лифта?

>>28384 #
Все сложно, пока.

>>28384 #

main = putStrLn . show . length . filter (uncurry (==)) . (\[a, b] -> zip a b) . map (tail . scanl (+) 0 . map (\b -> case b of {"1" -> -1; "2" -> 1})) . map words . tail . lines =<< getContents

>>28390 #

a, b = STDIN.read.lines.drop(1).map { |l| e = 0; l.split.map { |x| e += x.to_i * 2 - 3; e } }; puts a.zip(b).select { |ai, bi| ai == bi }.size

Хачкебляди соснули

>>28412 #
> select { |ai, bi| ai == bi }

map(&:uniq).select(&:one?)

>>28384 #
> ограничение памяти 64Мбайт
Это типа чтобы даже на ноде и джаве можно было написать?