Сокращение большого числа до элементарного

[Diamock]

Здравствуйте Уважаемые!
Имеем число большее 9, например 25, надо упростить его по теории Пифагора 2+5=7.
В принципе, я это реализовал, но этот "код", мне стыдно показывать (там сплошные преобразования из Integer в String и наоборот).
Может быть, кто-то занимался реализацией этого алгоритма?
С уважением...

[Хакер]

Не понял.

[Diamock]

Извиняюсь за не внятное объяснение, добавляю проект.

[iGrok]

Эээ.. А что там сложного?
Три минуты на коленке - вот и весь "алгоритм".

Как-то так:

Код: Выделить всё

Function numsum(num As Long) As Long
Dim sum As Long
 
  Do
    sum = 0
    Do
      sum = sum + (num Mod 10)
      num = num \ 10
    Loop While num > 0
    num = sum
  Loop While sum > 9
 
  numsum = sum
End Function

[Diamock]

iGrok, спасибо за помощь!

[Twister]

Три минуты на коленке - вот и весь "алгоритм".

Хм... "Неважнецкий" алгоритм

Прочитав вот это (раздел цифровые корни) можно вывести вот это (num - "сокращаемое" число):

result := (num - 1) mod 9 + 1;

[iGrok]

Хм... "Неважнецкий" алгоритм

Не спорю. Но на то он и "три минуты на коленке".
Впрочем, ничего лишнего, и в принципе по нему вполне понятно, что происходит.

А "вот это" - уже чёрная магия. Что-то вроде легендарного "Fast Inverse Square Root". =)
Спасибо за ссылку, почитаю.

[Twister]

Спасибо за ссылку, почитаю.

Я в детстве взахлёб читал книги Гарднера и думаю, что если ты этого до сих пор не сделал, то обязательно стоит. Вроде всего лишь "занимательная математика для детей", но вот видишь какие полезные фишки можно почерпнуть оттуда. Главное не считать при этом, что такая литература - для неудачников

[arthur2]

Главное не считать при этом, что такая литература - для неудачников

Подписываюсь! И Гарднера в детстве, кстати, тоже обожал - хотя и понимал далеко не всё.

[alibek]

А "вот это" - уже чёрная магия.

Какая еще магия?
Умножение двухзначных чисел на 11 ([A][B]*11=[A][A+B][B]) — это тоже магия?

[iGrok]

Какая еще магия?

И то и другое - это не алгоритм, а формула, основанная на свойствах чисел.
Но вот это - http://en.wikipedia.org/wiki/Fast_inverse_square_root - тоже фактически "формула", основанная на свойствах чисел.

Насколько мне известно, "чёрной магией", применительно к коду, называют основанные на полноценных теоретических выкладках неочевидные решения, приводящие к заданному результату.