Rosetta Code

Amicable pairs: Difference between revisions

← Older editNewer edit →
Content deleted Content added
PureFox (talk | contribs)
9,493 edits
→‎{{header|Wren}}: Library name change.
PureFox (talk | contribs)
9,493 edits
→‎{{header|Wren}}: Now uses Wren-math module.
Line 4,497:
 
=={{header|Wren}}==
{{trans|Go}}
{{libheader|Wren-fmt}}
{{libheader|Wren-math}}
<lang ecmascript>import "/fmt" for Fmt
import "/math" for Int, Stat
 
var pfacSum = Fn.new { |i|
var sum = 0
var p = 1
while (p <= (i/2).floor) {
if (i%p == 0) sum = sum + p
p = p + 1
}
return sum
}
 
var a = List.filled(20000, 0)
for (i in 1...20000) a[i] = pfacSumStat.callsum(Int.properDivisors(i))
System.print("The amicable pairs below 20,000 are:")
for (n in 2...19999) {
Retrieved from "https://rosettacode.org/wiki/Amicable_pairs"