Чтобы прописные рекурсивный алгоритм

Question

У меня есть этот код возвращает строку в нижнем регистре, используя рекурсию:

function min(ch:string):string; 
begin 
    if (ch = '') then 
     min:= '' 
    else 
     if (ch[1] in ['A'..'Z']) then 
     begin 
      ch[1]:=chr(ord(ch[1])+32); 
      min:= ch[1] + min(copy(ch,2,length(ch)-1)); 
     end; 
end; 

Но это не работает:

Когда я запускаю его на примере min('AbC') выход a только нет abc.

Где находится проблема?

Answer 1

Проблема в том, что вы не всегда вызываете рекурсивную функцию. Как только вы найдете письмо, которое уже является нижним регистром, вы больше не смотрите на персонажей, которые следуют за ним. И поэтому возвращаемое значение усекается до этого символа.

Вы также должны назвать это, когда персонаж, на который смотрит, равен не заглавная буква. Так переместить рекурсивный вызов из этого if, и он будет работать:

function min(ch:string):string; 
begin 
    if (ch = '') then 
     min:= '' 
    else 
     begin 
     if (ch[1] in ['A'..'Z']) then 
      ch[1]:=chr(ord(ch[1])+32); 
     min:= ch[1] + min(copy(ch,2,length(ch)-1)); 
     end; 
end; 

Посмотреть работать на ideone.com.