結果

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

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
in01.txt AC 28 ms
15,536 KB
in02.txt AC 28 ms
15,532 KB
in03.txt AC 29 ms
17,580 KB
in04.txt AC 28 ms
17,576 KB
in05.txt AC 27 ms
15,540 KB
in06.txt AC 28 ms
15,528 KB
in07.txt AC 27 ms
13,500 KB
in08.txt AC 27 ms
15,544 KB
in09.txt AC 28 ms
13,488 KB
in10.txt AC 28 ms
13,508 KB
in11.txt AC 28 ms
15,524 KB
r01.txt AC 27 ms
13,492 KB
r02.txt AC 27 ms
11,464 KB
r03.txt AC 31 ms
17,604 KB
r04.txt AC 27 ms
13,484 KB
r05.txt AC 35 ms
17,604 KB
r06.txt AC 94 ms
23,460 KB
r07.txt AC 85 ms
22,928 KB
r08.txt AC 38 ms
16,672 KB
r09.txt AC 87 ms
26,632 KB
r10.txt AC 51 ms
16,420 KB
system_test1.txt AC 47 ms
17,804 KB
system_test2.txt AC 76 ms
24,056 KB
system_test3.txt AC 59 ms
21,632 KB
system_test4.txt AC 79 ms
25,888 KB
system_test5.txt AC 44 ms
15,628 KB
system_test6.txt AC 65 ms
22,444 KB
system_test7.txt AC 90 ms
25,200 KB
system_test8.txt AC 66 ms
18,520 KB
system_test9.txt AC 84 ms
24,436 KB
system_test10.txt AC 66 ms
16,624 KB
system_test11.txt AC 56 ms
18,092 KB
system_test12.txt AC 55 ms
17,968 KB
system_test13.txt AC 103 ms
23,132 KB
system_test14.txt AC 44 ms
17,424 KB
system_test15.txt AC 77 ms
25,944 KB
z01.txt AC 90 ms
23,228 KB
z02.txt AC 89 ms
25,276 KB
z03.txt AC 90 ms
25,276 KB
z04.txt AC 90 ms
25,276 KB
z05.txt AC 90 ms
27,312 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