20/01/11 13:09:42.76 JM9/51Sk.net
>>309
use feature qw{say signatures};
sub rev($s) {
$s ne '' and substr ($s, -1, 1, '') . rev($s);
}
say rev('string');
20/01/11 13:09:42.76 JM9/51Sk.net
>>309
use feature qw{say signatures};
sub rev($s) {
$s ne '' and substr ($s, -1, 1, '') . rev($s);
}
say rev('string');