結果

問題 No.478 一般門松列列
ユーザー pekempeypekempey
提出日時 2017-01-27 22:41:02
言語 F#
(F# 4.0)
結果
AC  
実行時間 168 ms / 2,000 ms
コード長 274 bytes
コンパイル時間 4,350 ms
コンパイル使用メモリ 158,248 KB
実行使用メモリ 30,948 KB
最終ジャッジ日時 2023-08-25 04:14:05
合計ジャッジ時間 10,189 ms
ジャッジサーバーID
（参考情報） 		judge13 / judge11
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 82 ms
22,784 KB
testcase_01 AC 81 ms
22,732 KB
testcase_02 AC 81 ms
22,984 KB
testcase_03 AC 83 ms
22,876 KB
testcase_04 AC 83 ms
20,832 KB
testcase_05 AC 83 ms
22,836 KB
testcase_06 AC 82 ms
22,872 KB
testcase_07 AC 83 ms
22,852 KB
testcase_08 AC 83 ms
24,788 KB
testcase_09 AC 84 ms
22,840 KB
testcase_10 AC 84 ms
22,884 KB
testcase_11 AC 167 ms
28,940 KB
testcase_12 AC 168 ms
28,944 KB
testcase_13 AC 167 ms
28,916 KB
testcase_14 AC 167 ms
26,880 KB
testcase_15 AC 161 ms
29,036 KB
testcase_16 AC 111 ms
22,852 KB
testcase_17 AC 164 ms
26,964 KB
testcase_18 AC 132 ms
26,804 KB
testcase_19 AC 165 ms
30,948 KB
testcase_20 AC 152 ms
30,936 KB
testcase_21 AC 144 ms
24,828 KB
testcase_22 AC 120 ms
26,868 KB
testcase_23 AC 117 ms
24,840 KB
testcase_24 AC 134 ms
24,860 KB
testcase_25 AC 153 ms
28,944 KB
testcase_26 AC 95 ms
24,776 KB
testcase_27 AC 98 ms
20,712 KB
testcase_28 AC 90 ms
22,796 KB
testcase_29 AC 90 ms
22,804 KB
testcase_30 AC 128 ms
26,868 KB
testcase_31 AC 115 ms
24,892 KB
testcase_32 AC 104 ms
22,792 KB
testcase_33 AC 113 ms
24,736 KB
権限があれば一括ダウンロードができます
コンパイルメッセージ
Microsoft (R) F# Compiler version 11.0.0.0 for F# 5.0
Copyright (c) Microsoft Corporation. All Rights Reserved.

ソースコード

diff # 

open System

let N, K = Console.ReadLine().Split() |> Array.map int |> fun a -> a.[0], a.[1]

for i = 0 to K + 1 do
    printf "%d " (1000000 + i)

for i = K + 2 to N - 1 do
    if (i - K + 2) % 2 = 0 then
        printf "%d " i
    else
        printf "%d " (50000000 - i)
0