#391434 (Perl) No.910 素数部分列 - yukicoder

提出ソース

結果

問題	No.910 素数部分列
ユーザー	tails
提出日時	2019-10-18 23:14:44
言語	Perl (5.38.2)
結果	AC
実行時間	395 ms / 1,000 ms
コード長	87 bytes
コンパイル時間	293 ms
コンパイル使用メモリ	5,232 KB
実行使用メモリ	5,032 KB
最終ジャッジ日時	2023-09-08 02:17:00
合計ジャッジ時間	9,583 ms
ジャッジサーバーID （参考情報）	judge13 / judge11

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

テストケース

テストケース表示

入力	結果	実行時間実行使用メモリ
testcase_00	AC	2 ms 4,508 KB
testcase_01	AC	2 ms 4,464 KB
testcase_02	AC	3 ms 4,528 KB
testcase_03	AC	3 ms 4,592 KB
testcase_04	AC	3 ms 4,592 KB
testcase_05	AC	2 ms 4,384 KB
testcase_06	AC	3 ms 4,528 KB
testcase_07	AC	2 ms 4,600 KB
testcase_08	AC	2 ms 4,588 KB
testcase_09	AC	3 ms 4,456 KB
testcase_10	AC	3 ms 4,472 KB
testcase_11	AC	3 ms 4,472 KB
testcase_12	AC	3 ms 4,516 KB
testcase_13	AC	2 ms 4,388 KB
testcase_14	AC	2 ms 4,452 KB
testcase_15	AC	2 ms 4,440 KB
testcase_16	AC	3 ms 4,444 KB
testcase_17	AC	2 ms 4,456 KB
testcase_18	AC	2 ms 4,500 KB
testcase_19	AC	2 ms 4,552 KB
testcase_20	AC	2 ms 4,552 KB
testcase_21	AC	2 ms 4,532 KB
testcase_22	AC	3 ms 4,552 KB
testcase_23	AC	77 ms 4,904 KB
testcase_24	AC	79 ms 4,792 KB
testcase_25	AC	79 ms 4,924 KB
testcase_26	AC	83 ms 4,776 KB
testcase_27	AC	81 ms 4,764 KB
testcase_28	AC	84 ms 4,940 KB
testcase_29	AC	325 ms 4,820 KB
testcase_30	AC	333 ms 4,852 KB
testcase_31	AC	321 ms 4,812 KB
testcase_32	AC	348 ms 4,980 KB
testcase_33	AC	351 ms 4,940 KB
testcase_34	AC	343 ms 4,844 KB
testcase_35	AC	354 ms 4,904 KB
testcase_36	AC	370 ms 4,940 KB
testcase_37	AC	359 ms 4,824 KB
testcase_38	AC	374 ms 4,896 KB
testcase_39	AC	370 ms 4,900 KB
testcase_40	AC	383 ms 4,932 KB
testcase_41	AC	345 ms 4,832 KB
testcase_42	AC	373 ms 5,032 KB
testcase_43	AC	326 ms 4,972 KB
testcase_44	AC	336 ms 4,860 KB
testcase_45	AC	336 ms 4,820 KB
testcase_46	AC	339 ms 4,924 KB
testcase_47	AC	336 ms 4,936 KB
testcase_48	AC	3 ms 4,696 KB
testcase_49	AC	10 ms 4,788 KB
testcase_50	AC	10 ms 4,740 KB
testcase_51	AC	32 ms 4,676 KB
testcase_52	AC	395 ms 4,748 KB

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

コンパイルメッセージ

Main.pl syntax OK

ソースコード

raw source code

<>;
$_=<>;
$d=s/[357]//g;
++$d while s/19//;
++$d while s/991//;
$d+=s/11//g;
print $d;

0