q
хотя не,
Size: a a a
2021 March 22
q
холевар какой-то
G
Тут же помилка в відповіді
G
Можна за 22 гривні проїхати, а там 27
q
Можна за 22 гривні проїхати, а там 27
почему сразу гривни?
q
условие дано на русском
k
дак это вы там прогаете русских дронов?
KS
дак это вы там прогаете русских дронов?
дроны платят налог за движение
k
который будет за рубли в маршрутках кататься
q
бля, парни, смотрите, чем я занят
KS
запускать виндовс сервер на убунте?)
q
не вижу указателей
q
запускать виндовс сервер на убунте?)
да это еще не страшно(
q
лаба пиздец какая скучная
KS
это страшно
G
grid = [ [1, 8, 8, 4]
, [10, 1, 1, 3]
, [1, 3, 12, 2]
, [2, 3, 5, 6]
]
gridSize = length grid
(<+>) (a, b) (c, d) = (a + c, b + d)
(<^>) l (a, b) = l !! a !! b;
filt = (== (des, des)) . foldl (<+>) (0, 0) where des = gridSize - 1
moves = filter filt . mapM (const [(1, 0), (0, 1)]) $ [1 .. 2 * (gridSize - 1)]
run = foldl (\(pos, c) move -> (pos<+>move, c+grid<^>pos)) ((0, 0), lastPt)
where lastPt = grid <^> (i, i)
i = gridSize - 1
main = do
let prices = map (snd . run) moves
print $ minimum prices
print $ maximum prices
Д
grid = [ [1, 8, 8, 4]
, [10, 1, 1, 3]
, [1, 3, 12, 2]
, [2, 3, 5, 6]
]
gridSize = length grid
(<+>) (a, b) (c, d) = (a + c, b + d)
(<^>) l (a, b) = l !! a !! b;
filt = (== (des, des)) . foldl (<+>) (0, 0) where des = gridSize - 1
moves = filter filt . mapM (const [(1, 0), (0, 1)]) $ [1 .. 2 * (gridSize - 1)]
run = foldl (\(pos, c) move -> (pos<+>move, c+grid<^>pos)) ((0, 0), lastPt)
where lastPt = grid <^> (i, i)
i = gridSize - 1
main = do
let prices = map (snd . run) moves
print $ minimum prices
print $ maximum prices
Спасибо
RN
RN
так это батч а не повершелл