Egy feladvány eszpeenek, mi nem jöttünk rá mit csinál…
9gag:
Ó, köszönöm, ez kedves! Nézzük csak!
Prettyprinter.de alapján a kód olvashatóbban:
#!/usr/bin/perl -w use strict;
my$f= $[;
my $ch=0;
sub l
{
length
}
sub r
{
join”“, reverse split (“”,$_[$[])
}
sub ss
{
substr($_[0] ,$_[1],$_[2])
}
sub be
{
$_=$_[0];
p (ss($_,$f,1));
$f+=l()/2;
$f%=l ();
$f++if$ch%2;
$ch++
}
my$q=r (“\ntfgpfdfal,thg?bngbj”. ”naxfcixz”);
$_=$q;
$q=~ tr/f[a-z]/ [l-za-k] /;
my@ever=1..&l ;
my$mine=$q ;
sub p
{
print @_;
}
be $mine for @ever
Innen már egyszerűbb, a $q-ban levő stringen csinál karakterelcsúsztatást meg visszafele olvasást. Azt írja ki egyébként, bár gondolom kipróbáltátok, hogy “kristen, will you marry me?”.
A szép oldala a történetnek, hogy ez egy valódi proposal volt még 2004-ben, és persze igent mondott a hölgy rá.
Perl ftw!
Ooh. Geeky..but cute. :)
9gag: Proposal by a geek
this is so cute
ga ngerti bacanya XD
Nem lennék a gyerekek helyében.
Ó, köszönöm, ez kedves! Nézzük csak! Prettyprinter.de alapján a kód olvashatóbban:...Innen...
that’s one perler of