Syntaxe : Rotation à droite ou à gauche

[djes]

Aaahhh Jester ... un des mes zikos préférés

[Crashdisk]

Bonjour,
comme je cherchais une fonction de rotation à droite et que je ne l'ai pas trouvé ici, je vous propose la mienne:

Code : Tout sélectionner

Procedure.a Ror(valeur.a)
  ProcedureReturn ((valeur >> 1) & %01111111) + ((valeur << 7) & %10000000)
EndProcedure

Si vous avez d'autre approche, je suis preneur.