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 2025-06-11 20:16:52 -04:00
parent 72eb4943cb
commit 4d5544505c
2347 changed files with 62432 additions and 16731 deletions
Download patch file Download diff file Expand all files Collapse all files

52
Task/Aliquot-sequence-classifications/EasyLang/aliquot-sequence-classifications.easy
View file

@ -1,7 +1,5 @@
fastfunc sumprop num .
if num = 1
return 0
.
if num = 1 : return 0
sum = 1
root = sqrt num
i = 2
@ -16,60 +14,36 @@ fastfunc sumprop num .
.
return sum
.
func$ tostr ar[] .
for v in ar[]
s$ &= " " & v
.
return s$
.
func$ class k .
oldk = k
newk = sumprop oldk
oldk = newk
seq[] &= newk
if newk = 0
return "terminating " & tostr seq[]
.
if newk = k
return "perfect " & tostr seq[]
.
if newk = 0 : return "terminating " & seq[]
if newk = k : return "perfect " & seq[]
newk = sumprop oldk
oldk = newk
seq[] &= newk
if newk = 0
return "terminating " & tostr seq[]
.
if newk = k
return "amicable " & tostr seq[]
.
if newk = 0 : return "terminating " & seq[]
if newk = k : return "amicable " & seq[]
for t = 4 to 16
newk = sumprop oldk
seq[] &= newk
if newk = 0
return "terminating " & tostr seq[]
.
if newk = k
return "sociable (period " & t - 1 & ") " & tostr seq[]
.
if newk = oldk
return "aspiring " & tostr seq[]
.
if newk = 0 : return "terminating " & seq[]
if newk = k : return "sociable (period " & t - 1 & ") " & seq[]
if newk = oldk : return "aspiring " & seq[]
for i to len seq[] - 1
if newk = seq[i]
return "cyclic (at " & newk & ") " & tostr seq[]
.
.
if newk > 140737488355328
return "non-terminating (term > 140737488355328) " & tostr seq[]
if newk = seq[i] : return "cyclic (at " & newk & ") " & seq[]
.
if newk > 140737488355328 : return "non-terminating (term > 140737488355328) " & seq[]
oldk = newk
.
return "non-terminating (after 16 terms) " & tostr seq[]
return "non-terminating (after 16 terms) " & seq[]
.
print "Number classification sequence"
for j = 1 to 12
print j & " " & class j
print j & ": " & class j
.
for j in [ 28 496 220 1184 12496 1264460 790 909 562 1064 1488 15355717786080 ]
print j & " " & class j
print j & ": " & class j
.