Notices by Iska (iska@catposter.club), page 14

Made a brainfuck->lambda "compiler" in 46 SLOC, 69 with lambda->C included.
Gonna embed this into the post just like last time(defun compile-thing (thing) (compile nil `(lambda () (declare (optimize (safety 0) (speed 3) (debug 0))) (let ((data (make-array (expt 2 16) :element-type '(unsigned-byte 8) :adjustable nil)) (pointer 0)) (macrolet ((ref () `(aref data pointer)) (p-arif (i) `(setf pointer (logand (1- (expt 2 16)) (,i pointer)))) (d-arif (i) `(setf (ref) (logand 255 (,i (ref)))))) (declare (type (simple-array (unsigned-byte 8) 1))) (tagbody ,@thing)))))) (defun make-the-list (thing) (let ((stack '(main)) (next-tag (gensym))) (loop for char across thing if (equalp char #\[) do (push (gensym) stack) and collect `(if (zerop (ref)) (go ,next-tag) (go ,(car stack))) and collect (car stack) else if (equalp char #\]) collect `(if (zerop (ref)) (go ,next-tag) (go ,(car stack))) and do (progn (pop stack) (push next-tag stack) (setf next-tag (gensym))) and collect (car stack) else collect (case char (#\> '(p-arif 1+)) (#\< '(p-arif 1-)) (#\+ '(d-arif 1+)) (#\- '(d-arif 1-)) (#\, '(setf (ref) (char-code (read-char)))) (#\. '(princ (code-char (ref)))))))) (defun compile-to-c (thing) (apply #'concatenate (append '(string) '("int i=0; char d[30000] = {};") (loop for op in thing collect (if (atom op) (concatenate 'string " " (string op) ": ") (case (car op) (incf "i++;") (decf "i--;") (setf "d[i]=getchar();") (princ "putchar(d[i]);") (d-arif (if (equalp (cadr op) '1+) "d[i]++;" "d[i]--;")) (if (concatenate 'string " if(d[i]==0) {goto " (string (cadr (caddr op))) ";} else {goto " (string (cadr (cadddr op))) ";}"))))))))

@dcc@annihilation.social
@splitshockvirus@mstdn.starnix.network
@vncresolver@botsin.space I already modified my firepiss to reject deletes

@splitshockvirus@mstdn.starnix.network @vncresolver@botsin.space @eric@pl.starnix.network lmao they deleted the post
This is why you ignore deletes

@coolboymew@shitposter.club reminds me of tails

@coolboymew@shitposter.club stormtrooper car

@theorytoe@ak.kyaruc.moe @coolboymew@shitposter.club @olmitch@shitposter.club I'm sure I've seen playthroughs tho, I watched a ton of playthroughs and "longplay"s when I was a kid.

@theorytoe@ak.kyaruc.moe @coolboymew@shitposter.club @olmitch@shitposter.club based (never played unleashed)

@theorytoe@ak.kyaruc.moe @coolboymew@shitposter.club @olmitch@shitposter.club oh I've played rush, absolute bangers

@coolboymew@shitposter.club IIRC this image is at least 2 years old

people be like "be gay do crime :heheevil: being a war criminal is so cool!"

The same people on march 3rd, 2024 when I release a nuclear bomb on Uganda with my sex dungeon located there :blobcat_hiss:

:akko_dots:

"trad" guys on poa.st reposting japanese porn on the same profile :blobcatcode:

@coolboymew@shitposter.club good format, have a template?

what the hell is the podcast race

@dcc@annihilation.social not willingly bruv

can't use imap gmail
now can't use html gmail:blobcat_hiss:

@coolboymew@shitposter.club ryan gosling cat isekai?

@sysrq@lab.nyanide.com @dcc@annihilation.social @splitshockvirus@mstdn.starnix.network @branman65@poa.st @meso@the.asbestos.cafe irish mentioned go go gadget @amerika@noagendasocial.com

@splitshockvirus@mstdn.starnix.network @meso@the.asbestos.cafe "wehrashit is best military to exist"
loses stalingrad by shooting themselves in the foothow do fashcels even cope

@branman65@poa.st @splitshockvirus@mstdn.starnix.network @meso@the.asbestos.cafe :kekgiga: keep coping bro

@branman65@poa.st @splitshockvirus@mstdn.starnix.network @meso@the.asbestos.cafe implying I'm a tankie