ありきたりですがPerlで書いてみました
#!/usr/bin/perl
print sub{$_[0]=~tr/A-Za-z/ZA-Yza-y/
for(1..$_[1]);$_[0]}->($s=<>,$k=<>);
文字列 + 改行 + ずらす回数 + 改行 で実行できます
結構短く書けるものですね
ありきたりですがPerlで書いてみました
#!/usr/bin/perl
print sub{$_[0]=~tr/A-Za-z/ZA-Yza-y/
for(1..$_[1]);$_[0]}->($s=<>,$k=<>);
文字列 + 改行 + ずらす回数 + 改行 で実行できます
結構短く書けるものですね
0 Comments.