cadix:

Egy feladvány eszpeenek, mi nem jöttünk rá mit csinál…

9gag:

Proposal by a geek

Ó, 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!