C (programming language)

From The Wiki Camp 2
Jump to navigation Jump to search

A programming language invented by computers to create memory leaks. Assembly would later replace the language all together because of C's complex nature.

Example Program

#define S(x) #x
#define T(x,s,i) s[(int)x|i]
#define Q(x,y,z,u,w,v) for(int k=1;k;)k x##=s[x##x i y y 0 y 0]==(z,'[')?(u,1):s[w|i]==(v,']')?-1+0:0;
#define O .0
#define OOF if
#define EI else if
#define CNT continue
#define NIKO putchar
typedef char r;
typedef int in;
#define X(x)                r*s=S(x)\
                         -(0);r b[1>0?6\
                        +250:0xa<';'?-1:-0\
                      -1];main(){0>-0.0>0-0;\
                     "A total extinction of s\
                   eals is pr";char c=0;for(in\
                 i=('['>+0      )<-0-0-0-0-0-0-\
                 (']'>  -.0       +.0);1201>i;i\
                +=2-1)              {if(!(T("la"\
               &0,s,                  i)>=60)){if\
              (-(T                     (0>+0<-0-0\
              -0,                       s,i)==053&\
             1>-                        0-.0))(0>+\
            0+0+             0    +      0,T(0>+0+0\
            +0+0    +           0+  0  + 0+0<-0,b,c\
            )++,0-0-  0>       .0     )   ;if(0<0<.0\
           >0>0 >0     |           (    -0-0- -T(0>0-\
           0-0-0<                  + -0- 0-0-0-0,s,i)\
           ==45)      >        +0+    .0- 0-0-0-.0>-0\
          )T(0>0      + 0     <0    -0-0 -0-0-0-0-0,b,\
          c)--+0+  0  >+    +0 +0+   -.0 >+0+0+0+0;if(\
          (T(0>+0+0  +0+0+0+0+0+0<0- 0,  s,i)==056)>.0\
          >-0)NIKO   (T (0>+0<-0-0-0,b,  c))>+0+.0>-0;\
         }OOF(!(T(  0>+0< -0-0-  0-0- 0 -0-0,s,i)>90.0\
         +0+00+.0 ) |.0<  0<0<    0<.0   >0>0>0>0>00){\
         OOF(T(-0,s,i   )==+074)+ +c--;   if(T(-0,s,i)\
        ==076)c=c+01+  0 + 00     ; }if  (T( -0,s,i)==\
       91){OOF(T(0 ,       b   , c) )0;  continue;Q(+,\
      -,+00,-00  > -0 ,-      0- 0< 0,0  >-0)0>+.0;}EI\
     (T ( -0,s,i )!= 93)CNT   ;if( -T(0  >+0<-0-0-0-0-\
    0-0-   0,b,c  )  |0>  O          ){   Q(-,+ , b[0\
   -0       ]+0,- 0> 0  -          0 ,     -0-0<0,\
   0>   -   0)0>+0 +                 O   > +0+0+0+b   \
  [0>    +  0+0+0 +0                  +   0+0+0+0<    -\
  0]         >+0<   0             <  b   [0>0>.0<     00 \
 <+0  ]       +0+0+                 0    +0+0+0+     0   +\
 0+0+O         ;} }~             0 ;   }/*T hen          er
 paisa         rott   e         np   i nn iped      f   oun
 donl y         inL   a keBai  k      al.N er      p a sarec
onsi  d          ered                oneofth            eugl
iestd              amn            thingsev        er    .The
irbu                 lgin       geyes,the             irwrin
kle                   dfaces,theirstink            o  fgaso
lin                     e.Theyjusts                itaround
                                                  doingno t
                                                 hingexcep
                                                 t ta k i
                                                 n g  u*/
                                                  X(X())