結果

問題 No.365 ジェンガソート
ユーザー tak
提出日時 2019-06-13 13:40:32
言語 F#
(4.5)
結果
WA   .
実行時間 -
コード長 568 Byte
コンパイル時間 3,025 ms
使用メモリ 46,172 KB
最終ジャッジ日時 2019-08-23 01:51:05

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
in01.txt AC 50 ms
16,100 KB
in02.txt AC 51 ms
18,144 KB
in03.txt AC 51 ms
18,140 KB
in04.txt AC 50 ms
20,180 KB
in05.txt AC 52 ms
18,152 KB
in06.txt AC 51 ms
18,152 KB
in07.txt AC 50 ms
16,108 KB
in08.txt AC 52 ms
20,192 KB
in09.txt AC 51 ms
16,112 KB
in10.txt AC 52 ms
18,148 KB
in11.txt WA -
r01.txt AC 52 ms
18,148 KB
r02.txt WA -
r03.txt WA -
r04.txt AC 52 ms
18,168 KB
r05.txt AC 52 ms
18,168 KB
r06.txt AC 220 ms
40,840 KB
r07.txt AC 251 ms
38,396 KB
r08.txt AC 73 ms
23,680 KB
r09.txt AC 245 ms
40,188 KB
r10.txt AC 112 ms
27,712 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 247 ms
38,304 KB
z02.txt AC 257 ms
38,304 KB
z03.txt WA -
z04.txt AC 260 ms
40,352 KB
z05.txt AC 259 ms
40,344 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 a' =
        let comp =
            a
            |> Array.sort
            |> Array.indexed 
            |> Array.map (fun (idx, x) -> (x, idx))
            |> Map.ofArray
        a 
        |> Array.map (fun x -> comp.[x] + 1)
    
    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