Vegard Hanssens hjemmeside

Navnet mitt

Hvis du ikke har fått med deg navnet mitt ennå så kan du bare kjøre dette programmet:

#!/usr/bin/perl
@l=(132,4,107,111,723,7,5843,930,5571,981,129,107,19);$d=657;$s=57689;
$t="1"x$s;for$i(2..sqrt($s)){if(substr($t,$i-1,1)==1){for
($y=$i*2;$y<=$s;$y+=$i){substr($t,$y-1,1,"0");}}}for(@l){$p.=
&S($_);}for($i=0;$i<length($p);$i+=3){$t=substr($p,$i,3)-$d;print chr($t);}
sub S{($q)=@_;$c=0;for($i=2;$i<=length($t);$i++){if(substr($t,$i-1,1)==1)
{$c++;if($c==$q){return$i;}}}}

Programmet er selvforklarende. Du kan jo alltids prøve å bytte ut @l-linjen med denne linjen:

@l=(2,96,119,122,112,4,23,117,412,2,2,119,132,132,119,1003,6,119,27,132,4,3);$d=264;$s=7937;

og se hva som skjer da.

For de som bare er interessert i fornavnet kan de kjøre dette programmet:

#!/usr/bin/perl ----
$/=';'.''.'' ;open $f,$0;$_=0;while(<$f>){$_=length;&V($_)};
sub V{print chr($_[0]>26?$_[0]-36:$_[0]+92)}

Burde også være selvforklarende.