Как рассчитать знакопеременную сумму цифр целого числа в Perl 6?

Eugene Barsky спросил: 14 ноября 2017 в 05:40 в: perl6

Число делится на 11, если его чередующаяся сумма цифр делится на 11.

Так, например, если число равно 1595, +1 -5 +9 -5 == 0, то 1595 делится на 11. Как реализовать такую ​​сумму? Вот мое решение, но оно слишком сложное и работает только при четном количестве цифр.

my $number = 1595;
say [+] $number.comb.map({$^a - $^b});

Как лучше всего это сделать?

0 ответов