[For fun] How to write unmaintainable code

[Mart!]

Voor de liefhebbers, ik kreeg deze link vandaag van een collega.
How To Write Unmaintainable Code

Erg handige tips als je echt je code voor jezelf wilt houden. En ook ongelofelijk dat iemand zo'n lange essay kan schrijven over zoiets. Enjoy reading, I did!
[ACM: Is dit topic vragen om een slotje - no flame intended - of zal hier een interessante discussie over kunnen ontstaan over het WEL onderhoudbaar maken van code?]

[KoeKk]

die is echt goed dit ga ik eens een keer gebruiken,

ik heb nl ook een klant die wel eens door mijn code neust en dan vraagt ie of ik iets 'eventjes' aan kan passen. Ik zeg dan dat het niet zo simpel is, en dan gaat hij mij vertellen wat en hoe ik dat dan 'eventjes' moet doen

[Banpei]

Leuk! Zo programmeer ik altijd al...

[Gerco]

Op woensdag 10 oktober 2001 09:39 schreef KoeKk het volgende:
ik heb nl ook een klant die wel eens door mijn code neust en dan vraagt ie of ik iets 'eventjes' aan kan passen. Ik zeg dan dat het niet zo simpel is, en dan gaat hij mij vertellen wat en hoe ik dat dan 'eventjes' moet doen

Doe dat dan 'eventjes' PRECIES zoals die klant zegt en geef hem dan het produkt

[Nielsz]

Op woensdag 10 oktober 2001 09:44 schreef Gerco het volgende:

[..]

Doe dat dan 'eventjes' PRECIES zoals die klant zegt en geef hem dan het produkt

En maar zeuren dat je klanten weglopen

[Gerco]

Op woensdag 10 oktober 2001 10:07 schreef Nielsz het volgende:
En maar zeuren dat je klanten weglopen

Daar hebben we het maar even niet over

[Verwijderd]

Echt een geniaal documentje, alleen triest dat een hoop mensen wel zo proggen

[Korben]

LISP is a dream language for the writer of unmaintainable code. Consider these baffling fragments:

code:

(lambda (*<8-]= *<8-[= ) (or *<8-]= *<8-[= )) 
(defun :-] (<) (= < 2)) 

(defun !(!)(if(and(funcall(lambda(!)(if(and '(< 0)(< ! 2))1 nil))(1+ !)) 
(not(null '(lambda(!)(if(< 1 !)t nil)))))1(* !(!(1- !)))))

Euh... ligt het nou aan mij of staan er smileys in die code?

Tricks In Offbeat Languages:
Programming in Basic causes brain damage.

I couldn't agree more.

Comments at the top of procedures should use templates that are at least 15 lines long and make liberal use of blank lines. Here's a handy template:

code:

/* 
/* Procedure Name: 
/* 
/* Original procedure name: 
/* 
/* Author: 
/* 
/* Date of creation: 
/* 
/* Dates of modification: 
/* 
/* Modification authors: 
/* 
/* Original file name: 
/* 
/* Purpose: 
/* 
/* Intent: 
/* 
/* Designation: 
/* 
/* Classes used: 
/* 
/* Constants: 
/* 
/* Local variables: 
/* 
/* Parameters: 
/* 
/* Date of creation: 
/* 
/* Purpose: 
*/

Ahum... so much for commenting...

[CrazyA]

Amen !!

Maar, zou MicroSoft deze techniek gebruiken ?? Windows is trager dan nodig, lekt geheugen, werkt onlogisch enz enz enz

[ACM]

Op woensdag 10 oktober 2001 09:21 schreef Mart! het volgende:
[ACM: Is dit topic vragen om een slotje - no flame intended - of zal hier een interessante discussie over kunnen ontstaan over het WEL onderhoudbaar maken van code?]

Een slotje
Waarom?

Zelfs als er nog meer ranz-voorbeelden van ranzige code komen maakt me dat niks uit. Dit zijn juist leuke topics

[Nielsz]

Op woensdag 10 oktober 2001 11:30 schreef Crazy A het volgende:
Amen !!

Maar, zou MicroSoft deze techniek gebruiken ?? Windows is trager dan nodig, lekt geheugen, werkt onlogisch enz enz enz

Euhm, mijn code is best ranzig, maareh, het is wel superrap.

ACM >> dat meen je niet, pas es je icon aan man
(vertel vertel, alle details )

[ACM]

Op woensdag 10 oktober 2001 11:40 schreef Nielsz het volgende:
Euhm, mijn code is best ranzig, maareh, het is wel superrap.

Wat vind je rap?
Als iemand anders (met meer ervaring?) het een stuk sneller kan maken, is het dan nog wel rap?

ACM >> dat meen je niet, pas es je icon aan man
(vertel vertel, alle details )

Mja, klik es wat links in mijn sig

[Nielsz]

Op woensdag 10 oktober 2001 11:48 schreef ACM het volgende:

[..]

Wat vind je rap?
Als iemand anders (met meer ervaring?) het een stuk sneller kan maken, is het dan nog wel rap?
[..]

Als D2k zegt dat het bloedjesnel is, dan neem ik aan dat het redelijk snel is
Maar het kan idd nog altijd sneller...

Mja, klik es wat links in mijn sig

Owh, die!
Ik was er al ergens tegengekomen op het forum, en dacht "Welke fools doen er nou weer met de nieuwste rage mee."

[tus]

Erg leuk stukje. Heb me zeer vermaakt. Vooral stukje over kode camoufleren en incorrekte dokumentatie!!

[stylee]

grappig

[Bergen]

HA HA HA

DIT IS NOG NIX!!!!!!!!!!!!!! er is een veeeeeeeel mooiere site over het schrijven van belabberde code

Ik zoek hem voor jullie op!!!!!!!

[Bergen]

Found it!
http://www.ioccc.org
En ga dan naar Winning Entries

Check bijvoorbeeld dit eens, dit wordt echt geaccepteerd door de compiler en het is dus ook daadwerkelijk een werkend programma!!

code:

      #include                       <stdlib.h>
   #include                             <stdio.h>
#define                 a                   typedef
a                 long                       N;
#define             i =m(p(r,o,v),e,d 
N               G,l,I,C,B,A,W,L,S
,               R,O,c,k,s                   =
80,                                    U=13
,T=169;                                 a double P;
   #define                           F for(
    a P*E; a char*w;                     P sqrt(P); N H(){ F;
        O=scanf(" %[#]%*[^\n]",&O); ); scanf("%ld%*c",&O);
                #define D return
                  D O; } 



#define V                         =malloc(sizeof(
#define  M                       M(
#define   X                     +=
P M N R){ s=                         s>=k?printf( "%ld%c"
+3*(C<1),s-k,                       R&7?32:10):s; D R>0?B
/2?H():getchar                       ():R?.9+.7*M R+1):0; }
P t(N x,P K){ D                     x?(x>U?0:t(x+2,K)*(x-1)
/x/K)+1/sqrt(K):                   t(2,K*K/U+1)*K; }  N _(N
J,N x){ F*(x?&W:&                 A)=W+J+x; (O=x=W/(J=k*k))
||A<J||(( O=2*W/J)               &&2*A/J<3); A  X A-J+1){ F 
J*=x+O; S--*B&&x==O             ; O=x=!J){ s X x+s; M 0); } 
W X W-J;  S X 2; L X                 L-J*k+M S%8==B); } D  1; } E 
p(E J,E x,E O){ F R=T;              R--; )O[R]=J[R]+.8*x[R]; D O; 
} P m(E W,E x,P s){ F R      =       U; --R; ){ E A=W+R*U; W[R]X s/
12; *W X s; *A-=*x++; F;    A>W;        ){ *A/=*W; F O=R; O; O--)A[O]-=
W[O]**A;  A-=U; } W X 14;     } D*W; }     int main(int z,w*y){ N K=s,g; Y; 
M z); s= B=C=15-H(); s=G=   M 8); s=l=M   C); G*=g=C%3?1:3; if(I=s=M 8)){ N 
b=G+9,x=b*340+U,J=b*(l+5), * n V N ) * J ),*j=n+5*b; E h V P)*x),q=h+b,e=q+
b; P d=K; F; J--; )n[J]=J<b ? 0: I / 2  ; F; x; )h[--x]=0; s=M x); k=256; C
=4-C; B=C/4;  s=_(_(T,0),0); F ; -- z  ; ){ R=atoi(*++y); c=R>0?K=R,c :-2*R; 
} z=G/K+1; z X g>z; I++; c++; F ;  ++ J<l; ){ P u=0,C,y; E H =e+U,o= H+b*T,r
=o-2*T,v=r-T; F; x<G; x++){ p( H , o -T,o); o X T; H X T; q[x]= .7*(q[x-1]+h
                 [x] ); 
                 } p(H,
                 H,r ); 
                 F;  x; 
                ) { E S= 
                 e ; w  l =
              " !{   ,;lf6D@"
            ; j X 1-g; F; *++l; 
            ){ *S++ =*j; j X*l%3*g-
            g+*l%5*b-3*b; } y =M  x-G); 
          y =M-J)* M-x)+ M-J-1)*y+.01; y=
        sqrt((u+q[--x]+.1)/y ); o-=T; C i)+
        #define Z(x)(t(0,(x-C)/y)-l+1e-6*(x-Q))
        .5; K=M-B); { N f=I,Q=0; F; f-Q>c; ){ P l=0
      ; N H = C+c/2+1; H%=c; H X(f+Q+c-2*H)/2/c*c; l=
    Z(Q); O=(A-W)*Z(H)/Z(f); _(O,R=B?K>= H:L/k>O+W); *(
    R?&Q:&f)=H; } Q X f; *S=*j=Q/=2; s=B?s:Q+k; f=Q+n[x/z]; 
    n[x/z]=x%z+J%(z*2/g)?f:!putc(x?l[4*g*f/z/z/I-8]:10,stderr); 
  H-=U; F O=156; O--; ){ H--; *H=e[O%U]*e[O/U]/y+.8**H; } C-=Q+.5
; y i/.9)-Q-C; p(p(r+T,r,r),H,r); h[x]=.7*h[x]+C*C; u X h[x]; u*=.7
     ; d X C>0?-y:y; } } j X 9; } _(_(x,x),x); } D 0; }

[Bergen]

of dit... lol

code:

typedef void e();

e *w,*l,*u,*_o,*j,*t,*O,exit,b,c_,b_,a_,c,a,z_,x_,d,y_,_m;
int q,m,_d,z,k,h,f[99];
char y[26],_p[40][26],_q,r[2],*_,**s,*i,

*x[]= { "\n", ")", "if (", "}\n", ");\n\n", "    ", ",&", "\"",
  ",", " %%d", ";\n\n    scanf(\"%%d", "%%d ", "else ", ",", "<",
  ");\n", "printf(\"", "main()\n{\n    int a" };

void  g(){ O=j; printf(_); }
void _j(){ O=_o; m=!m; h=h+m*(long)t; }
void _u(){ O=g; _=x[0]; j=b; }
void _r(){ O=g; _=x[1]; j=_u; }
void _f(){ O=g; *r=y[k-1]; _=r; j=_r; }
void _l(){ O=g; _=x[2]; j=x_; }
void _c(){ O=(e*)h; }
void  n(){ O=_j; t=w; _o=_c; }
void  p(){ O=_j; h=0; t=l; _o=n; }
void _b(){ O=p; q=*i+q*10-'0'; i=i+1; m=*i; w=_b; l=c; }
void _s(){ O=g; _=x[3]; j=exit; }
void  v(){ O=p; z=z-1; m=z; w=z_; l=_s; }
void _a(){ O=g; _=x[4]; *y=x[17][1]; z=0; j=b; }
void _z(){ O=g; _=x[5]; j=p; k=k-1; m=k; w=_z; l=u; }
void _h(){ O=g; _=x[6]; j=a_; }
void _e(){ O=g; _=x[7]; k=0; j=_h; }
void _t(){ O=g; _=x[8]; j=d; }
void _g(){ O=g; _=x[7]; j=_t; k=0; }
void _k(){ O=_z; k=f[z]; _q=y[k]; y[k]=y[k-1]; y[k-1]=_q; u=b_; k=z; }
void d_(){ O=_k; y[z+1]=x[17][1]+z; f[z]=z+1; }
void b (){ O=p; z=z+1; m=q-z; w=c_; k=z; l=_z; u=a; }
void e_(){ O=g; _=x[9]; k=k+1; m=k<q; w=e_; l=_e; j=p; }
void f_(){ O=g; _=x[10]; k=1; j=e_; }
void g_(){ O=g; _=x[11]; j=p; k=k-1; m=k; w=g_; l=_g; }
void h_(){ O=p; _p[z][k]=y[k]; k=k+1; m=k<=z; w=h_; l=d_; }
void i_(){ O=p; y[k]=_p[z][k]; k=k+1; m=k<=z; w=i_; l=v; }
void j_(){ O=i_; k=0; }
void k_(){ O=p; m=k>1; w=_l; l=_u; }
void l_(){ O=g; _=x[12]; j=k_; }
void m_(){ O=g; _=x[13]; j=y_; }
void n_(){ O=p; k=k+1; m=k<q; w=_h; l=_a; }
void o_(){ O=g; _=x[14]; j=_f; }
void c_(){ O=h_; k=0; }
void p_(){ O=g; _=x[15]; j=v; }
void b_(){ O=p; k=f[z]; m=k<=z; w=l_; l=k_; }
void a_(){ O=g; *r=x[17][1]+k; _=r; j=n_; }
void q_(){ O=p; k=k+1; m=k<q; w=m_; l=f_; }
void c (){ O=g; r[1]=0; k=1; j=m_; }
void a (){ O=g; k=z; j=g_; _=x[16]; }
void z_(){ O=p; f[z]=f[z]-1; m=f[z]; w=_k; l=j_; }
void x_(){ O=g; *r=y[k-2]; _=r; j=o_; }
void d (){ O=g; *r=y[k]; _=r; k=k+1; m=k<z; w=_t; l=p_; j=p; }
void y_(){ O=g; *r=x[17][1]+k; _=r; j=q_; }
void r_(){ O=_b; _=x[17]; s=(char**)_d; s=s+1; i=*s; q=0; }
main(v,c){ O=r_; _d=c;
  x: (O)(); goto x; }

[Bergen]

code:

%:define _POSIX_SOURCE
#include<fcntl.h>
#include<stdio.h>
#include<unistd.h>
#include<stdlib.h>
#include<string.h>
#include<sys/types.h>
#include<sys/stat.h>
#define D(N,t)Z t*N V<%t*z U M0*z); H z)u z; X}
#define k(x,y)x<0||fstat(x,&y)||
#define h(x)=open(x,O_RDONLY)
#define b(x),(int)x.st_nlink
#define B ;typedef g
#define X exit (1);
#define O .st_size
#define U =malloc(
#define Y S.st_ino
#define v ;%>else
#define W .st_dev
#define o ||read(
#define Z static
#define g struct
#define u return
#define I char*
#define V (M2)
#define H if(
#define _ ->

/* HE WHO SAYS */

Z I A<:32767/   M0(I )]; Z g     stat S,T; Z      size_t    y B f{
I n ; g f *  x     ; dev_t d  ;    ino_t i; } f B   t{ M1     s,c; f
*l; g t*L,*R; }    t; D(a,t)D(E    ,f)Z t*J(t*p,I   n){ H!   p){ p=
a(); p    _ s =S    O; p _   c=1; p       _ L=p    _ R=0;
p _ l=    E(); p    _ l  _   n=n; p       _ l _   x=0; p
_ l  _    d=S W;    p _  l   _ i= Y       v H S   O==p _
s){ f*    e; for    (e=p _   l; e; e=e _ x) { H S W==e _ 
d&&Y==    e _ i)    { u p;    } } e=E(); e _     x=p _ l; e _ 
n=n; e    _ d =S    W; e _          i=Y; p     _ l=e;  ++p _ 
c v  H    S O< p    _ s) {          p _ L=     J( p _  L,n)v{
p _ R=    J (p _    R,n );          } u  p     ; }  Z   int Q(
I G,I F){ int d    h(G),D h(F);    I m,*M; H k(d,S     )k(D,T   )(y =S 
O)-T O){ y= 0;     goto d; } H!    (m U y))||!(M U     y))o d    ,m,y)-
y o D,M,y)-y)   X y=!memcmp(     m,M,y); M5(m)  ; M5(M    ); d:V

 close (d );V   close(D); u   y; } Z M2 C(M1     z,M1 N){ M1     i=N*(N-1)/2,
j=1,s; I q,*e,*    p,*w,*l; e=q=     M4((size_t)i,1);     H!e) X p=q+i;    for(i=0; e-p
; ++e){ H!*e&&Q    (A[i:>,A[j])){   V printf("%""l""d"   "\t""%" "s""\t"   "%""s"
"??/t"       "%""c"   "\11"   "%""d"    "??/t"   "%""d"    "\n",   z,A[i]
,A[j],       S W -T   W?'X'   :'='b(    S)b(T)   ); H j    -i-1)   { s=N-
i-3; w       =e+s+1; l=q+N*   (j-1)-    j*(j-1   )/ 2 ;     do{ *w
=1; H w==l)   break; w+= s;    } while( s-->0); }   } H++j      ==N){ j=i+++
 2; } } M5(q);     } Z M2 P(t*p     ){ H p){ P(p _ R);   H  p _     c>1){ M1 i=0
       ; f*l=    p _ l;      for (; i< p _   c; ++i     ){ A[i
       ]= l _    n; l=l      _ x; } C (p _   s, p _    c); }   P (p _ 
       L) ; }    }  int      main V { t*r=   0; I F    ; for   (; ; )
{ H!(F U 1024))    )X H !        fgets( F,1024   ,stdin) )break;   *(F+(y
=strlen(F))-1)=    0; H!(       F=M3(F, y)))X H   stat(F,&S)==0    &&S_ISREG(S.
 st_mode)&&S O     )r=J(r       ,F ); } H r)P(r    ); u 0; }/*     Obfuscated C

IS FREE THINKS MONEY GROWS ON DIRECTORY TREE */

[Bergen]

Nog even een serie liefdesbrieven (dit is dus echt werkende en compileerbare code !!!!)

code:

char*lie;

    double time, me= !0XFACE,

    not; int rested,   get, out;

    main(ly, die) char ly, **die ;{

        signed char lotte,


dear; (char)lotte--;

    for(get= !me;; not){

    1 -  out & out ;lie;{

    char lotte, my= dear,

    **let= !!me *!not+ ++die;

        (char*)(lie=


"The gloves are OFF this time, I detest you, snot\n\0sed GEEK!");

    do {not= *lie++ & 0xF00L* !me;

    #define love (char*)lie -

    love 1s *!(not= atoi(let

    [get -me?

        (char)lotte-


(char)lotte: my- *love -
    
    'I'  -  *love -  'U' -

    'I'  -  (long)  - 4 - 'U' ])- !!
    
    (time  =out=  'a'));} while( my - dear

    && 'I'-1l  -get-  'a'); break;}}

        (char)*lie++;


(char)*lie++, (char)*lie++; hell:0, (char)*lie;

    get *out* (short)ly   -0-'R'-  get- 'a'^rested;

    do {auto*eroticism,

    that; puts(*( out

        - 'c'
    
-('P'-'S') +die+ -2 ));}while(!"you're at it");


for (*((char*)&lotte)^=

    (char)lotte; (love ly) [(char)++lotte+

    !!0xBABE];){ if ('I' -lie[ 2 +(char)lotte]){ 'I'-1l ***die; }

    else{ if ('I' * get *out* ('I'-1l **die[ 2 ])) *((char*)&lotte) -=

    '4' - ('I'-1l); not; for(get=!


get; !out; (char)*lie  &  0xD0- !not) return!!

    (char)lotte;}


(char)lotte;

    do{ not* putchar(lie [out

    *!not* !!me +(char)lotte]);

    not; for(;!'a';);}while(

        love (char*)lie);{


register this; switch( (char)lie

    [(char)lotte] -1s *!out) {

    char*les, get= 0xFF, my; case' ':

    *((char*)&lotte) += 15; !not +(char)*lie*'s';

    this +1s+ not; default: 0xF +(char*)lie;}}}

    get - !out;

    if (not--)

    goto hell;

        exit( (char)lotte);}

[Verwijderd]

Geen ranzige source draad compleet zonder de 12 days of chrismas source toch?

code:

#include <stdio.h>
main(t,_,a)
char *a;
{
return!0<t?t<3?main(-79,-13,a+main(-87,1-_,main(-86,0,a+1)+a)):
1,t<_?main(t+1,_,a):3,main(-94,-27+t,a)&&t==2?_<13?
main(2,_+1,"%s %d %d\n"):9:16:t<0?t<-72?main(_,t,
"@n'+,#'/*{}w+/w#cdnr/+,{}r/*de}+,/*{*+,/w{%+,/w#q#n+,/#{l+,/n{n+,/+#n+,/#\
;#q#n+,/+k#;*+,/'r :'d*'3,}{w+K w'K:'+}e#';dq#'l \
q#'+d'K#!/+k#;q#'r}eKK#}w'r}eKK{nl]'/#;#q#n'){)#}w'){){nl]'/+#n';d}rw' i;# \
){nl]!/n{n#'; r{#w'r nc{nl]'/#{l,+'K {rw' iK{;[{nl]'/w#q#n'wk nw' \
iwk{KK{nl]!/w{%'l##w#' i; :{nl]'/*{q#'ld;r'}{nlwb!/*de}'c \
;;{nl'-{}rw]'/+,}##'*}#nc,',#nw]'/+kd'+e}+;#'rdq#w! nr'/ ') }+}{rl#'{n' ')#\
}'+}##(!!/")
  :t<-50?_==*a?putchar(31[a]):main(-65,_,a+1):main((*a=='/')+t,_,a+1)
    :0<t?main(2,2,"%s"):*a=='/'||main(0,main(-61,*a, "!ek;dc i@bK'(q)-[w]*%n+r3#l,{}:\nuwloca-O;m .vpbks,fxntdCeghiry"),a+1);
}

[Verwijderd]

Neem aan dat Perl hier weer niet mag...?

[Nielsz]

Op donderdag 11 oktober 2001 09:36 schreef Arien het volgende:
Neem aan dat Perl hier weer niet mag...?

Perl wint het gerust met zo'n topic

[Gerco]

Op donderdag 11 oktober 2001 09:36 schreef Arien het volgende:
Neem aan dat Perl hier weer niet mag...?

Perl is per definitie ranzig, dus dat telt niet

[Verwijderd]

Gerco: Perl is per definitie ranzig, dus dat telt niet

Je kunt ook te ver gaan he?

[Verwijderd]

Op donderdag 11 oktober 2001 11:37 schreef Gerco het volgende:

[..]

Perl is per definitie ranzig, dus dat telt niet

Niet schelden plz... I Perl

[Blue-eagle]

Op donderdag 11 oktober 2001 11:49 schreef mgfun het volgende:

[..]

Niet schelden plz... I [afbeelding] Perl

right

Naar aanleiding van deze thread zal ik niet mijn gemiddelde code hier neerzetten, zelfs m`n wergever begrijpt er niks van

[Gerco]

Op donderdag 11 oktober 2001 12:07 schreef Blue-eagle het volgende:
Naar aanleiding van deze thread zal ik niet mijn gemiddelde code hier neerzetten, zelfs m`n wergever begrijpt er niks van

Dat is toch normaal? Werkgevers snappen nooit waar hun personeel mee bezig is. Al helemaal niet als het proggers zijn.

[Blue-eagle]

Op donderdag 11 oktober 2001 12:15 schreef Gerco het volgende:

[..]

Dat is toch normaal? Werkgevers snappen nooit waar hun personeel mee bezig is. Al helemaal niet als het proggers zijn.

hmja, we werken hier met een standaard opmaak voor de codes, ik houd me er wel redelijk aan, maar ik ben gewend alles onderelkaar te zetten en geen commentaar te geven (ik moest het immers altijd zelf lezen, nooit iemand anders, nu dus wel)...