---

Hvis man kan tyde den her delphi kode, er man efter min mening HardCore
Delphi programmør

---

program XMas;
{$APPTYPE CONSOLE}

function t_ (t, _ : Integer; a : PChar) : Integer;
begin
if 1<t then
begin
if t<3 then t_(-79,-13,a+t_(-87,1-_,t_(-86,0,a+1)+a));
if t<_ then t_(t+1,_,a);
if (t_(-94,-27+t,a)<>0) and (t=2) then
if _<13 then result:=t_(2,_+1,'%s %d %d'#13)
else result:=9
else result:=16
end else
if t<0 then
if t<-72 then result:=t_(_,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'' '')# }''+}##(!!/')
else if t<-50 then
if _=Ord(a^) then
begin
result:=Ord(a[31]);
if a[31]=#13 then WriteLn
else Write(a[31]);
end else result:=t_(-65,_,a+1)
else result:=t_(Ord(a^='/')+t,_,a+1) else
if 0<t then result:=t_(2,2,'%s')
else result:=Ord((a^='/') or (t_(0,t_(-61,Ord(a^),'!ek;dc
i@bK''(q)-[w]*%n+r3#l,{}:'#13'uwloc'+
'a-O;m .vpbks,fxntdCeghiry'),a+1)<>0))
end;

begin
t_ (1, 10000, '');
WriteLn;
WriteLn;
WriteLn;
Write('Tryk en tast....');
Readln;
end.

---

Det er en gang rekursiv kode som skriver sangen :

"On the first day of Christmas my true love gave to me ... "

Der er dog en del fejl i teksten, f.eks. så er 'a' konsekvent skrevet som
'<' og mellemrum er 'u'.

Men det er da en sød lille stump kode, og et skole eksempel i spaghetti
kode.

Mvh
Thomas


"Izeqb" <izeqb@secret.dk> wrote in message
news:9476mb$21ut$1@news.cybercity.dk...
> program XMas;
> {$APPTYPE CONSOLE}
>
> function t_ (t, _ : Integer; a : PChar) : Integer;
> begin
> if 1<t then
> begin
> if t<3 then t_(-79,-13,a+t_(-87,1-_,t_(-86,0,a+1)+a));
> if t<_ then t_(t+1,_,a);
> if (t_(-94,-27+t,a)<>0) and (t=2) then
> if _<13 then result:=t_(2,_+1,'%s %d %d'#13)
> else result:=9
> else result:=16
> end else
> if t<0 then
> if t<-72 then result:=t_(_,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'' '')# }''+}##(!!/')
> else if t<-50 then
> if _=Ord(a^) then
> begin
> result:=Ord(a[31]);
> if a[31]=#13 then WriteLn
> else Write(a[31]);
> end else result:=t_(-65,_,a+1)
> else result:=t_(Ord(a^='/')+t,_,a+1) else
> if 0<t then result:=t_(2,2,'%s')
> else result:=Ord((a^='/') or (t_(0,t_(-61,Ord(a^),'!ek;dc
> i@bK''(q)-[w]*%n+r3#l,{}:'#13'uwloc'+
> 'a-O;m .vpbks,fxntdCeghiry'),a+1)<>0))
> end;
>
> begin
> t_ (1, 10000, '');
> WriteLn;
> WriteLn;
> WriteLn;
> Write('Tryk en tast....');
> Readln;
> end.
>
>

---

> Men det er da en sød lille stump kode, og et skole eksempel i spaghetti
> kode.

Hvad er spaghetti kode?

---

Izeqb wrote:
>
> > Men det er da en sød lille stump kode, og et skole eksempel i spaghetti
> > kode.
>
> Hvad er spaghetti kode?

Kode der knap nok kan forstås af programmøren selv :)

--
>o ********* PINKY! aka. Rasmus Klitgaard-Nielsen *********
<()> **** Mad Programmer - Commodore Freak - ABP regular ****
^^ "Can't sing. Can't dance. Can handle a sword a little."
-- Victor's resume (Terry Pratchett, Moving Pictures)

---

Rasmus Klitgaard-Nielsen <pinky@cs.auc.dk> wrote:

>Izeqb wrote:
>>
>> > Men det er da en sød lille stump kode, og et skole eksempel i spaghetti
>> > kode.
>>
>> Hvad er spaghetti kode?
>
>Kode der knap nok kan forstås af programmøren selv :)
>

Plejer det ikke at være skrevet i C ?


------------------
Ove Kjeldgaard
------------------

---

Ove Kjeldgaard wrote:
>
> Rasmus Klitgaard-Nielsen <pinky@cs.auc.dk> wrote:
>
> >Izeqb wrote:
> >>
> >> > Men det er da en sød lille stump kode, og et skole eksempel i spaghetti
> >> > kode.
> >>
> >> Hvad er spaghetti kode?
> >
> >Kode der knap nok kan forstås af programmøren selv :)
> >
>
> Plejer det ikke at være skrevet i C ?
>
ikke nødvendigvis, både Pascal, Java og BASIC kan være med (især
gammeldags basic med linienumre :)



> ------------------
> Ove Kjeldgaard
> ------------------


--
>o ********* PINKY! aka. Rasmus Klitgaard-Nielsen *********
<()> **** Mad Programmer - Commodore Freak - ABP regular ****
^^ "Can't sing. Can't dance. Can handle a sword a little."
-- Victor's resume (Terry Pratchett, Moving Pictures)

---

Det er bare nemmest i C...
Jeg har for den sags skyld set .bat spaghetti ...

Mvh
Thomas

"Rasmus Klitgaard-Nielsen" <pinky@cs.auc.dk> wrote in message
news:3A69DB57.E4DDDB87@cs.auc.dk...
> Ove Kjeldgaard wrote:
> >
> > Rasmus Klitgaard-Nielsen <pinky@cs.auc.dk> wrote:
> >
> > >Izeqb wrote:
> > >>
> > >> > Men det er da en sød lille stump kode, og et skole eksempel i
spaghetti
> > >> > kode.
> > >>
> > >> Hvad er spaghetti kode?
> > >
> > >Kode der knap nok kan forstås af programmøren selv :)
> > >
> >
> > Plejer det ikke at være skrevet i C ?
> >
> ikke nødvendigvis, både Pascal, Java og BASIC kan være med (især
> gammeldags basic med linienumre :)
>
>
>
> > ------------------
> > Ove Kjeldgaard
> > ------------------
>
>
> --
> >o ********* PINKY! aka. Rasmus Klitgaard-Nielsen *********
> <()> **** Mad Programmer - Commodore Freak - ABP regular ****
> ^^ "Can't sing. Can't dance. Can handle a sword a little."
> -- Victor's resume (Terry Pratchett, Moving Pictures)