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

[594 デフォルトの名無しさん 2020/01/11(土) 13:10:43.10 ID:JM9/51Sk]

>>544 Perl4

use feature qw{say signatures};
sub rev($s) {
　$s ne '' and substr ($s, -1, 1, '') . rev($s)
}
say rev('string');

てす