4 lines
214 B
Text
4 lines
214 B
Text
fcn properDivs(n){ [1.. (n + 1)/2 + 1].filter('wrap(x){ n%x==0 and n!=x }) }
|
|
fcn aliquot(k){ //-->Walker
|
|
Walker(fcn(rk){ k:=rk.value; if(k)rk.set(properDivs(k).sum()); k }.fp(Ref(k)))
|
|
}(10).walk(15).println();
|