#65016 (Perl) No.83 最大マッチング - yukicoder

提出ソース

結果

問題	No.83 最大マッチング
ユーザー
提出日時	2015-12-12 07:00:31
言語	Perl (5.38.2)
結果	WA
実行時間	-
コード長	141 bytes
コンパイル時間	205 ms
コンパイル使用メモリ	6,940 KB
実行使用メモリ	6,944 KB
最終ジャッジ日時	2024-09-15 08:36:54
合計ジャッジ時間	669 ms
ジャッジサーバーID （参考情報）	judge1 / judge4

このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示

入力	結果	実行時間実行使用メモリ
testcase_00	AC	3 ms 5,248 KB
testcase_01	AC	3 ms 5,376 KB
testcase_02	AC	3 ms 5,376 KB
testcase_03	WA	-
testcase_04	AC	3 ms 5,376 KB
testcase_05	WA	-
testcase_06	AC	3 ms 5,376 KB
testcase_07	WA	-
testcase_08	AC	3 ms 5,376 KB
testcase_09	WA	-
testcase_10	WA	-
testcase_11	WA	-
testcase_12	AC	6 ms 5,376 KB

権限があれば一括ダウンロードができます

コンパイルメッセージ

Main.pl syntax OK

ソースコード

raw source code

chomp(my $n = <STDIN>);
my $x2 = int($n / 2);
my $amari = $n % 2;
my $num;
$num .= 1 foreach 2..$x2;
$num .= $amari ? 7 : 1;

print "$num\n";

0