>>268
>>265�͈�v����ꍇ�ɑΉ�����悤�������ď������ʂ�����
���K�\�����g���̂͂�肷�������������̂͊m���Ȃ̂�
���ɐ��K�\�����g�킸�ɏ������l���Ă݂��B
�����Ƃ��ȑf�ȏ������Ƃ��Ďv���‚����̂�split�ŎO��������
�O��̗]�����������A�������炻�����v���邩�Ȃ̂�

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

�c�ł�split�����͐��K�\���ŕ�������@�\�����‚̂ŁA�N���Ă��邱�Ƃ͎���>>265�ƈꏏ�Ȃ񂾂��