Как нумерологически сложить значения переменных в Perl?

Question

[Юля]

Здравствуйте, задача состоит в том, чтобы сложить нумерологически числовые значения переменных. Например, имеем три переменных: $a = 1; $b = 33; $c = 706; $d - должна быть равна нумеролоической сумме чисел, т.е. 1+3+3+7+0+6 = 20

Как это красивей сделать?

Answer 1

[ldv]

Если складывать нумерологически, то должно получиться число 2.
(1 + 33 + 706) % 9 = 2

Comments

[Юля]

да, но хотелось бы получить именно 20, как в моем примере, потому что если результат будет более какого либо числа - необходимо будет сложить значение цифр итога, а если нет - тогда нет)

[ldv]

$a = 1; $b = 33; $c = 706;
$tmp = $a.$b.$c;
$sum = 0;

@digits = split (//, $tmp);
foreach $digit (@digits) {
$sum += $digit;
}
print $sum;

[Юля]

ldvldv: большое спасибо.