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