結果
問題 |
No.69 文字を自由に並び替え
|
ユーザー |
![]() |
提出日時 | 2019-07-14 02:17:13 |
言語 | Perl (5.40.0) |
結果 |
WA
|
実行時間 | - |
コード長 | 504 bytes |
コンパイル時間 | 161 ms |
コンパイル使用メモリ | 5,248 KB |
実行使用メモリ | 5,376 KB |
最終ジャッジ日時 | 2024-11-23 17:18:37 |
合計ジャッジ時間 | 751 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge4 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 8 WA * 7 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
my $letter_A = <>; my $letter_B =<>; chomp ($letter_A, $letter_B); my @letter_A = split(//, $letter_A); my @letter_B = split(//, $letter_B); @letter_A = sort {$a cmp $b} @letter_A; @letter_B = sort {$a cmp $b} @letter_B; my $count = 0; my $count_same = 0; for my $character_A(@letter_A){ for my $character_B(@letter_B){ $count++; if ($letter_A =~ /$letter_B/){ $count_same++; } } } if ($count == $count_same){ print "YES\n"; }else{ print "NO\n"; }