#!/usr/bin/perl
-w
# neverending search for the highest number
# created for the future
print
"content-type: text/html\n\n";
for ( $a=int(rand 1000000); $a>0;
$b=$a*$a+$b ) {
print "<font face=courier>$a\n$b\n";
}
ueber
diesen URL kann das Programm ausgefuehrt werden http://content-type.trashconnection.com
*
"Keine Rechenmaschine könnte das Programm beenden [...]. Die
erste zufällig generierte Zahl, eine von einer Million, gilt als Auslöser
der unendlichen Kette.", die z.B. zur Fehlermeldung"Nicht genügend
Arbeitspeicher vorhanden" führt.
Medialitaet der Maschine, die
Maschinalitaet des Mediums
_____
* trashconnection.com ist ein Projekt
von Roman Minaev.