J is an interesting language

quicksort=: (($:@(<#[) , (=#[) , $:@(>#[)) ({~ ?@#)) ^: (1<#)

>>4
It's actually quite popular... in the circles where APL is used :X

I'm thinking of learning it, it appears to be the ultimate language for algorithms and number crunching and stuff.