18 lines
264 B
Text
18 lines
264 B
Text
( ( perf
|
|
= sum i
|
|
. 0:?sum
|
|
& 0:?i
|
|
& whl
|
|
' ( !i+1:<!arg:?i
|
|
& ( mod$(!arg.!i):0&!sum+!i:?sum
|
|
|
|
|
)
|
|
)
|
|
& !sum:!arg
|
|
)
|
|
& 0:?n
|
|
& whl
|
|
' ( !n+1:~>10000:?n
|
|
& (perf$!n&out$!n|)
|
|
)
|
|
);
|