From: "Steve" <nospam_steved94@comcast.net>
Subject: Re: Will the World ever see something beyond GNAT 3.15p?
Date: Fri, 14 Jan 2005 20:09:01 -0800
Date: 2005-01-14T20:09:01-08:00 [thread overview]
Message-ID: <C4qdnceUrPe-CnXcRVn-pg@comcast.com> (raw)
In-Reply-To: 1308622.IPB2vGgG6q@linux1.krischik.com
To find interesting C code, you need go no further than
http://www0.us.ioccc.org/years.html.
Here is an example of the source to anonymous.c:
#include\
<stdio.h>
#include <stdlib.h>
#include <string.h>
#define w "Hk~HdA=Jk|Jk~LSyL[{M[wMcxNksNss:"
#define r"Ht@H|@=HdJHtJHdYHtY:HtFHtF=JDBIl"\
"DJTEJDFIlMIlM:HdMHdM=I|KIlMJTOJDOIlWITY:8Y"
#define S"IT@I\\@=HdHHtGH|KILJJDIJDH:H|KID"\
"K=HdQHtPH|TIDRJDRJDQ:JC?JK?=JDRJLRI|UItU:8T"
#define _(i,j)L[i=2*T[j,O[i=O[j-R[j,T[i=2*\
R[j-5*T[j+4*O[j-L[j,R[i=3*T[j-R[j-3*O[j+L[j,
#define t"IS?I\\@=HdGHtGIDJILIJDIItHJTFJDF:8J"
#define y yy(4),yy(5), yy(6),yy(7)
#define yy( i)R[i]=T[i],T[i ] =O[i],O[i]=L [i]
#define Y _(0 ], 4] )_ (1 ], 5] )_ (2 ], 6] )_ (3 ], 7] )_=1
#define v(i)( (( R[ i ] * _ + T [ i ]) * _ + O [ i ]) * _ + L [ i ]) *2
double b = 32 ,l ,k ,o ,B ,_ ; int Q , s , V , R [8 ], T[ 8] ,O [8 ], L[ 8]
;
#define q( Q,R ) R= *X ++ % 64 *8 ,R |= *X /8 &7
,Q=*X++%8,Q=Q*64+*X++%64-256,
# define p "G\\QG\\P=GLPGTPGdMGdNGtOGlOG"
"dSGdRGDPGLPG\\LG\\LHtGHtH:"
# define W "Hs?H{?=HdGH|FI\\II\\GJlHJ"
"lFL\\DLTCMlAM\\@Ns}Nk|:8G"
# define U "EDGEDH=EtCElDH{~H|AJk}"
"Jk?LSzL[|M[wMcxNksNst:"
# define u "Hs?H|@=HdFHtEI" "\\HI\\FJLHJTD:8H"
char * x ,*X , ( * i )[ 640],z[3]="4_",
*Z = "4,8O4.8O4G" r U "4M"u S"4R"u
t"4S8CHdDH|E=HtAIDAIt@IlAJTCJDCIlKI\\K:8K"U
"4TDdWDdW=D\\UD\\VF\\FFdHGtCGtEIDBIDDIlBIdDJT@JLC:8D"t"4UGDNG\\L=GDJGLKHL\
FHLGHtEHtE:"p"4ZFDTFLT=G|EGlHITBH|DIlDIdE:HtMH|M=JDBJLDKLAKDALDFKtFKdMK\
\\LJTOJ\\NJTMJTM:8M4aGtFGlG=G|HG|H:G\\IG\\J=G|IG|I:GdKGlL=G|JG|J:4b"W
S"4d"W t t"4g"r w"4iGlIGlK=G|JG|J:4kHl@Ht@=HdDHtCHdPH|P:HdDHdD=It\
BIlDJTEJDFIdNI\\N:8N"w"4lID@IL@=HlIH|FHlPH|NHt^H|^:H|MH|N=J\\D\
J\\GK\\OKTOKDXJtXItZI|YIlWI|V:8^4mHLGH\\G=HLVH\\V:4n" u t t
"4p"W"IT@I\\@=HdHHtGIDKILIJLGJLG:JK?JK?=JDGJLGI|MJDL:8M4\
rHt@H|@=HtDH|BJdLJTH:ITEI\\E=ILPILNNtCNlB:8N4t"W t"4u"
p"4zI[?Il@=HlHH|HIDLILIJDII|HKDAJ|A:JtCJtC=JdLJtJL\
THLdFNk|Nc|\
:8K"; main (
int C,char** A) {for(x=A[1],i=calloc(strlen(x)+2,163840);
C-1;C<3?Q=_= 0,(z[1]=*x++)?((*x++==104?z[1]^=32:--x), X =
strstr(Z,z)) &&(X+=C++):(printf("P2 %d 320 4 ",V=b/2+32),
V*=2,s=Q=0,C =4):C<4?Q-->0?i[(int)((l+=o)+b)][(int)(k+=B)
]=1:_?_-=.5/ 256,o=(v(2)-(l=v(0)))/(Q=16),B=(v(3)-(k=v(1)
))/Q:*X>60?y ,q(L[4],L[5])q(L[6],L[7])*X-61||(++X,y,y,y),
Y:*X>57?++X, y,Y:*X >54?++X,b+=*X++%64*4:--C:printf("%d "
,i[Q][s]+i[Q ][s+1]+i[Q+1][s]+i[Q+1][s+1])&&(Q+=2)<V||(Q=
0,s+=2)<640
||(C=1));}Now wouldn't that be a lot more boring in Ada?
Steve
(The Duck)
"Martin Krischik" <martin@krischik.com> wrote in message
news:1308622.IPB2vGgG6q@linux1.krischik.com...
> Jeff C wrote:
>
>
>> for(;P("\n"),R-;P("|"))for(e=C;e-;P("_"+(*u++/8)%2))P("| "+(*u/4)%2);
>
> ;-)
>
> Of corse it will only link when there is a function P() somewhere. P()
> does
> not nessesarly need take a char* as parameter or have any return value at
> all - but it must exist somewhere.
>
> Martin
> --
> mailto://krischik@users.sourceforge.net
> http://www.ada.krischik.com
next prev parent reply other threads:[~2005-01-15 4:09 UTC|newest]
Thread overview: 44+ messages / expand[flat|nested] mbox.gz Atom feed top
2005-01-12 18:10 Will the World ever see something beyond GNAT 3.15p? Robert C. Leif
2005-01-12 21:42 ` Bernd Specht
2005-01-13 0:20 ` Jerry Petrey
2005-01-13 10:46 ` Georg Bauhaus
2005-01-13 19:51 ` Bernd Specht
2005-01-14 9:40 ` Martin Krischik
2005-01-14 12:46 ` Jeff C
2005-01-14 14:47 ` Martin Krischik
2005-01-14 23:10 ` Keith Thompson
2005-01-15 12:14 ` Martin Krischik
2005-01-16 10:41 ` Adrien Plisson
2005-01-16 11:23 ` Martin Krischik
2005-01-15 4:09 ` Steve [this message]
2005-01-15 21:47 ` Bernd Specht
2005-01-15 21:41 ` Bernd Specht
2005-01-16 8:56 ` Martin Krischik
2005-01-13 6:48 ` Martin Dowie
2005-01-13 16:51 ` Martin Krischik
2005-01-14 17:14 ` Martin Dowie
2005-01-15 11:24 ` Martin Krischik
2005-01-15 12:25 ` Martin Dowie
2005-01-15 12:52 ` Martin Krischik
2005-01-15 13:58 ` Jeff C
2005-01-14 1:02 ` Jeffrey Carter
2005-01-14 7:24 ` Pascal Obry
2005-01-14 9:36 ` Martin Krischik
2005-01-13 18:25 ` Pascal Obry
2005-01-13 19:59 ` Bernd Specht
2005-01-13 21:31 ` Pascal Obry
2005-01-13 20:40 ` Randy Brukardt
2005-01-15 21:33 ` Bernd Specht
-- strict thread matches above, loose matches on Subject: below --
2005-01-11 23:33 William J. Thomas
2005-01-11 23:48 ` Mark Lorenzen
2005-01-12 0:05 ` William J. Thomas
2005-01-12 8:40 ` Pascal Obry
2005-01-12 10:18 ` Martin Dowie
2005-01-12 14:52 ` Manuel Collado
2005-01-13 17:26 ` Martin Krischik
2005-01-14 16:02 ` Manuel Collado
2005-01-12 17:22 ` Luke A. Guest
2005-01-12 22:20 ` William J. Thomas
2005-01-13 18:23 ` Pascal Obry
2005-01-13 17:17 ` Martin Krischik
2005-01-15 16:37 ` Nick Roberts
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox