Numbers with prime digits whose sum is 13: Difference between revisions
Numbers with prime digits whose sum is 13 (view source)
Revision as of 22:40, 5 July 2021
, 2 years agoAdded Sidef
(Added Algol 68) |
(Added Sidef) |
||
Line 1,779:
22225 22252 22333 22522 23233 23323 23332 25222 32233 32323 32332
33223 33232 33322 52222 222223 222232 222322 223222 232222 322222</pre>
=={{header|Sidef}}==
<lang ruby>func generate_from_prefix(sum, p, base, digits) {
var seq = [p]
for d in (digits) {
seq << __FUNC__(sum, [d, p...], base, digits)... if (p.sum+d <= sum)
}
return seq
}
func numbers_with_digitsum(sum, base = 10, digits = (base-1 -> primes)) {
digits.map {|p| generate_from_prefix(sum, [p], base, digits)... }\
.map {|t| digits2num(t, base) }\
.grep {|t| t.sumdigits(base) == sum }\
.sort
}
say numbers_with_digitsum(13)</lang>
{{out}}
<pre>
[337, 355, 373, 535, 553, 733, 2227, 2272, 2335, 2353, 2533, 2722, 3235, 3253, 3325, 3352, 3523, 3532, 5233, 5323, 5332, 7222, 22225, 22252, 22333, 22522, 23233, 23323, 23332, 25222, 32233, 32323, 32332, 33223, 33232, 33322, 52222, 222223, 222232, 222322, 223222, 232222, 322222]
</pre>
=={{header|Visual Basic .NET}}==
| |||