Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re^3: Christmas poem since 1988

by truedfx (Monk)
on Dec 30, 2005 at 19:04 UTC ( [id://520045]=note: print w/replies, xml ) Need Help??


in reply to Re^2: Christmas poem since 1988
in thread Christmas poem since 1988

I'm quite sure that it is not possible to add PostScript, because there is no way to find a common starting for C, C++, Perl, plain TeX and PostScript.

I took that as a challenge :D

%:/*:if 0;false +s&&(#*/include<stdio.h>/*
{ Just another \TeX\ hacker,
{ \bye
} &g;print substr q q
Just another Perl hacker,
q, 1 and exit; q q
%};};);echo -ne "\e[A\e[K\
Just another bash hacker,
" && exit; */
int main() { printf("\
Just another C%s hacker,\n\
", "++"+2*(1%sizeof'2')); } /* }
/Times-Roman findfont 20 scalefont setfont newpath 72 72 moveto
(Just another PostScript hacker,)
show showpage % q # */

[download]

Replies are listed 'Best First'.
Re^4: Christmas poem since 1988
by Anonymous Monk on Dec 31, 2005 at 10:46 UTC
    The starting %: is just brilliant. Congratulations! In the meantime I added LaTeX, zsh and original Bourne Shell (tested on SunOS 5.7) support. Here it is: 
    %:/*:if 0;false +s &&(#*/include<stdio.h>/*
{ \egroup\expandafter\ifx\csname documentclass\endcsname\relax
  \else \documentclass{article}\begin{document} Just another
  \LaTeX\ hacker, \csname fi\endcsname \end{document}
  \fi Just another \TeX\ hacker,
{ \egroup\end                   
} &g;print substr q q
Just another Perl hacker,
q, 1 and exit; q q
" (";})
awk 'BEGIN{printf"%c[A%c[K",27,27
}';sh=sh;test $BASH_VERSION&&sh=bash
test $ZSH_VERSION&&sh=zsh
echo Just another $sh hacker, && exit; */
int main() { return 0*printf("\
Just another C%s hacker,\n\
", "++"+2*(1%sizeof'2')); } /* }
/Times-Roman findfont 20 scalefont setfont newpath 72 72 moveto
(Just another PostScript hacker,)
show showpage % q # */

    [download]
[reply]
[d/l]

In Section Obfuscated Code

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://520045]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others romping around the Monastery: (5)
As of 2024-04-23 16:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found