#0a — Public Fediverse posts
Live and recent posts from across the Fediverse tagged #0a, aggregated by home.social.
-
#uxntal #bitart inspired by @bitartbot
https://paste.sr.ht/~ismael-vc/c68733874b0a824a5b28ad3166bc6933a17e1cd6
( y 23 | x y ^ / y 24 & x y & | ^ x ~ y 16 + | ~ * 10 % )
@λ ( x y -- x y val )
DUP #17 ORA STH
EORk
STHr DIV STH
DUP #18 AND STH
ANDk
STHr ORA
STHr EOR STH
OVR :NOT STH
DUP #10 ADD
STHr ORA
:NOT
STHr MUL
#0a :MOD
JMP2r -
My *NEW* #introduction My online name is Darth Kilroy (he/him), I am #christian. I do web dev and system admin, I run my own search engine (like google a lot smaller and no trackers) , www.sturtz.io. I prefer #selfhosted over a corporation having my data. I run my own #mastodon instance. I run a IRC server, I also will help out with what ever I can if you just ask. I am a #eaglescout I am in the #0A #brotherhood I don't care who you are, what you have done, you will get my respect.
-
CW: uxn code
Here’s a really weird #uxn “Hello World” program:
( hello.tal ) ( devices ) |10 @Console [ &vector $2 &read $1 &pad $5 &write $1 &error $1 ] ( macros ) ( print a character to standard output ) %EMIT { .Console/write DEO } ( character -- ) %EMITK { .Console/write DEOk } ( character -- character Consolewrite ) ( print a newline ) %NL { #0a EMIT } ( -- ) ( main program ) |0100 #0a6f #6c #6568 EMITK NIP DEOk NIP DEOk DEOk NIP DEOk NIP DEO ,wo LDRk ( wo w -- ) STH #0d SUB STHr @looper #00 POP ( wo w -- ) EMIT ( wo -- ) INC ( wo+1 -- ) LDRk ( wo+1 o -- ) DUP #00 NEQ ,looper ( wo+1 o 1 looper -- ) JCN ( wo+1 o -- ) BRK @wo 'w 'o 'r 'l 'd 21