Quelle  1.4.2   Sprache: unbekannt

file:=HapFile("bing.txt");
Read(file);
BingsHouse;
BingsModifiedHouse;
Print(Size(BingsHouse),"\n");
Print(Size(BingsModifiedHouse),"\n");
Print(Size(ContractedComplex(BingsModifiedHouse)),"\n");
Print(Size(ContractedComplex(BingsHouse)),"\n");

[ Dauer der Verarbeitung: 0.26 Sekunden  (vorverarbeitet)  ]