結果

問題 No.1335 1337
ユーザー Yuzu MashiroYuzu Mashiro
提出日時 2021-09-28 07:57:25
言語 Nim
(2.0.2)
結果
AC  
実行時間 2 ms / 2,000 ms
コード長 483 bytes
コンパイル時間 3,878 ms
コンパイル使用メモリ 68,632 KB
実行使用メモリ 4,384 KB
最終ジャッジ日時 2023-09-21 13:00:56
合計ジャッジ時間 5,116 ms
ジャッジサーバーID
（参考情報） 		judge15 / judge12
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 2 ms
4,380 KB
testcase_01 AC 1 ms
4,380 KB
testcase_02 AC 1 ms
4,376 KB
testcase_03 AC 2 ms
4,376 KB
testcase_04 AC 2 ms
4,380 KB
testcase_05 AC 2 ms
4,376 KB
testcase_06 AC 2 ms
4,376 KB
testcase_07 AC 2 ms
4,380 KB
testcase_08 AC 1 ms
4,376 KB
testcase_09 AC 2 ms
4,380 KB
testcase_10 AC 2 ms
4,376 KB
testcase_11 AC 2 ms
4,376 KB
testcase_12 AC 1 ms
4,376 KB
testcase_13 AC 1 ms
4,384 KB
testcase_14 AC 1 ms
4,376 KB
testcase_15 AC 1 ms
4,380 KB
testcase_16 AC 1 ms
4,380 KB
testcase_17 AC 1 ms
4,376 KB
権限があれば一括ダウンロードができます

ソースコード

diff # 

#region ccfuncs
import strutils

type
    TypeInt = typedesc[int]
    TypeString = typedesc[string]

proc read(a: TypeString): string {.used.} =
    stdin.readLine

proc read(a: TypeInt, b: TypeInt): (int, int) {.used.} =
    let data = read(string).split
    (data[0].parseInt, data[1].parseInt)

proc answer(n: int) {.used.} =
    echo n
#endregion

let a = read(string)
let s = read(string)

for e in s: stdout.write:
    if isDigit(e): a[parseInt($e)] else: e

stdout.write "\n"
0