Anonymous user
Amicable pairs: Difference between revisions
m
→{{header|Elena}}
m (→{{header|Wren}}: Minor tidy) |
imported>Arakov |
||
Line 2,133:
=={{header|Elena}}==
{{trans|C#}}
ELENA
<syntaxhighlight lang="elena">import extensions;
import system'routines;
Line 2,142:
{
ProperDivisors
= Range.new(1,self / 2).filterBy::(n => self.mod
get AmicablePairs()
Line 2,148:
var divsums := Range
.new(0, self + 1)
.selectBy::(i => i.ProperDivisors.summarize(Integer.new()))
.toArray();
^ 1.repeatTill(divsums.Length)
.filterBy::(i)
{
var ii := i;
Line 2,159:
^ (i < sum) && (sum < divsums.Length) && (divsums[sum] == i)
}
.selectBy::(i => new { Item1 = i; Item2 = divsums[i]; })
}
}
Line 2,165:
public program()
{
N.AmicablePairs.forEach::(pair)
{
console.printLine(pair.Item1, " ", pair.Item2)
|