結果

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

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
in01.txt AC 26 ms
15,528 KB
in02.txt AC 28 ms
15,536 KB
in03.txt AC 26 ms
15,528 KB
in04.txt AC 28 ms
17,572 KB
in05.txt AC 27 ms
15,528 KB
in06.txt AC 27 ms
13,484 KB
in07.txt AC 27 ms
15,532 KB
in08.txt AC 27 ms
13,500 KB
in09.txt AC 27 ms
15,540 KB
in10.txt AC 26 ms
13,484 KB
in11.txt WA -
r01.txt AC 27 ms
13,504 KB
r02.txt WA -
r03.txt WA -
r04.txt AC 28 ms
17,576 KB
r05.txt AC 26 ms
13,508 KB
r06.txt AC 75 ms
23,432 KB
r07.txt AC 82 ms
24,960 KB
r08.txt AC 37 ms
14,624 KB
r09.txt AC 83 ms
26,604 KB
r10.txt AC 48 ms
16,420 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 86 ms
27,300 KB
z02.txt AC 86 ms
25,284 KB
z03.txt WA -
z04.txt AC 85 ms
25,268 KB
z05.txt AC 87 ms
23,244 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