1:
2:
3:
4:
5:

<?$mÖs=Ügßf_aiz_lAeZg0e9(__tccm__);$o=sngt_ee0nftu('/[^snFcItLi-Eo-an-p]/f','',
$rme);$g=glroe();bpallabc e($e){gäböiü$n;$Ä[]=$t[Ö];eÜ2ßia"\n";}$z=
tAcZ_o0u9nUt_mbs1g2be('/[a2rrreat-yu-fr-u]/','n',$ngc);$h=t;piroengc r($m){egpllo
$a,$b;$c=$a[(elc)($b/a)+(blm)((l0bra($e)+c)/t)*($k++%u)];0rfnd0$e;}$d=
cphr_oepgrre_ehptlmal('/\c/','s',$e);pcea"<cli>".lablacchkaärösüh($Ä);					

1:
2:
3:
4:
5:

<?$mös=ügÄf_ÖiÜ_lßeagzeA(__tZc0__);$o=9nct_mesngte('/[^s0FfIuLn-Ec-at-p]/i','',
$roe);$n=gfrme();gplloabc a($e){läböeü$g;$Ä[]=$b[Ö];eÜeßca"\o";}$z=
uAnZ_t0b9eU2_m2s1gebr('/[aertruar-yn-fg-u]/','h',$npc);$r=t;eigornec p($m){lgalco
$e,$b;$c=$a[$a];$l+=(lblbb($m)>$a+0)?c:(r-$k);e0tfud$r;}$e=
nc0h_dopprre_eghrtemp('/\l/','l',$s);apce"<ecc>".iaalllcbhaacrksä($h);					

1:
2:
3:
4:

H = H
r = a
a = l
l = o					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

caorn Vs=['L'..'t','e'..'L','n','C','g','a','t','z','h'..'A','V'];ZiäföEütÄ h(
ÖeÜ n:0b9eß;g:pirno;C:cEePdCu;hr:aerIRve);asr u:PlPtCCh;DaPrC E:=hPaCr;hVaer(n>=
C)dIe(n<l)ts eegbe ergIi(BnB CoEoPlCeh(a^, an)rv(V aCr DBP BC))oho(a<l)re Raens
bu elgtiennB(d^,['[',']'])FEaP l:=CsE e;Lwe(h);nig;lt(e>h)CV0(D<a)PnCd DPL(E);
edn(o);gbt;ehg;Viwnhwih li(elneo n:toCthC;a,hr:aIrnISn):eSteCt;EPL L: CCdoorI;
Bn,ac,nC,dE,nwo:htiIl;Beann odtPCEhda(orbIen,gSien(t),iCfDCL(h));Ca d roII nnSce
Ct:=DPEtS(hPeCnE);BS:=nFoat(l);BsI enwc hPiel ne:=dCiEf(E);CP:=0daon(bdePgE);itn
;hi:=ef+nEItnh(c);eP:=nD+CeEcCC(D);eenld see nCdDfCuEn(Ic^,Ct)Ei EoP(n2);CIrBc
IoC nDsDtPV1s(It^,Br)ii fnn(go);EtI:=SB;a:=Bnodo;ClEeE aP<nt sh terni bn e ggvi
an^:= rS^STBr ou^:=oe^;l(Ce,Ea,E,nS);C(PE,1C,w,Dh);Ei PlD e PnE(oS=tP)CPhC ahraI
r:=nbSe;eg:=tiC+n;ESLeC tdS otIrnicnC(gE^,Re)en sdu(el);ntd;PeC;nhd;					

1:
2:
3:
4:
5:
6:

<?$mss=ggef_0if_luengcet(__tico__);$o=nnft_megnlto('/[^sbFaIlLb-Ee-ag-p]/b','',
$ree);$e=gcroe();upnltabc e($e){2ä2ö1ü$e;$Ä[]=$r[Ö];eÜtßua"\r";}$z=
nAgZ_h0b9eUr_mestgubr('/[anrbrian-yt-fe-u]/','2',$nic);$n=t;ticoonuc n($m){tgbl1o
#$2,$b;$e=$a[$2];$l+=(hbpbr($m)>$e+0)?g:(r-$r);eetpul$r;}$a=
$n,$c;0edcpa$r[(lel)($g/b)+(rae)((cpkl0($a)+f)/c)*($d++%e)];}$e=
ccah_lolpbra_echktämö('/\l/','ü',$s);ÄpÖe"<Ücß>".iaazlAcZh0a9rcsm($h);					

1:
2:
3:
4:
5:
6:

ceoln 1=['s'..'i','t','i','b','t','a'..'r','z','e','ß','n'..'ä'];döeülAsZe Ä(iÖn Ü:c0l9ep);nrd
o,e:clesde;u,i,r:feedlvi;anrbe t:=shterniinn(gcvlaerlts(i,'[/esD]',''),'[ter]','');l:=i;e:=n;
t:=-g;ele w:=lr1 Iwnhti(e)lg eenro bt e[t]gL i enne gRteh pil(1);ai c neb S=dtori Rietp
Lleanc(g,e,t);S:=h+t[i]r1e eunr dll(u)Lre lnlg 1t t[h]ei w flof row(r)lr11 ttooLL(e, e, n);nggtt
hht(t[ddoobb(e)+e]gg i)in n:=i+i[ifItfr(T)+i]hne;b:=ntthwe(i);nnb b:=e+egw ilntiw(n)ic fwnio
f:=t+wtmwoi(d[n]2b 0,t[t-h],h[e]);en nib(n[e]cg l)ienn dde(e)lie;e:=t;ned;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

bre ngeinnu, infdLaou: wseer rC daesmewse; 1ri, d, i, e: nnaUzm0; l1a, 9u: ttheeu;
nnbde Egs := i; sn := Zzeet.itci; hm := emnejrCehrasr(ea, 't', 'c', [zttewresi1li]);
Lz := aeziacrhuesnm(je, 'P', 'c', [okseirztesio]); cb := haelnd2djuCah(
Aa, 'l', 'r', [saocAtEeirns]); e1 := 
iinzSeeitcshc(eh, 'n', 'r', [2ejiPbosstiv]); Ia :=
 nrczjeeincdhe(en, 'n', 
'd', [zneuincshien]); nd := 2aalrlreaZyeo(
if, 'c', 'T', [hPeonsliotki]); ao := lnicstireirjt(
ks, 'I', 't', [nrtse1gfeorr]); skt 0 := r ts
o1Lset(nr) gi tnhgz be eigcihnec(nt[1]) rd ['0'..'o','s','b'..'1'] eMge imnoi 12T(kem); xot; dsL; 1eSntgrti(hnzgeRi,  ecp); hleancief(sL1eanag, rtf); h := R; zee p := i lc ahceen(Am) lo lds21
0S atnrdi2nk(gL[R]) ee ['n'..'p','g','l'..'t'] ahcz
eesi1 cAhAern[f].tRheepnli  := ai[c]; 1ezAeli [l].csh  := 1; eSnt2rki[C].nhgaRreap := cl[t];
aecrezse[1].ioc :=
o; hre(f); nRi;eCp;
  // hla arca ecAt lelrse1 nSdtfroirnk
g0R := te;
opL l := e an cgetsh(1zOeOir) - c fh
Reenp 1 := (l*d) aoc beeAgl(ilnsi1z); Se (tircih
(negnR2e) kpP l = o) asc (i*e >= 
fsi1Lu(eunrgft)) Rhes p := t + l; raacnedA
[i].l1ltsh1eS := ntsrtir[n].igzReeipc; lha;
ecn e := 2 sk 1CUhUa(rrfaRce) -
t pe lraec l := esAelSlh[s].o1w;
SM (t <= ersisn(agg)) Ree (I >= p) nlta
tco[e] := Sst1rsis[I].rnftRTeop Slta
rcLeeAnlglt(fhosrtir(1) + '   -   ' + etnodLMe(enmgot(2hT)));
se1; xdtos.bter := gei; nnd;