結果
問題 | No.478 一般門松列列 |
ユーザー | moti |
提出日時 | 2018-05-29 08:58:16 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 15 ms / 2,000 ms |
コード長 | 289 bytes |
コンパイル時間 | 222 ms |
コンパイル使用メモリ | 6,944 KB |
実行使用メモリ | 7,040 KB |
最終ジャッジ日時 | 2024-06-30 07:59:27 |
合計ジャッジ時間 | 1,868 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge3 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 34 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
#!/usr/bin/env perl use strict; use warnings; my ($n, $k) = split/ /,<>; chomp $k; my @base = (1, 3, 2, 4); my @array; for (1..(int($n/4)+3)) { push @array, @base; } for (1..$k) { unshift @array, 1; } for (0..($n-1)) { if ($_) { print " "; } print $array[$_]; } print "\n";