結果

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

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
in01.txt AC 54 ms
18,152 KB
in02.txt AC 53 ms
16,108 KB
in03.txt AC 55 ms
20,192 KB
in04.txt AC 53 ms
18,140 KB
in05.txt AC 53 ms
16,112 KB
in06.txt AC 55 ms
20,192 KB
in07.txt AC 53 ms
18,152 KB
in08.txt AC 53 ms
18,144 KB
in09.txt AC 54 ms
18,148 KB
in10.txt AC 54 ms
14,068 KB
in11.txt WA -
r01.txt AC 54 ms
14,068 KB
r02.txt WA -
r03.txt WA -
r04.txt AC 63 ms
20,192 KB
r05.txt AC 71 ms
18,172 KB
r06.txt AC 235 ms
38,788 KB
r07.txt AC 268 ms
44,320 KB
r08.txt AC 76 ms
23,692 KB
r09.txt AC 262 ms
40,192 KB
r10.txt AC 119 ms
31,800 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 261 ms
42,180 KB
z02.txt AC 267 ms
36,036 KB
z03.txt WA -
z04.txt AC 298 ms
42,180 KB
z05.txt AC 293 ms
38,088 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