torsdag 30 december 2010

Facebook Engineering Puzzles

Glatt noterar jag att FB har publicerat programmeringsutmaningar och att man får använda Perl. Eftersom jag var bra på Perl för så där 15 år sedan kastar jag mig snabbt in i leken. Första utmaningen, vart jag ska skicka svaren, löses naturligtvis lämpligen även det i Perl:

  #!/usr/bin/perl
  my $i = 0xFACEB00C;
  my $j = $i>>2;
  printf "%x %d %b\n", $i, $i, $i;
  printf "%x %d %032b\n", $j, $j, $j;