http://testpyramido.uni-guehlen.de/w/api.php?action=feedcontributions&feedformat=atom&user=Echoray
Kamelopedia - Kamelbeiträge [de]
2026-05-02T02:40:39Z
Kamelbeiträge
MediaWiki 1.35.5
http://testpyramido.uni-guehlen.de/w/index.php?title=ASCII_Dromedar&diff=476
ASCII Dromedar
2004-04-09T23:22:20Z
<p>Echoray: </p>
<hr />
<div><nowiki>#!/usr/bin/perl</nowiki> -w # [[dromedar]] code<br />
<br />
use strict;<br />
<br />
$_='ev<br />
al("seek\040D<br />
ATA,0, 0;");foreach(1..3)<br />
{<DATA>;}my @camel1hump;my$camel;<br />
my$Camel ;while( <DATA>){$_=sprintf("%-6<br />
9s",$_);my@dromedary 1=split(//);if(defined($<br />
_=<DATA>)){@camel1hum p=split(//);}while(@dromeda<br />
ry1){my$camel1hump=0 ;my$CAMEL=3;if(defined($_=shif<br />
t(@dromedary1 ))&&/\S/){$camel1hump+=1<<$CAMEL;}<br />
$CAMEL--;if(d efined($_=shift(@dromedary1))&&/\S/){<br />
$camel1hump+=1 <<$CAMEL;}$CAMEL--;if(defined($_=shift(<br />
@camel1hump))&&/\S/){$camel1hump+=1<<$CAMEL;}$CAMEL--;if(<br />
defined($_=shift(@camel1hump))&&/\S/){$camel1hump+=1<<$CAME<br />
L;;}$camel.=(split(//,"\040..m`{/J\047\134}L^7FX"))[$camel1h<br />
ump];}$camel.="\n";}@camel1hump=split(/\n/,$camel);foreach(@<br />
camel1hump){chomp;$Camel=$_;y/LJF7\173\175`\047/\061\062\063\<br />
064\065\066\067\070/;y/12345678/JL7F\175\173\047`/;$_=reverse;<br />
print"$_\040$Camel\n";}foreach(@camel1hump){chomp;$Camel=$_;y<br />
/LJF7\173\175`\047/12345678/;y/12345678/JL7F\175\173\0 47`/;<br />
$_=reverse;print"\040$_$Camel\n";}';;s/\s*//g;;eval; eval<br />
("seek\040DATA,0,0;");undef$/;$_=<DATA>;s/\s*//g;( );;s<br />
;^.*_;;;map{eval"print\"$_\"";}/.{4}/g; __DATA__ \124<br />
\1 50\145\040\165\163\145\040\157\1 46\040\1 41\0<br />
40\143\141 \155\145\1 54\040\1 51\155\ 141<br />
\147\145\0 40\151\156 \040\141 \163\16 3\<br />
157\143\ 151\141\16 4\151\1 57\156<br />
\040\167 \151\164\1 50\040\ 120\1<br />
45\162\ 154\040\15 1\163\ 040\14<br />
1\040\1 64\162\1 41\144 \145\<br />
155\14 1\162\ 153\04 0\157<br />
\146\ 040\11 7\047\ 122\1<br />
45\15 1\154\1 54\171 \040<br />
\046\ 012\101\16 3\16<br />
3\15 7\143\15 1\14<br />
1\16 4\145\163 \054<br />
\040 \111\156\14 3\056<br />
\040\ 125\163\145\14 4\040\<br />
167\1 51\164\1 50\0 40\160\<br />
145\162 \155\151<br />
\163\163 \151\1<br />
57\156\056</div>
Echoray