結果

問題 No.365 ジェンガソート
ユーザー tak
提出日時 2019-06-13 14:32:04
言語 F#
(4.5)
結果
AC  
実行時間 91 ms
コード長 347 Byte
コンパイル時間 3,324 ms
使用メモリ 20,312 KB
最終ジャッジ日時 2019-08-23 02:31:43

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
in01.txt AC 26 ms
9,456 KB
in02.txt AC 26 ms
9,456 KB
in03.txt AC 27 ms
9,440 KB
in04.txt AC 25 ms
9,448 KB
in05.txt AC 25 ms
9,448 KB
in06.txt AC 25 ms
9,444 KB
in07.txt AC 26 ms
9,440 KB
in08.txt AC 25 ms
9,444 KB
in09.txt AC 26 ms
9,448 KB
in10.txt AC 25 ms
9,448 KB
in11.txt AC 27 ms
9,448 KB
r01.txt AC 25 ms
9,440 KB
r02.txt AC 26 ms
9,456 KB
r03.txt AC 27 ms
9,468 KB
r04.txt AC 26 ms
9,444 KB
r05.txt AC 28 ms
9,480 KB
r06.txt AC 76 ms
17,740 KB
r07.txt AC 85 ms
19,756 KB
r08.txt AC 38 ms
10,876 KB
r09.txt AC 86 ms
19,360 KB
r10.txt AC 49 ms
13,352 KB
system_test1.txt AC 45 ms
12,436 KB
system_test2.txt AC 76 ms
18,292 KB
system_test3.txt AC 58 ms
14,916 KB
system_test4.txt AC 73 ms
17,976 KB
system_test5.txt AC 44 ms
12,244 KB
system_test6.txt AC 65 ms
16,072 KB
system_test7.txt AC 88 ms
20,168 KB
system_test8.txt AC 66 ms
16,320 KB
system_test9.txt AC 82 ms
19,104 KB
system_test10.txt AC 66 ms
16,508 KB
system_test11.txt AC 48 ms
12,864 KB
system_test12.txt AC 46 ms
12,700 KB
system_test13.txt AC 88 ms
20,092 KB
system_test14.txt AC 43 ms
11,876 KB
system_test15.txt AC 75 ms
18,056 KB
z01.txt AC 88 ms
20,300 KB
z02.txt AC 89 ms
20,312 KB
z03.txt AC 89 ms
20,312 KB
z04.txt AC 89 ms
20,300 KB
z05.txt AC 91 ms
20,308 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)
    Array.iter (fun x -> dp.[x] <- dp.[x-1] + 1) a    
    let sortedNum = dp.[len]
    len - sortedNum

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

solve a
|> Console.WriteLine
0