eichin@athena.mit.edu (Mark W. Eichin) (02/07/91)
I found this in the .plan file of Andrew Marc Greene <amgreene@mit.edu> (some
may recognize him from BaSiX, a BASIC interpreter which he wrote in TeX).
There have been a number of Perl JAPH's showing up in .plan files, and so he
countered with this...
\let~\catcode~`?`\
\let?\the~`#?~`~~`]?~`~\let]\let~`\.?~`~~`,?~`~~`\%?~`~~`=?~`~]=\def
],\expandafter~`[?~`~][{=%{\message[}~`\$?~`~=${\uccode`'.\uppercase
{,=,%,{%'}}}~`*?~`~=*{\advance.by}]#\number~`/?~`~=/{*-1}\newcount.
=\-{*-}~`-?~`~]-\-~`^?~`~=^{*1}~`\ ?~`~= {.`\ $}~`@?~`~=@{,.,"#`@^$}
.`#*`'$.?~`~0-?~`~$//$^$ .``^$*?~`~$^$.?~`~0-?~`~/$-?~`~^$@*?~`~$ *
?~`~*?~`~*?~`~*?~`~$@-?~`~$ .?~`~0-?~`~-?~`~$.``^$^^$.`<-?~`~*`<$@*
?~`~$*?~`~-`(-`+$%}\batchmode
I don't think we can top that. Not even a little. Though it would be kind of
neat if someone came up with a TeX interpreter in perl :-)
_Mark_ <eichin@athena.mit.edu>
MIT Student Information Processing Board