Sælir félagar!
Ekkert hefur gerst á listanum lengi, en það er ekki málið...
Ég var að rekast á alveg snilldar orð: síglæðingarhnappur. Það er
víst einhver afkáraleg þýðing á orðinu "reload" eða "refresh"... flott, ehh?
Smári.
#!/usr/bin/perl -w ##############################
$copy="reverse(\"SU OT GNOLEB ERA ESAB RUOY LLA";
$pi=3.1415927654321165;$d=0;$_="Polypoid";$_=lc;;
s/p/m/g;s/y/ri /;s/ m/ Mc/;s/lr/ár/;s/(m)o/s$1/;;
$_=ucfirst;$n="NaCl";s/ / PFJK/;s/K/á /;s/F./ál/;
s/(l)(á)/$1$1/;$s="spm";/(oid)/;$a=unpack("B*",$1
);s/oid/$a/;s/01101/car/;s/c(ar)/C$1/;s/11/thy/g;
s/10/\npt/g;s/0/.is/g;s/tth/$n/g;$f=6951386;#RTFS
s/($n)y/\@$1/;s/y\.is*/Fall.$n.is/;s/F/son/;#LART
s/pt\.is/$f/i;s/p/$s/g;s/$s$n/sea/;s/$n/salt/g;;;
s/.*\.is$//;s/\.is$/\/~$s/;while($d++<($f/(4096##
*16))/$pi-5){$_.="-";$_="-".$_;}$_.="\n";s/(S)()/
$1/g;print;$se=eval("$copy\");");print("$se\n");;
