14 lines
257 B
Text
14 lines
257 B
Text
function v = palindro_r(s)
|
|
if ( length(s) == 1 )
|
|
v = true;
|
|
return;
|
|
elseif ( length(s) == 2 )
|
|
v = s(1) == s(2);
|
|
return;
|
|
endif
|
|
if ( s(1) == s(length(s)) )
|
|
v = palindro_r(s(2:length(s)-1));
|
|
else
|
|
v = false;
|
|
endif
|
|
endfunction
|