結果

問題 No.18 うーさー暗号
ユーザー sironekotorosironekotoro
提出日時 2019-01-09 19:42:01
言語 Perl
(5.38.2)
結果
AC  
実行時間 4 ms / 5,000 ms
コード長 1,350 bytes
コンパイル時間 324 ms
コンパイル使用メモリ 5,504 KB
実行使用メモリ 5,504 KB
最終ジャッジ日時 2024-05-03 03:53:34
合計ジャッジ時間 949 ms
ジャッジサーバーID
(参考情報)
judge4 / judge1
このコードへのチャレンジ
(要ログイン)

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 4 ms
5,376 KB
testcase_01 AC 4 ms
5,376 KB
testcase_02 AC 3 ms
5,376 KB
testcase_03 AC 4 ms
5,376 KB
testcase_04 AC 3 ms
5,504 KB
testcase_05 AC 4 ms
5,504 KB
testcase_06 AC 4 ms
5,504 KB
testcase_07 AC 4 ms
5,504 KB
testcase_08 AC 4 ms
5,376 KB
testcase_09 AC 4 ms
5,504 KB
testcase_10 AC 4 ms
5,376 KB
testcase_11 AC 4 ms
5,376 KB
testcase_12 AC 4 ms
5,504 KB
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff #

use v5.16.3;

# my $input
#     = 'ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ';
my $input = <>;
chomp $input;

# 与えられた文字列を分割して配列に格納する
my @str = split //, $input;

my @abc = ( "A" .. "Z" );
my %hash;
my $answer = '';

# 配列に対してeachを使うと、
# インデックスと要素を取得することができる
while ( my ( $index, $char ) = each(@abc) ) {
    $hash{$char} = $index;

    # %h = ( A => 0, B => 1, C => 2,... )
    # というようなハッシュを作る
}

# 与えられた文字列(配列化済)を処理する
while ( my ( $index, $char ) = each @str ) {

   # $index 配列のインデックス = 何文字目を処理しているか
   # 0文字目は無いため、1を加える
    $index = $index + 1;

    # ずらす数がアルファベットの文字数を超えた
    # 場合のため、剰余を求める
    $index = $index % ( scalar @abc );

    # アルファベットの配列@abcの添え字に対応する
    # 文字を表示する
    # 添え字は%hashのkeyに対応するvalueから
    # 何文字目を処理しているかの$indexを
    # 引いた値
    #
    # 該当する文字列を $answer に連結していく
    $answer .= $abc[ $hash{$char} - $index ];
}

say $answer;
0