переворот числа рекурсия

[leonidzilb]

попалась интересная задача
перевернуть число с помощью рекурсии
например 835->538
нет даже мысли как это сделать

[Poma][a]

Друже, язык какой?

[Stilet]

(foo += func rever (
 (if (foo.i > 10) ( 
     (n += (foo.i mod 10))
     (n *= 10)
     (call foo.rever  i=(foo.i div 10))
 ) (n + foo.i) )
))
(write (call foo.rever  i=835))

Результат:

[eoln]

при переводе в строку удобнее будет. как вариант можно так.

function r(i: integer): integer;
begin
  if i > 9 then result := trunc(power(10, trunc(log10(i))))*(i mod 10)+r(i div 10)
  else result := i;
end;

trunc(power(10, trunc(log10(i)))) можно упростить если надо

[leonidzilb]

Сообщение от Poma][a

Друже, язык какой?

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

[Krasiosoft]

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

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

Число в рекурсию должно поступать в виде числа или строки? Если не в виде строки, то какое число (целочисленное/дробное, со знаком/без)?

[Stilet]

trunc(power(10, trunc(log10(i))))

Ай да хитрец )

[Krasiosoft]

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

мне важна идея

В рекурсию можно передавать 2 параметра. Допустим, первый параметр - само число, которое мы делим на 10 каждый раз, а второй - это преобразованное число, которое мы будем каждый раз умножать на 10. Будет что-то похожее на обычное преобразование в цикле:

int reverseNumber(int number, int resultNumber = 0){
    if(number == 0) return resultNumber;
    else return r(number/10 ,resultNumber*10 + number%10);
}

[min@y™]

Чтоб исключить 2-й параметр из рекурсии, надо его вычислять.
Не для копипасты, очень криво, ахтунг! писал левой пяткой и под ганджубасом.

function RevertR(X: DWORD): DWORD;
var
  Coef: DWORD;
begin
  if X > 9
    then begin
           Result:= RevertR(X div 10);
           Coef:= 1;
           while Coef < X do Coef:= Coef * 10;
           Result:= Result + (X mod 10) * (Coef div 10); // оторвите мне руки за такой код!
         end
   else Result:= X;
end;

Допилите кто-нить, а то криво пипец и спать охота ужос как.

Но, блин, как-то она, зараза, работает!

[Stilet]

оторвите мне руки за такой код!

Нормальный код. Я ведь тоже так же предложил, только без локальных переменок.