
Und damit die Uebung nicht so trocken ist ...

... hier noch was zum Thema komplizierte Ausdruecke in C:

#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(a[31]):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);
}

Alles klar?


... und hier noch was zum Thema UNIX-Tools:

80days_nospecial_noblank.txt sei der in Aufgabe 3a) erzeugte Text:

Hier wird aus dem Eingabetext eine "Trigramm" Buchstabenstatistik erzeugt und jeweils in Abhaengigkeit von den zwei vorhergehenden Buchstaben ein Nachfolger ausgewuerfelt:

cat 80days_nospecial_noblank.txt | sed s/" "/"_"/g | gawk '{for (i=1;i<=length($0)-2;i++){count[tolower(substr($0,i,3))]++}}END{for (letter in count){print letter" "count[letter]}}' | sort +1 -2 -rn | gawk '{n++;let[n]=$1;count[n]=$2}END{sent ="so";printf sent; for (l=1;l<1000;l++){cnt = 0;for (w=1;w<=n;w++){if (substr(sent,l,2)==substr(let[w],1,2)){cnt += count[w];}}; r= cnt*rand(); for (w=1;w<=n;w++){if (substr(sent,l,2)==substr(let[w],1,2)){r -= count[w]};if (r<=0){if (substr(let[w],3,1)!="_"){printf substr(let[w],3,1)}else{if (substr(sent,length(sent),1)!="_"){printf " "}};sent = sent""substr(let[w],3,1); break}}}}'


