9 lines
232 B
Text
9 lines
232 B
Text
fcn aliquot(k){ //-->Walker
|
|
Walker(fcn(rk){
|
|
k:=rk.value;
|
|
rk.set((1).reduce((k + 1)/2, fcn(s,n,k){
|
|
s + (k%n==0 and k!=n and n) // s + False == s + 0
|
|
},0,k));
|
|
k
|
|
}.fp(Ref(k)))
|
|
}(10).walk(15).println();
|