提出 #19436617

ソースコード 拡げる

import qualified Data.ByteString.Char8 as C
import qualified Data.Vector.Unboxed as U
import Data.Vector.Unboxed ((!))

main = sub =<< readLn

sub n = sol n <$> get n >>= print

get n = U.unfoldrN n (C.readInt . C.dropWhile (<'+')) <$> C.getLine

sol n v = fst $ dp!!(n-1)
  where
  dp = (0,0):(abs (v!0-v!1),1):zipWith f dp (tail dp)
  f (d1,i) (d2,j) = (min (d1+abs (v!i-v!(j+1))) (d2+abs(v!j-v!(j+1))),j+1)

提出情報

提出日時
問題 A - Frog 1
ユーザ karoyakani
言語 Haskell (GHC 8.8.3)
得点 100
コード長 422 Byte
結果 AC
実行時間 63 ms
メモリ 24508 KiB

コンパイルエラー

Loaded package environment from /home/contestant/.ghc/x86_64-linux-8.8.3/environments/default

ジャッジ結果

セット名 All
得点 / 配点 100 / 100
結果
AC × 11
セット名 テストケース
All 0_00, 0_01, 0_02, 1_00, 1_01, 1_02, 1_03, 1_04, 1_05, 1_06, 1_07
ケース名 結果 実行時間 メモリ
0_00 AC 10 ms 4092 KiB
0_01 AC 2 ms 3972 KiB
0_02 AC 2 ms 4060 KiB
1_00 AC 3 ms 4108 KiB
1_01 AC 2 ms 4156 KiB
1_02 AC 59 ms 23468 KiB
1_03 AC 61 ms 23484 KiB
1_04 AC 63 ms 24508 KiB
1_05 AC 60 ms 24508 KiB
1_06 AC 63 ms 24464 KiB
1_07 AC 63 ms 24332 KiB