SETL

SETL (Set Language, engl. für Mengensprache) ist eine höhere Programmiersprache die auf der Mengenlehre der Mathematik aufbaut. Sie wurde 1969/70 von Jack T. Schwartz am Courant Institute of Mathematical Sciences of New York University entwickelt.

Als fundamentale Datentypen kennt SETL Integer, Real, String, Boolean und den Nullwert Omega (om). Es gibt keine starke Typisierung, der Datentyp einer Variable wird je nach zugewiesenem Inhalt angepasst. Des Weiteren verfügt SETL über automatische Speicherbereinigung.

SETL kennt zwei Datenstrukturen, das unsortierte set (engl. Menge) und das tuple (engl. Tupel) als geordnete Folge von Elementen. Ein set weist die Besonderheit auf, dass in ihm kein Wert doppelt vorkommt, bei einem tuple ist dies jedoch gestattet. Bis auf diese Einschränkung ist der Inhalt von einem set oder einem tuple beliebig, sie können auch weitere sets und tuples beinhalten. Ein Sonderfall ist die map (kurz für mapping, engl. Abbildung). Sie ist eine Menge von geordneten Paaren und besteht aus tuples der Länge 2.

Des Weiteren stellt SETL do-while-Schleifen, if-then-else- und case-Anweisungen zur Verfügung. Auch gibt es spezialisierte Schleifen zum Durchlaufen von tuples und sets.

Von Hause aus kennt SETL zahlreiche Operatoren für die Grundrechenarten, sowie trigonometrische und andere mathematische Aufgaben. Des Weiteren besitzt SETL spezielle Operatoren zum Arbeiten mit Mengen und Zeichenketten. Außerdem kann man eigene Operatoren festlegen.

Implementierung

Aufgrund der jahrelangen Zusammenarbeit der New York University und Wissenschaftlern aus Nowosibirsk, wurde SETL nicht nur auf Rechnern der amerikanischen Firma Burrough, sondern auch auf russischen Rechnern vom Typ BESM-6 und ES EVM implementiert. Mittlerweile gibt es auch verschiedene Implementierungen für alle gängigen Betriebssysteme.

Beispielquelltext

Zwei Beispiele zum Ausgeben aller Primzahlen von 2 bis n. Besonders am zweiten Beispiel lässt sich erkennen, dass die Sprache auf der Mengenlehre aufbaut.

program primzahlen;
  $ Dieses Programm gibt alle Primzahlen aus, die kleiner als der eingelesene Parameter sind
  read(n);              $lese Parameter ein
  primes := { };        $Menge der ausgegebenen Primzahlen
  p := 2;               $erste Primzahl festlegen
  $ Schleife um weitere Primzahlen zu ermitteln
  loop while p < n do   $ Wiederhole solange p kleiner als n ist
    if notexists t in primes | p mod t = 0 then
      print(p);         $keine der bisherig ermittelten Primzahlen ist Teiler von p, also gib die Primzahl aus
      primes with := p; $Füge sie zur Menge der ausgegebenen Primzahlen hinzu
    end if;
    p := p + 1;         $Zu testende Zahl um eins erhöhen
  end loop;
end program primzahlen;

program primzahlen2;
  read(n);
  print({p in {2..n} | forall t in {2..p - 1} | p mod t > 0});
  $Gib die Menge aller Zahlen p aus der Menge 2 bis n aus, für die gilt,
  $dass p sich durch keine der Zahlen der Menge 2 bis p-1 glatt teilen lässt
 end program primzahlen2;

SETL

Implementierung

Beispielquelltext

Weblinks