Data update

This commit is contained in:
Ingy dot Net 2024-04-20 12:30:13 -07:00
parent aec8ed51b6
commit 29a5eea0d4
128 changed files with 1298 additions and 0 deletions

View file

@ -0,0 +1,21 @@
HOW TO RETURN factors n:
PUT {} IN factors
PUT 2 IN factor
WHILE n >= factor:
SELECT:
n mod factor = 0:
INSERT factor IN factors
PUT n/factor IN n
ELSE:
PUT factor+1 IN factor
RETURN factors
HOW TO REPORT attractive n:
REPORT 1 = #factors #factors n
PUT 0 IN col
FOR i IN {1..120}:
IF attractive i:
WRITE i>>5
PUT col+1 IN col
IF col mod 10=0: WRITE /