Jusqu'à ce que le bug nous déchire: comment les geeks font une offre



, 29 , . , . « » — , .

, , . , , ( , ) «». !


, Facebook, , , …



, ( «ILOVENIVEK»), . , , : YES NO. , , , .


Perl . , PerlMonks. , : «Kristen, will you marry me?». .

#!/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 

. : .


, , . Bejeweled. , , , , «Marry me!».



, . - BioWare, Minecraft, — :



Minecraft :



, Borderlands. , , . , - . . , Gearbox, Borderlands, . , , :




, , . . , LEGO .





Futurama , … . , .



— , . . , , .





- -, , « : », . ( 3) .



, . — . : , :





P.S. , , :



, :



, ?

Source: https://habr.com/ru/post/fr384319/


All Articles