RosettaCodeData/Task/Rhonda-numbers/Sidef/rhonda-numbers.sidef
2023-07-01 13:44:08 -04:00

10 lines
302 B
Text

func is_rhonda_number(n, base = 10) {
base.is_composite || return false
n > 0 || return false
n.digits(base).prod == base*n.factor.sum
}
for b in (2..16 -> grep { .is_composite }) {
say ("First 10 Rhonda numbers to base #{b}: ",
10.by { is_rhonda_number(_, b) })
}