16 lines
405 B
Plaintext
16 lines
405 B
Plaintext
HOW TO RETURN lagarias n:
|
|
SELECT:
|
|
n<0: RETURN -lagarias -n
|
|
n in {0;1}: RETURN 0
|
|
NO d IN {2..floor root n} HAS n mod d=0: RETURN 1
|
|
ELSE: RETURN ((n/d) * lagarias d) + (d * lagarias (n/d))
|
|
|
|
PUT 0 IN col
|
|
FOR n IN {-99..100}:
|
|
WRITE (lagarias n)>>6
|
|
PUT col+1 IN col
|
|
IF col mod 10 = 0: WRITE/
|
|
|
|
FOR m IN {1..20}:
|
|
WRITE "D(10^`m>>2`) = `(lagarias (10**m))/7`"/
|