Submission #32524
ソースコード
1 2 3 4 5 6 7 | while(1){ ($info,$n) = split(/ /,<STDIN>);chomp($info,$n); if($info eq "push"){push(@stack,$n);} if($info eq "front"){print $stack[0]."\n";} if($info eq "pop"){shift(@stack);} if($info eq "exit"){last;}} |
ステータス
| 項目 | データ |
|---|---|
| 問題 | 0601 - プログラミング入門：Queue |
| ユーザー名 | PerlC |
| 投稿日時 | 2018-04-08 22:41:29 |
| 言語 | Perl |
| 状態 | Accepted |
| 得点 | 1 |
| ソースコード長 | 215 Byte |
| 最大実行時間 | 601 ms |
| 最大メモリ使用量 | 51936 KB |
セット
| セット | 得点 | Cases | |
|---|---|---|---|
| 1 | ALL | 1 / 1 | * |
テストケース
| ファイル名 | 状態 | 実行時間 | メモリ使用量 | # |
|---|---|---|---|---|
| Input01 | AC | 36 ms | 608 KB |
1
|
| Input02 | AC | 14 ms | 544 KB |
1
|
| Input03 | AC | 19 ms | 732 KB |
1
|
| Input04 | AC | 28 ms | 900 KB |
1
|
| Input05 | AC | 24 ms | 1196 KB |
1
|
| Input06 | AC | 64 ms | 2996 KB |
1
|
| Input07 | AC | 84 ms | 5580 KB |
1
|
| Input08 | AC | 237 ms | 17556 KB |
1
|
| Input09 | AC | 403 ms | 35644 KB |
1
|
| Input10 | AC | 601 ms | 51936 KB |
1
|