Hallo zusammen,
bei der Recherche zu etwas ganz Anderem bin ich auf folgenden Einzeiler
Code
procedure main();every write(!(p := 1, a := [2])| 1(|(p +:= 2), not(p % !a = 0), put(a, p)), "\t[", *a, "]") \1000;end
der Programmiersprache Icon gestoßen, der die ersten 1000 Primzahlen in Bruchteilen einer Sekunde berechnet und ausgibt.
Beste Grüße
Andreas