結果

問題 No.45 回転寿司
ユーザー 3405691582
提出日時 2017-03-21 03:37:01
言語 Haskell
(8.0.2)
結果
AC  
実行時間 8 ms
コード長 315 Byte
コンパイル時間 1334 ms
使用メモリ 2716 KB

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
gen_case1.txt AC 6 ms
2672 KB
gen_case2.txt AC 8 ms
2680 KB
gen_case3.txt AC 5 ms
2592 KB
gen_case4.txt AC 4 ms
2288 KB
gen_case5.txt AC 5 ms
2552 KB
gen_case6.txt AC 8 ms
2672 KB
gen_case7.txt AC 4 ms
2432 KB
gen_case8.txt AC 8 ms
2672 KB
gen_case9.txt AC 4 ms
2520 KB
gen_case10.txt AC 4 ms
2432 KB
gen_case11.txt AC 6 ms
2692 KB
gen_case12.txt AC 4 ms
2248 KB
gen_case13.txt AC 2 ms
2112 KB
gen_case14.txt AC 4 ms
2536 KB
gen_case15.txt AC 4 ms
2456 KB
gen_case16.txt AC 4 ms
2504 KB
gen_case17.txt AC 3 ms
2468 KB
gen_case18.txt AC 5 ms
2644 KB
gen_case19.txt AC 3 ms
2096 KB
gen_case20.txt AC 3 ms
2220 KB
sample1.txt AC 3 ms
1884 KB
sample2.txt AC 3 ms
1884 KB
sample3.txt AC 3 ms
1900 KB
sample4.txt AC 3 ms
1884 KB
system_test1.txt AC 4 ms
2536 KB
system_test2.txt AC 5 ms
2640 KB
system_test3.txt AC 5 ms
2556 KB
system_test4.txt AC 5 ms
2620 KB
system_test5.txt AC 5 ms
2644 KB
system_test6.txt AC 3 ms
1892 KB
system_test7.txt AC 3 ms
1888 KB
system_test8.txt AC 6 ms
2716 KB
テストケース一括ダウンロード

ソースコード

diff #
import Data.Array
main = do
  n <- getLine
  vs <- map read . words <$> getLine :: IO [Int]
  putStrLn $ show $ head $ maxTaste vs

maxTaste :: [Int] -> [Int]
maxTaste [v] = [v]
maxTaste (v:[v']) = max v v':[v']
maxTaste (v:v':v'':vs) =
  let
    ts'@(t':t'':ts) = maxTaste (v':v'':vs)
  in
    max (v + t'') t':ts'
0