[Allegro] alle ergebnismengen löschen

[Bernhard Eversberg]

Heinrich Allers schrieb:
> 
> 
> var "51"\ins #uxy     // mehr als 50 Ergebnismengen kann es, laut Kommentar zu 
>    // 'SetMax=' in der INI-Datei, nicht geben
> :anfang\var #uxy\=\-1\var Z\ins #uxy
> var "s" #uxy\find\clos res\var #uxy\if >2 jump anfang
> 
Schnell mal eben getestet, geht.
Von der Idee her sollte es gehen. Ein gänzlich anderer Programmierstil,
durchaus eigenwillig, zwar, aber sowas ist ja in jeder Sprache möglich,
ob Programmiersprache oder sonstwas.
Allerdings geht's noch knapper:


var q\var (b"/")\z=
:anfang\z-1\var "s" z\find\clos res\var z\if >2 jump anfang

Das kleine z ist effizienter als das große, weil es eine ganzzahlige
Variable ist. Spielt aber nicht wirklich eine Rolle, nur falls man
Perfektionist ist und einen total ausgeknautschten Algorithmus will.
Oder falls das Z anderweitig im Einsatz ist.

B.E.