[ my public key: https://keybase.io/ocdtrekkie; my proof: https://keybase.io/ocdtrekkie/sigs/T7n-16gO4PALgw_6mFb1LGR0_EDhdOAa8AyXnmMYm88 ]
Feel free to contact me privately!
email: me (at) ocdtrekkie.com
mastodon: @ocdtrekkie@mastodon.social
I'm an IT consultant working for a private company in the Chicagoland area. My views are my own, and do not necessarily reflect the views of my employer. I have no financial interests in any major tech companies.
[ my public key: https://keybase.io/dboreham; my proof: https://keybase.io/dboreham/sigs/lC9hM5haXXukH2rF_cFeB6gdtV0kXfHF7jZdZUdlkE4 ]
Verifying my Blockstack ID is secured with the address 1L7ikyCFhG5zyVSosrQYDs2ZG4ikEFqgBQ https://explorer.blockstack.org/address/1L7ikyCFhG5zyVSosrQYDs2ZG4ikEFqgBQ
\ don@donhopkins.com
FORTH ?KNOW IF HONK ELSE FORTH LEARN THEN
: C(-; LICK SMILE NOSE WINK ;
\ FORTH PAPER TAPE PUNCHER:
: PT# ( L --- L/2 )
DUP 1 AND IF
ASCII @
ELSE BL THEN
HOLD
2/
;
: PT. ( N --- )
<# PT# PT# PT#
ASCII . HOLD
PT# PT# PT# PT#
#> TYPE
;
: CUT
." -----------" CR
;
: PTAPE
CUT
BEGIN
KEY ?DUP WHILE
DUP ." |" PT. ." |" SPACE EMIT CR
REPEAT
CUT
;
Lisp -vs- Forth -vs- PostScript:
; Lisp:
(defun caar (x) (car (car x)))
(defun caaar (x) (car (car (car x))))
(defun caaaar (x) (car (car (car (car x)))))
\ Forth:
: droop drop drop ;
: drooop drop drop drop ;
: droooop drop drop drop drop ;
% PostScript:
/poop { pop pop } def
/pooop { pop pop pop } def
/poooop { pop pop pop pop } def
