「Лифты」
Аноним
Товарищи погромисты, прошу вашей помощи. Как найти скорость лифта? Нам даны два лифта.
Реализовать это все надо на VBA, для лифтов создаются специальные массивы.
Товарищи погромисты, прошу вашей помощи. Как найти скорость лифта? Нам даны два лифта.
Реализовать это все надо на VBA, для лифтов создаются специальные массивы.
>живут в таком высоком доме, что у них в подъезде целых два лифта
Лол, эта задача что, прямиком из семидесятых?
Высокий дом - это типа Empire State Building, в таких домах лифтов десятки. А два лифта в каждой сраной новостройке есть, пассажирский и грузовой.
>Если нажать на кнопку "вверх", лифт поднимается на следующий этаж и останавливается. Если нажать на кнопку "вниз", лифт опускается на предыдущий этаж и останавливается.
Беру свои слова назад, такого маразма даже в семидесятых не было. Это уже стимпанк какой-то, тридцатые, нахуй. Там в следующей задаче случайно не требуется подсчитать, сколько дров сожгли в паровом котле этого замечательного лифта?
>>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
Хачкебляди соснули