Idoneal numbers: Difference between revisions
Content added Content deleted
mNo edit summary |
(Added Wren) |
||
Line 80: | Line 80: | ||
273 280 312 330 345 357 385 408 462 520 |
273 280 312 330 345 357 385 408 462 520 |
||
760 840 1320 1365 1848</pre> |
760 840 1320 1365 1848</pre> |
||
=={{header|Wren}}== |
|||
{{trans|Raku}} |
|||
{{libheader|Wren-fmt}} |
|||
<syntaxhighlight lang="ecmascript">import "./fmt" for Fmt |
|||
var isIdoneal = Fn.new { |n| |
|||
for (a in 1...n) { |
|||
for (b in a+1...n) { |
|||
if (a*b + a + b > n) break |
|||
for (c in b+1...n) { |
|||
var sum = a*b + b*c + a*c |
|||
if (sum == n) return false |
|||
if (sum > n) break |
|||
} |
|||
} |
|||
} |
|||
return true |
|||
} |
|||
var idoneals = [] |
|||
for (n in 1..1850) if (isIdoneal.call(n)) idoneals.add(n) |
|||
Fmt.tprint("$4d", idoneals, 13)</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
1 2 3 4 5 6 7 8 9 10 12 13 15 |
|||
16 18 21 22 24 25 28 30 33 37 40 42 45 |
|||
48 57 58 60 70 72 78 85 88 93 102 105 112 |
|||
120 130 133 165 168 177 190 210 232 240 253 273 280 |
|||
312 330 345 357 385 408 462 520 760 840 1320 1365 1848 |
|||
</pre> |