Quelle  1.5.4   Sprache: unbekannt

file:=HapFile("bing.txt");
Read(file);
Print(CriticalCells(BingsHouse),"\n");
Print(NonRegularCWBoundary(BingsHouse,1,95),"\n");
Print(NonRegularCWBoundary(BingsHouse,2,1),"\n");

[ Dauer der Verarbeitung: 0.13 Sekunden  (vorverarbeitet)  ]