12-04-2017, 03:45 PM
PER NØRGÅRD'S
https://en.wikipedia.org/wiki/Per_N%C3%B8rg%C3%A5rd
∞ SEQUENCE
https://oeis.org/A004718
Size: 98.5
CkSum: # 42028d
https://en.wikipedia.org/wiki/Per_N%C3%B8rg%C3%A5rd
∞ SEQUENCE
https://oeis.org/A004718
Size: 98.5
CkSum: # 42028d
Code:
::
CK1&Dispatch
# FF
::
'
::
DUP
ZINT 0
EQUAL
?SEMI
ZINT 2
FPTR2 ^ZDIVext
ZINT 0
EQUALcase
::
1GETLAM
EVAL
FPTR 6 4FB
;
1GETLAM
EVAL
ZINT 1
FPTR2 ^RADDext
;
DUP1LAMBIND
EVAL
ABND
;
;