Numbers divisible by their individual digits, but not by the product of their digits.: Difference between revisions
Numbers divisible by their individual digits, but not by the product of their digits. (view source)
Revision as of 09:40, 9 April 2021
, 3 years agoAdded Wren
Not a robot (talk | contribs) (Add Snobol) |
(Added Wren) |
||
Line 670:
936
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>
| |||