結果
問題 |
No.207 世界のなんとか
|
ユーザー |
![]() |
提出日時 | 2019-05-16 14:06:49 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 4 ms / 5,000 ms |
コード長 | 364 bytes |
コンパイル時間 | 175 ms |
コンパイル使用メモリ | 6,812 KB |
実行使用メモリ | 6,944 KB |
最終ジャッジ日時 | 2024-09-17 05:30:38 |
合計ジャッジ時間 | 859 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge6 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 19 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
my $number = <STDIN>; chomp ($number); my ($num1, $num2) = split(/ /, $number); my @numbers = ($num1..$num2); my @numbers_3; for my $num(@numbers){ if($num % 3 == 0){ push @numbers_3, $num; }elsif($num =~ /3/){ push @numbers_3, $num; } } my @sorted = sort { $a <=> $b } @numbers_3; for my $sorted(@sorted){ print "$sorted\n"; }