Mehrfacheinträge in einer Liste löschen

[Raimo]

ich habe eine liste z.B.

{1,2,3,1,7,5,3,2,1,4,5,1,4,2,5,9,5}

und jetzt möchte ich alle einträge die doppelt sind löschen

also, soll die list anschliessen nur noch

{1,2,3,7,5,4,9}

beinhalten.


wie mache ich das am besten?

ich habe schon eine lösung, aber die ist sehr langsam und nicht gerade effizient, wegen doppel-repeat und daher unnötig vielmal die liste durch gearbeitet wird.

[Snow]

Eine einzige Schleife genügt.
Damit einfach alle Listeneinträge, die in einer neuen Liste noch nicht vorhanden sind, dort eintragen.

set meineListe to {1, 2, 3, 1, 7, 5, 3, 2, 1, 4, 5, 1, 4, 2, 5, 9, 5}
set neueListe to {}

repeat with i from 1 to (count of meineListe) in meineListe
set einEintrag to item i of meineListe
if einEintrag is not in neueListe then
set the end of neueListe to einEintrag
end if
end repeat

return neueListe
_________________
Peter
-
Fischer-Bayern.de|Shadetreemicro.com

[Raimo]

ich trottel

set A to {"113", "114", "115", "116", "117", "118", "119", "120", "121", "122", "123", "124", "125", "126", "127", "128", "129", "130", "131", "132", "133", "134", "135", "136", "137", "138", "139", "140", "141", "142", "143", "144", "145", "146", "147", "148", "149", "150", "151", "152", "153", "154", "155", "12", "116", "117", "118", "119", "120", "121", "122", "123", "124", "125", "126", "127", "128", "129", "130", "131", "132", "133", "134", "135", "136", "137", "138", "139", "140", "141", "142", "143", "144", "145", "146", "147", "148", "149", "150", "116", "117", "118", "119", "120", "121", "122", "123", "124", "125", "126", "127", "128", "129", "130", "131", "132", "133", "134", "135", "136", "137", "138", "139", "140", "141", "142", "143", "144", "145", "146", "147", "148", "141", "141", "141", "141", "141", "141", "141", "141", "141", "141", "141", "149", "150"}
set B to {}


repeat with einA in A
if B does not contain einA then set B to B & einA
end repeat

ist das so auch richitg? oder?

[Snow]

[Raimo]

  return (QuickSort(ListeKleiner) & ListeGleich & QuickSort(ListeGroesser))

rekursiv
, oder?

[Snow]