8 lines
171 B
Text
8 lines
171 B
Text
repstr? := proc( s :: string )
|
|
local per := StringTools:-Period( s );
|
|
if 2 * per <= length( s ) then
|
|
true, s[ 1 .. per ]
|
|
else
|
|
false, ""
|
|
end if
|
|
end proc:
|