thodg

Stevey's Google Platforms Rant

I was at Amazon for about six and a half years, and now I've been at Google for that long. One thing that struck me immediately about the two companies -- an impression that has been reinforced almost daily -- is that Amazon does everything wrong, and Google does everything right. Sure, it's a sweeping generalization, but a surprisingly accurate one. It's pretty crazy. There are probably a hundred or even two hundred different ways you can compare the two companies, and Google is superior in all but three of them, if I recall correctly. I actually did a spreadsheet at one point but Legal wouldn't let me show it to anyone, even though recruiting loved it.

I mean, just to give you a very brief taste: Amazon's recruiting process is fundamentally flawed by having teams hire for themselves, so their hiring bar is incredibly inconsistent across teams, despite various efforts they've made to level it out. And their operations are a mess; they don't real

thodg

#!/usr/bin/perl



use Mysql;
use strict;
use vars qw($school_name);
use vars qw($pass);

require "./cgi-lib.pl";

thodg

In August 2007 a hacker found a way to expose the PHP source code on facebook.com. He retrieved two files and then emailed them to me, and I wrote about the issue:

http://techcrunch.com/2007/08/11/facebook-source-code-leaked/

It became a big deal:

http://www.techmeme.com/070812/p1#a070812p1

The two files are index.php (the homepage) and search.php (the search page)

thodg

Keybase proof

I hereby claim:

• I am thodg on github.
• I am thodg (https://keybase.io/thodg) on keybase.
• I have a public key ASBIvkgv-EbF-HYI4dGit6kFLV5n_aSTVWam0WDRJe-YbQo

To claim this, I am signing this object:

thodg

(defun prefix-symbol (&rest strings)
  (intern (apply 'concatenate 'string (mapcar 'string strings))))


(defmacro with (object (&rest slots) &body body)
  (declare (type symbol object))
  `(symbol-macrolet
       ,(loop for slot in slots
           collect (list (prefix-symbol object "." slot)
                         `(slot-value ,object ',slot)))