結果

問題 No.365 ジェンガソート
ユーザー tak
提出日時 2019-06-13 13:25:34
言語 F#
(4.1)
結果
WA   .
実行時間 -
コード長 325 Byte
コンパイル時間 3,768 ms
使用メモリ 27,320 KB
最終ジャッジ日時 2019-06-13 13:25:41

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
in01.txt AC 25 ms
15,528 KB
in02.txt AC 26 ms
11,456 KB
in03.txt AC 27 ms
17,572 KB
in04.txt AC 26 ms
15,528 KB
in05.txt AC 26 ms
17,576 KB
in06.txt AC 25 ms
15,528 KB
in07.txt AC 27 ms
17,572 KB
in08.txt AC 25 ms
11,456 KB
in09.txt AC 26 ms
13,480 KB
in10.txt AC 25 ms
13,488 KB
in11.txt WA -
r01.txt AC 26 ms
11,464 KB
r02.txt WA -
r03.txt WA -
r04.txt AC 26 ms
13,504 KB
r05.txt AC 30 ms
13,508 KB
r06.txt AC 80 ms
21,408 KB
r07.txt AC 96 ms
22,932 KB
r08.txt AC 36 ms
16,672 KB
r09.txt AC 80 ms
20,484 KB
r10.txt AC 47 ms
18,448 KB
system_test1.txt WA -
system_test2.txt WA -
system_test3.txt WA -
system_test4.txt WA -
system_test5.txt WA -
system_test6.txt WA -
system_test7.txt WA -
system_test8.txt WA -
system_test9.txt WA -
system_test10.txt WA -
system_test11.txt WA -
system_test12.txt WA -
system_test13.txt WA -
system_test14.txt WA -
system_test15.txt WA -
z01.txt AC 83 ms
25,264 KB
z02.txt AC 86 ms
27,320 KB
z03.txt WA -
z04.txt AC 84 ms
25,268 KB
z05.txt AC 84 ms
25,268 KB
テストケース一括ダウンロード
コンパイルメッセージ
Microsoft (R) F# Compiler version 4.1
Copyright (c) Microsoft Corporation. All Rights Reserved.

ソースコード

diff #
module Program

open System

let solve a =
    let len = a |> Array.length
    let dp = Array.zeroCreate (len + 1)
    a |> Array.iter (fun a -> dp.[a] <- dp.[a-1] + 1)
    len - (dp |> Array.max)

let N = Console.ReadLine() |> ignore
let a = 
    Console.ReadLine().Split()
    |> Array.map int

solve a
|> Console.WriteLine
0