aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Task/Duffinian-numbers/Arturo/duffinian-numbers.arturo
View file

@ -5,7 +5,7 @@ duffinian?: function [n]->
[1] = intersection factors sum fn fn
]
first50: new []
first50: []
i: 0
while [50 > size first50][
if duffinian? i -> 'first50 ++ i
@ -17,7 +17,7 @@ loop split.every: 10 first50 'row [
print map to [:string] row 'item -> pad item 3
]
first15: new []
first15: []
i: 0
while [15 > size first15][
if every? i..i+2 => duffinian? [
@ -30,5 +30,5 @@ while [15 > size first15][
print ""
print "The first 15 Duffinian triplets:"
loop split.every: 5 first15 'row [
print map row 'item -> pad.right as.code item 17
print map row 'item -> pad.right express item 17
]