iScript.fr : Les fonctions

Trier une liste de valeurs.
Imaginons qu'on veuille trier une liste de valeurs numériques. C'est-à-dire que nous avons une liste comme ceci : {5, 3, 4, 0, 1} et que nous voulons obtenir cette même liste mais triée du plus petit au plus grand et obtenir ainsi {0,1, 3, 4, 5}. AppleScript n'a pas à ma connaissance de fonction de tri des listes. Voici donc une fonction qui effectue ce tri.

Fonction 1 : Récupérez l'AppleScript ici.

Le Script :

on moins1(une_liste, numero)
if (numero = 1) then return rest of une_liste
if (numero = (length of une_liste)) then
return reverse of (rest of (reverse of une_liste))
else
set part1 to items 1 thru (numero - 1) of une_liste
set part2 to items (numero + 1) thru -1 of une_liste
return (part1 & part2)
end if
end moins1

on tri(param_liste)
set liste_triee to {}
repeat until (length of param_liste = 1)
set i to 1
set j to 2
set n to length of param_liste
repeat until (j > n)
if ((item i of param_liste) > (item j of param_liste)) then
set i to j
set j to j + 1
else
set j to j + 1
end if
end repeat
set liste_triee to liste_triee & item i of param_liste
set param_liste to moins1(param_liste, i)
end repeat
return liste_triee & param_liste
end tri

Explications :
Le script se compose de deux fonctions : tri et moins1. La fonction moins1 a 2 paramètres : une liste et un nombre. Elle a pour but de retirer le n-ième éléments de la liste. L'autre fonction, quant à elle, compare les éléments de la liste deux à deux. Lorqu'elle a trouvé le plus petit, elle retire ce plus petit de la liste et recommence jusqu'à ce que la liste ne contienne plus qu'un seul élément.

Astuces :
• si vous voulez la liste triée que le sens décroissant, il suffira d'utiliser la fonction "reverse of nom_de_la_liste".
• cette fonction triera aussi bien une liste de valeurs numériques qu'une liste de valeur d'alphabétiques ou alphanumériques.