Submission #10405897

---

Source Code Expand

import Data.Vector

main = do
    i <- read <$> getLine
    ns <- fromList . fmap read . words <$> getLine
    putStrLn . show $ cost (i - 1) ns

cost :: Int -> Vector Int -> Int
cost 0 ns = 0
cost 1 ns = abs $ ns ! 0 - ns ! 1
cost i ns = min (cost (i - 2) ns + abs (ns ! (i - 2) - ns ! i)) (cost (i - 1) ns + abs (ns ! (i - 1) - ns ! i))

Submission Info

Judge Result