Ruth-Aaron numbers: Difference between revisions
→{{header|Wren}}: Cut out duplicated calculations.
(Added Wren) |
(→{{header|Wren}}: Cut out duplicated calculations.) |
||
Line 123:
{{libheader|Wren-seq}}
{{libheader|Wren-fmt}}
Have only looked for the first Ruth-Aaron triple based on factors (around
<lang ecmascript>import "./math" for Int, Nums
import "./seq" for Lst
Line 131:
var resD = []
var resT = [] // factors only
var n =
var factors1 = []
var factors2 = [2]
var factors3 = [3]
var sum1 = 0
var sum2 = 2
var sum3 = 3
var countF = 0
var countD = 0
var countT = 0
while (countF < 30 || countD < 30 || countT < 1) {
if (countF < 30 && sum1 == sum2) {
resF.add(n)
Line 151 ⟶ 157:
}
if (countD < 30) {
Lst.prune(factors4)
if (Nums.sum(factors1) == Nums.sum(factors2)) {▼
Lst.prune(factors5)
resD.add(n)
countD = countD + 1
|