Proper divisors: Difference between revisions

=={{header|zkl}}==

{{trans|D}}

<lang zkl>fcn properDivs(n){ [1.. (n + 1)/2 + 1].filter('wrap(x){ n%x==0 and n!=x }) }

[1..10].apply(properDivs).println();

[1..20_001].apply('wrap(n){ T(properDivs(n).len(),n) })

.reduce(fcn([(a,_)]ab, [(c,_)]cd){ a>c and ab or cd },T(0,0))

.println();</lang>

{{out}}

<pre>

L(L(),L(1),L(1),L(1,2),L(1),L(1,2,3),L(1),L(1,2,4),L(1,3),L(1,2,5))

L(79,18480)

</pre>