#160419 (Perl) No.423 ハムスター語初級（数詞） - yukicoder

提出ソース

結果

問題	No.423 ハムスター語初級（数詞）
ユーザー	kuroi_13
提出日時	2017-03-29 09:08:06
言語	Perl (5.38.2)
結果	AC
実行時間	5 ms / 2,000 ms
コード長	93 bytes
コンパイル時間	63 ms
コンパイル使用メモリ	5,332 KB
実行使用メモリ	5,052 KB
最終ジャッジ日時	2023-09-20 19:56:02
合計ジャッジ時間	712 ms
ジャッジサーバーID （参考情報）	judge12 / judge14

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

テストケース

テストケース表示

入力	結果	実行時間実行使用メモリ
testcase_00	AC	5 ms 4,932 KB
testcase_01	AC	5 ms 5,016 KB
testcase_02	AC	5 ms 4,908 KB
testcase_03	AC	5 ms 4,924 KB
testcase_04	AC	5 ms 4,796 KB
testcase_05	AC	4 ms 4,856 KB
testcase_06	AC	5 ms 5,052 KB
testcase_07	AC	5 ms 5,000 KB
testcase_08	AC	5 ms 4,936 KB
testcase_09	AC	5 ms 4,932 KB

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

コンパイルメッセージ

Main.pl syntax OK

ソースコード

raw source code

use strict;
use warnings;

my $ans = <>;
chomp $ans;
print $ans eq 'ham' ? $ans : $ans.'ham';

0