The Shortest Universal Turing Machine Implementation Contest

Uniquement réservé aux geeks ;-D
#include
#define Z atoi(b[a++])
int main(int a,char**b){
int c=a=1,d=0,e=2;
char*f,*g=0,*h,*i=0;
while(c){if(i<=g|i>=g+e)f=g,g=(char*)calloc(e,2),i=f?(memcpy(g+e/2,f,e),i-f+e/2+g):g+e,h=f?h-f+e/2+g:i,e*=2;
a=Z-c|Z-*i%2?a+3:(c=Z,*i=Z|48,i+=Z,h-=i

Et ceux qui ont Mathematica (lien wikipedia) seront aussi intéressé par ça

Un "gros" player Mathematica gratuit (de 80 Mo pour windows à 150 Mo pour Linux) permet d'accéder aux démonstrations interactives du Wolfram demonstration project