Chose your co-programmer.

From these stereotypes:

1:
Languages by experience: Bash, Python, Ruby, Perl, Haskell
Languages by love: Haskell, OCaml, Erlang, Scala, "Lisp"
Has written: Automated testing software, eStores, social network data mining software.
Favorite programs: Git, BSD, Vim, Sublime text, Twitter
Hates: Object oriented programming.
University grades: Completely average.

2:
Languages by experience: Java, C++, Smalltalk, Common Lisp, Forth
Language by love: Common Lisp, Forth, Smalltalk, Java
Has written: Equipment calibration, educational software, traffic control systems, signal processing and visualization
Favorite programs: Codewarrior, IntelliJ, Emacs, Zmacs, Macsyma, Mirai, Genera, Squeak, Mathematica, ACL2, Qemu, GNU Electric
Hates: UNIX
University grades: Very high, but two random fails.

3:
Languages by experience: C++, C#, x86, VB.NET, Delphi
Languages by love: Delphi, C#, x86, VB.NET, C++
Has written: Antivirus software, Serious Sam, natural language processing software
Favorite programs: Hiew, Visual studio, WinDbg, Borland Turbo Pascal, PIX, Windows 2000, FreeDOS.
Hates: Excessive use of libraries.
University grades: terrible.

>>30

Why not?

CL-USER> (defparameter *languages* nil)
*LANGUAGES*

CL-USER> (setf (get 'java 'experience) 8)
8

CL-USER> (setf (get 'java 'love) -1)
-1

CL-USER> (push 'java *languages*)
(JAVA)

CL-USER> (setf (get 'c++ 'experience) 7)
7

CL-USER> (setf (get 'c++ 'love) -4)
-4

CL-USER> (push 'c++ *languages*)
(C++ JAVA)

CL-USER> (setf (get 'smalltalk 'experience) 5)
5

CL-USER> (setf (get 'smalltalk 'love) 5)
5

CL-USER> (push 'smalltalk *languages*)
(SMALLTALK C++ JAVA)

CL-USER> (setf (get 'common-lisp 'experience) 4)
4

CL-USER> (setf (get 'common-lisp 'love) 10)
10

CL-USER> (push 'common-lisp *languages*)
(COMMON-LISP SMALLTALK C++ JAVA)

CL-USER> (setf (get 'forth 'experience) 3)
3

CL-USER> (setf (get 'forth 'love) 6)
6

CL-USER> (push 'forth *languages*)
(FORTH COMMON-LISP SMALLTALK C++ JAVA)

;; Even though Java has a negative love value, we can still
;; sort it :)
CL-USER> (sort *languages* #'> :key (lambda (language) (get language 'love)))
(COMMON-LISP FORTH SMALLTALK JAVA C++)

CL-USER> (sort *languages* #'> :key (lambda (language)
(get language 'experience)))
(JAVA C++ SMALLTALK COMMON-LISP FORTH)