51 routines :

*AppleScriptsVanilla*
ascii_to_HTML
Average
Calculator
Calendar
Count_item
cut_text
days_week
EAN13
Encrypt-Decrypt
FactPremier
French_Vanilla_Dotted_Date
French_Vanilla_Dotted_Date2
Hexa_to_Bin
Last_month
list_erase
list_insert
list_replace
ListeDiviseurs
ListePremiers
Minuscule
NombreLong
NombreLong2
NomExtension
num_item
num_month
num_month2
num_week
number_format
number_format2
Paques
PGCD
PGCD2
reverse_string
Roman_to_Arab
round_decimal
search_email
search_replace
search_URL
SepNbre
SepNbre2
snip_text
stat
TauxPermut
TauxTransform
the_left
the_right
TriBulle
TriLineaire
week_and_year
XOR
ZeroDouble

XOR

Syntaxe

XOR(x,y)
Réunion logique exclusive de x et de y. Le résultat ne vaut 1 que si les bits de même rang des 2 opérandes sont différents. Les paramètres sont des nombres binaires au format nombre, le resultat est au format texte.

Exemple

XOR(1010000, 1010100)
---> "0000100"

Script

on XOR(x, y)
set {x, y, z} to {x as string, y as string, ""}
repeat with i from 1 to the length of x
if character i of x = character i of y then
set z to z & 0
else
set z to z & 1
end if
end repeat
return z
end XOR

Site scripté avec HyperCard ©1987-1998 Apple Computer, Inc.
Mise à jour le 19/01/10 à 08:45:57