結果

問題 No.267 トランプソート
ユーザー guriceringuricerin
提出日時 2020-02-12 11:46:19
言語 F#
(F# 4.0)
結果
AC  
実行時間 78 ms / 1,000 ms
コード長 1,990 bytes
コンパイル時間 18,211 ms
コンパイル使用メモリ 201,248 KB
実行使用メモリ 31,104 KB
最終ジャッジ日時 2024-10-03 05:47:00
合計ジャッジ時間 16,862 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge4
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 75 ms
30,848 KB
testcase_01 AC 74 ms
30,968 KB
testcase_02 AC 76 ms
30,720 KB
testcase_03 AC 72 ms
30,944 KB
testcase_04 AC 73 ms
30,696 KB
testcase_05 AC 77 ms
30,976 KB
testcase_06 AC 74 ms
30,720 KB
testcase_07 AC 73 ms
30,592 KB
testcase_08 AC 72 ms
30,848 KB
testcase_09 AC 74 ms
30,848 KB
testcase_10 AC 76 ms
31,100 KB
testcase_11 AC 73 ms
31,104 KB
testcase_12 AC 72 ms
31,104 KB
testcase_13 AC 71 ms
30,848 KB
testcase_14 AC 71 ms
31,104 KB
testcase_15 AC 72 ms
30,944 KB
testcase_16 AC 71 ms
31,104 KB
testcase_17 AC 72 ms
30,848 KB
testcase_18 AC 72 ms
30,848 KB
testcase_19 AC 72 ms
30,848 KB
testcase_20 AC 72 ms
30,976 KB
testcase_21 AC 78 ms
30,848 KB
testcase_22 AC 74 ms
30,848 KB
権限があれば一括ダウンロードができます
コンパイルメッセージ
  復元対象のプロジェクトを決定しています...
  /home/judge/data/code/main.fsproj を復元しました (379 ms)。
MSBuild のバージョン 17.9.6+a4ecab324 (.NET)
/home/judge/data/code/Main.fs(30,19): warning FS0025: この式のパターン マッチが不完全です たとえば、値 '' '' はパターンに含まれないケースを示す可能性があります。 [/home/judge/data/code/main.fsproj]
/home/judge/data/code/Main.fs(50,23): warning FS0025: この式のパターン マッチが不完全です たとえば、値 '4' はパターンに含まれないケースを示す可能性があります。 [/home/judge/data/code/main.fsproj]
  main -> /home/judge/data/code/bin/Release/net8.0/main.dll
  main -> /home/judge/data/code/bin/Release/net8.0/publish/

ソースコード

diff # 

open System
open System.Collections.Generic

[<AutoOpen>]
module Cin =
    let read f = stdin.ReadLine() |> f
    let reada f = stdin.ReadLine().Split() |> Array.map f
    let readChars() = read string |> Seq.toArray
    let readInts() = readChars() |> Array.map (fun x -> Convert.ToInt32(x.ToString()))

[<AutoOpen>]
module Cout =
    let writer = new IO.StreamWriter(new IO.BufferedStream(Console.OpenStandardOutput()))
    let print (s: string) = writer.Write s
    let println (s: string) = writer.WriteLine s
    let inline puts (s: ^a) = string s |> println

// -----------------------------------------------------------------------------------------------------

// -----------------------------------------------------------------------------------------------------

let main() =
    let n = read int
    let card = Array2D.init 4 13 (fun _ _ -> false)
    let mns = reada string
    for i in 0 .. n - 1 do
        let mn = mns.[i]

        let suit =
            match mn.[0] with
            | 'D' -> 0
            | 'C' -> 1
            | 'H' -> 2
            | 'S' -> 3
        let num =
            match mn.[1] with
            | 'A' -> 1
            | 'T' -> 10
            | 'J' -> 11
            | 'Q' -> 12
            | 'K' -> 13
            | c -> int c - int '0'

        let num = num - 1
        card.[suit, num] <- true

    for s in 0 .. 3 do
        for k in 0 .. 12 do
            let suit =
                match s with
                | 0 -> "D"
                | 1 -> "C"
                | 2 -> "H"
                | 3 -> "S"

            let num =
                match k with
                | 0 -> "A"
                | 9 -> "T"
                | 10 -> "J"
                | 11 -> "Q"
                | 12 -> "K"
                | _ -> string (k + 1)

            if card.[s, k] then sprintf "%s%s " suit num |> print
    ()

// -----------------------------------------------------------------------------------------------------
main()
writer.Dispose()
0