sidef/scripts/RosettaCode/factorions.sf

#!/usr/bin/ruby

#
## https://rosettacode.org/wiki/Factorions
#

func max_power(b = 10) {
    var m = 1
    var f = (b-1)!
    while (m*f >= b**(m-1)) {
        m += 1
    }
    return m-1
}

func factorions(b = 10) {

    var result = []
    var digits = @^b
    var fact = digits.map { _! }

    for k in (1 .. max_power(b)) {
        digits.combinations_with_repetition(k, {|*comb|
            var n = comb.sum_by { fact[_] }
            if (n.digits(b).sort == comb) {
                result << n
            }
        })
    }
 
    return result
}

for b in (2..6) {
    var r = factorions(b)
    say "Base #{'%2d' % b} factorions: #{r}"
}