Numbers divisible by their individual digits, but not by the product of their digits.: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add Snobol) |
(Added Wren) |
||
| Line 670: | Line 670: | ||
936 |
936 |
||
999</pre> |
999</pre> |
||
=={{header|Wren}}== |
|||
{{libheader|Wren-math}} |
|||
{{libheader|Wren-seq}} |
|||
{{libheader|Wren-fmt}} |
|||
<lang ecmascript>import "/math" for Int, Nums |
|||
import "/seq" for Lst |
|||
import "/fmt" for Fmt |
|||
var res = [] |
|||
for (n in 0..999) { |
|||
var digits = Int.digits(n) |
|||
if (digits.all { |d| n % d == 0 }) { |
|||
var prod = Nums.prod(digits) |
|||
if (prod > 0 && n % prod != 0) res.add(n) |
|||
} |
|||
} |
|||
System.print("Numbers < 1000 divisible by their digits, but not by the product thereof:") |
|||
for (chunk in Lst.chunks(res, 9)) Fmt.print("$4d", chunk) |
|||
System.print("\n%(res.count) such numbers found")</lang> |
|||
{{out}} |
|||
<pre> |
|||
Numbers < 1000 divisible by their digits, but not by the product thereof: |
|||
22 33 44 48 55 66 77 88 99 |
|||
122 124 126 155 162 168 184 222 244 |
|||
248 264 288 324 333 336 366 396 412 |
|||
424 444 448 488 515 555 636 648 666 |
|||
728 777 784 824 848 864 888 936 999 |
|||
45 such numbers found |
|||
</pre> |
|||