Welcome to the page with solutions in the Raku programming language, the solutions of the first task of the Week 7 of the Perl Weekly Challenge.
Print all Niven number up to 50, which are the numbers which are divisible the the sum of their digits.
The solution is a one-liner:
.say if $_ %% [+] .comb for 1..50;
For the numbers in the range 1..50, split them into digits: .comb, add up them: [+], and check if the number is divisible by it: if $_ %%. If so, print the current value: .say.
The program prints the following row (shown here in a single line for brevity, but the program prints each number on a separate line):
1 2 3 4 5 6 7 8 9 10 12 18 20 21 24 27 30 36 40 42 45 48 50
→ GitHub repository
→ Navigation to the Raku challenges post series