Liste nach Größe der Einträge sortieren

Wie so oft muss man die Frage nur stellen, um selber zur Lösung zu kommen.

+PROG TEMPLATE urs:2
KOPF Minimum bestimmen
DEL#MIN
DEL#SUMME
DEL#lidurcheinander

LOOP#a 300
LET#lidurcheinander(#a) RANDOM(1)
ENDLOOP
prt#lidurcheinander

$STO#lidurcheinander 19,13,16,15
LOOP#a lidurcheinander
LET#nli #a+1
ENDLOOP
LOOP#c lidurcheinander
LET#MIN #lidurcheinander(0)
LOOP#a #nli-1 $ (#lidrcheinander-1)
LET#MIN MIN(#MIN,#lidurcheinander(1+#a))
ENDLOOP
prt#min
LOOP#a lidurcheinander
IF #lidurcheinander(#a) == #MIN
LET#INDEX #a
ENDIF
ENDLOOP
prt#index
LET#liordered(#c) #lidurcheinander(#INDEX)
LET#lidurcheinander(#INDEX) 200 $ Winkelliste hat Werte zwischen 0-180, Wert ist auf keinen Fall das Minimum, Löschen des Eintrags geht nicht, da ein LOOP über die Liste geschrieben ist
ENDLOOP
prt#liordered
ENDE

Hiermit funktioniert es problemlos. Das bestimmen den Minimums habe ich über den MIN-Befehl abkürzen können, so war die Verschachtelung nicht notwendig. Vielleicht hilft es ja jemandem weiter. :blush:

Viele Grüße
Kai

1 Like