Replica a number

[robmio]

(02-08-2022 11:34 AM)Tyann Wrote:  Bonjour
Ces 2 solutions parcourent toute la liste des valeurs, sur de grandes listes où il y a peu de valeurs à remplacer cela peut prendre du temps inutilement.
Il y a une autre solution qui consiste à rechercher les valeurs à remplacer puis à arrêter quand il n'y on a plus.
A tester !

Hello
These 2 solutions go through the whole list of values, on big lists where there are few values to replace it can take time unnecessarily.
There is another solution which consists in searching for the values to replace and then stop when there are no more.
To be tested!

Code:


EXPORT LCHG(l,a,n)
//Liste,élément,élément
BEGIN
LOCAL i;
REPEAT 
 i:=POS(l,a);
 IF i THEN
  l(i):=n;
 END;
UNTIL i==0;
l;
END;

Excellent "code": very fast.