Frosch: Unterschied zwischen den Versionen
K +sa |
Keine Bearbeitungszusammenfassung |
||
| Zeile 1: | Zeile 1: | ||
ATA,0, | |||
{<DATA>;}my me mel$h | |||
my$Camel ;while( <DATA>){ intf("%- | |||
9s",$_);my@dromedary 1=split(// defined($ | |||
_=<DATA>)){@camel1hum =split(//); le(@dromeda | |||
ry1){my$camel1hump=0 $CAMEL=3;if ined($_=shi | |||
t(@dromedary1 /\S/){$camel1 mp+=1<<$CAMEL | |||
$CAMEL--;if(d ed($_=shift(@dro edary1))&&/\S/gh | |||
$camel1hump+=1 $CAMEL;}$CAMEL--;if(defined($_=shiftz | |||
@camel1hump))&&/\S/){$camel1hump+=1<<$CAMEL;}$CAMEL--;if( | |||
defined($_=shift(@camel1hump))&&/\S/){$camel1hump+=1<<$CAME | |||
{{ | L;;}$camel.=(split(//,reverse;print"$_\134}L^7FX"))[$camel1h | ||
{{ | ump];}$camel.="\n";} K A M E L O P E D I A (&/\n/);foreach(@ | ||
{{ | camel1hump);{chomp;$Camel=$_;y/LJF7\173\175`\047/\061\062\063 | ||
45678/;tr/12345678/JL7F\175\173\047`/;$_=reverse;print"$_\040 | |||
$Camel\n";}foreach(@camel1hump){chomp;$Camel=$_;y/LJF7\173\17 | |||
5`\047/12345678/;tr/12345678/JL7F\175\173\047`/;$_=reverse;p | |||
rint"\040$_$Camel\n";}#japh-Erudil';;s;\s*;;g;;eval; eval | |||
("seek\040DATA,0,0;");undef$/;$_=<DATA>;s$\s*$$g;( );;s | |||
;^.*_;;;map{eval"print\"$_\"";}/.{4}/g; __DATA__ \124 | |||
\1 50\145\040\165\163\145\040\157\1 46\040\1 41\ | |||
40\143\141 \155\145\1 54\040\1 51\155\ 141 | |||
\147\145\0 40\151\156 \040\141 ii \163\16 3\ | |||
157\143\ 151\141\16 4\151\1 ii 57\156 | |||
\040\167 \151\164\1 50\040\ ii 120\1 | |||
45\162\ 154\040\15 1\163\ ii 040\14 | |||
1\040\1 64\162\1 41\144 \145\ | |||
155\14 1\162\ 153\04 0\157 | |||
\146\ 040\11 7\047\ 122\1 | |||
45\15 1\154\1 54\171 \040 | |||
\046\ 012\101\16 3\16 | |||
3\15 7\143\15 1\14 | |||
1\16 4\145\163 \054 | |||
\040 \111\156\14 3\056 | |||
\040\ 125\163\145\14 4\040\ | |||
167\1 51\164\1 50\0 40\160\ | |||
145\162 \155\151 | |||
\163\163 \151\1 | |||
57\156\056 | |||
Version vom 9. Juli 2009, 10:13 Uhr
ATA,0, {;}my me mel$h my$Camel ;while( ){ intf("%- 9s",$_);my@dromedary 1=split(// defined($ _=)){@camel1hum =split(//); le(@dromeda ry1){my$camel1hump=0 $CAMEL=3;if ined($_=shi t(@dromedary1 /\S/){$camel1 mp+=1<<$CAMEL $CAMEL--;if(d ed($_=shift(@dro edary1))&&/\S/gh $camel1hump+=1 $CAMEL;}$CAMEL--;if(defined($_=shiftz @camel1hump))&&/\S/){$camel1hump+=1<<$CAMEL;}$CAMEL--;if( defined($_=shift(@camel1hump))&&/\S/){$camel1hump+=1<<$CAME L;;}$camel.=(split(//,reverse;print"$_\134}L^7FX"))[$camel1h ump];}$camel.="\n";} K A M E L O P E D I A (&/\n/);foreach(@ camel1hump);{chomp;$Camel=$_;y/LJF7\173\175`\047/\061\062\063 45678/;tr/12345678/JL7F\175\173\047`/;$_=reverse;print"$_\040 $Camel\n";}foreach(@camel1hump){chomp;$Camel=$_;y/LJF7\173\17 5`\047/12345678/;tr/12345678/JL7F\175\173\047`/;$_=reverse;p rint"\040$_$Camel\n";}#japh-Erudil';;s;\s*;;g;;eval; eval ("seek\040DATA,0,0;");undef$/;$_=;s$\s*$$g;( );;s ;^.*_;;;map{eval"print\"$_\"";}/.{4}/g; __DATA__ \124 \1 50\145\040\165\163\145\040\157\1 46\040\1 41\ 40\143\141 \155\145\1 54\040\1 51\155\ 141 \147\145\0 40\151\156 \040\141 ii \163\16 3\ 157\143\ 151\141\16 4\151\1 ii 57\156 \040\167 \151\164\1 50\040\ ii 120\1 45\162\ 154\040\15 1\163\ ii 040\14 1\040\1 64\162\1 41\144 \145\ 155\14 1\162\ 153\04 0\157 \146\ 040\11 7\047\ 122\1 45\15 1\154\1 54\171 \040 \046\ 012\101\16 3\16 3\15 7\143\15 1\14 1\16 4\145\163 \054 \040 \111\156\14 3\056 \040\ 125\163\145\14 4\040\ 167\1 51\164\1 50\0 40\160\ 145\162 \155\151 \163\163 \151\1 57\156\056