ZB>Вот еще одна строка на одном языке:
ZB>

n[i]=(Z-=(n[i++]=(Z-=(n[i++]=(Z-=(n[i++]=(Z-=(n[i++]=(Z-=(n[i++]=Z/I)*I)/J)*J)/K)*K)/L)*L)/Y)*Y);

Кхм.

1. "Найти 10001е простое число". Решается на языке K (kx.com) вот так:

({:[x<4;,2;r,1_&{@[x#1;y*!:'-_-x%y;:;0]}[x]r:_f@-_-_sqrt x]}@_1e6)10000

2. "Find the sum of all the even terms in the Fibonacci sequence below one million."

На том же языке

+/f@&~(f1e6>+/-2#){x,+/-2#x}/1)!2

или на J

fib=: {."1@(]`(({: , +/)@])@.(> {^<_))&1 2 +/ (#~ -.@(2&|)) fib 1e6

3. "Calculate the sum of all the primes below one million."

На J

1000000([:+/[:x:]#~>)p:i.100000

или

+/ i.@x:&.(p:^:_1) 1e6

4. "Find the sum of the digits in the number 100!"

на J

+/((#":!100x)#10)#:!100x

Все еще будете продолжать меряться у кого что короче?