プログラミングのお題スレ Part18

[264 253 2020/08/10(月) 01:18:32.03 ID:mTkq56mc]

>>263 ｺﾞﾒﾝ、$a[2]$a[0]はbug、訂正

>>249 Perl5
use feature qw{signatures say};
sub strot_cmp($a, $b) {
　say "入力 $a $b";
　@a = split $b, "$a$a", 3;
　say "出力 ", ("$a[1]$a[0]") eq $b ? 'true' : 'false';
}
strot_cmp qw{abcde deabc};
strot_cmp qw{abcde cdeba};
strot_cmp qw{aaaaa aaa};