Join Nostr
2025-10-15 19:21:20 UTC
in reply to

WimⓂ️ on Nostr: ( factorial with fixed-point ) |0100 #0005 { ,&f STR2 DUP2 ,&n STR2 #0001 NEQ2 #04 ...

( factorial with fixed-point )
|0100
#0005

{
,&f STR2 DUP2 ,&n STR2
#0001 NEQ2 #04 MUL JMP #0001 JMP2r
,&n LDR2 STH2k
#0001 SUB2 ,&f LDR2 DUP2 JSR2
STH2r DUP2 ,&n STR2 MUL2
JMP2r
&f $2 &n $2
} STH2r DUP2 JSR2

#18 DEO ( 120 )
BRK