Frosch: Unterschied zwischen den Versionen
K (+sa) |
|||
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