Переместить цифру в тексте

[Jleksern]

Доброго времени суток.
Вот задался вопросом и не могу догнать скрипт.

Суть такова, есть строка "qw2erty" в которой есть цифра 2, нужно цифру переместить на N количество знаков сколько указано в слове.
В результате "qwer2ty".

В случае если в слове "qwert7y", цифра 7 будет перемещена на 7 цифр вперед вне зависимости от того, закончилось слово или нет, просто отсчёт продолжается с начала слова.

А если в слове две цифры то переносится каждая на N знаков вперед...

Вот кто у кого есть идеи по решению такой задачи?

[Serge_Bliznykov]

задачка несложная, если Вы расскажите,
что должно получится из строк:

qwert7y

a12b1c20d

[Jleksern]

Сообщение от Serge_Bliznykov

задачка несложная, если Вы расскажите,
что должно получится из строк:

qwert7y

a12b1c20d

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

Ноль соответственно это отсутствие значения.



Вот ещё один пример.


Что меня тут сбило, что цифры могут менять свои места и проблема чтоб повторно её не "поймать" и не отправить перемещаться.

[Serge_Bliznykov]

да, заковыристая задачка. На первый взгляд она проще, чем на самом деле

пробуй:

var s, sd :string;
 i,k, code : integer;
 ch:char;
begin
  s:='q3w2erty';
  s:='a12b1c20d';
  s:='a2b3f8';
//  s:='qwert7y';
  WriteLn('----------------');  WriteLn(s);
  sd := '';
  for i:=1 to Length(s) do sd := sd + ' ';
  i:=1;
  while i<=Length(s) do begin
    if s[i] in ['1'..'9'] then begin
      code := ord(s[i])-ord('0');
      if code<>Length(s) then begin
        k:=code+i;
        if k>Length(s) then k:= (k mod Length(s))+1;
        ch:=s[i];
        Delete(s,i,1);
        Delete(sd,i,1);
        Insert(ch, sd, k);
        Insert('*', s, k);
        Dec(i);
      end;
    end;
    inc(i);
  end;
  for i:=1 to Length(s) do
    if (s[i]='*') and (sd[i]<>' ') then s[i] := sd[i];
  WriteLn(s);
end.

[ADSoft]

могет задачи на Паскале в другой раздел надо?

[Аватар]

ТС же скрипт вроде нужен. А код паскалевский пригодится для наводки

[Jleksern]

Спасибо большое за код на паскеле, с горем пополам переписал под PHP.
Вроде бы получилось, обнаружил небольшой баг, где-то я проглядел и не могу сейчас заметить ошибку.

function leap($string){
	$count_str = strlen($string);
		for($i=0; $i<=$count_str; $i++ ){
			if(is_numeric($string[$i]) and $string[$i]!=0){
				$code = $string[$i];
				if($code <> $count_str){
					$k = $code+$i+1;
					if($k>$count_str){
						$k = $k % $count_str+1;
					}
					$string[$i] = null;
					$string_end = substr($string, $k, $count_str);
					$string_start   = substr($string, 0, $k);
					return $string_start.$code.$string_end;
				}
			}
		}
	} 


echo leap('a6qwer');

Так код работает только если в случае цифра не возвращается не предыдущее место.
То есть a6qwer, 6 вернется на свое место, сделав круг. Так не работает. Если другое число сработает.
Помогите фиксануть.