Discussion :

[PhilLU]

Bonjour,
Je cherche à utiliser les fonctions + et * sur des set of mais le set of string n'existe pas.
Cette possibilité existe bien dans python.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
a = [1,2,3,4,"B"]
b = [2, "B"]
sa = set(a)
sb = set(b)
c = sa.intersection(sb)

Y a t'il une alternative?
Merci d'avance,
Phil

[tourlourou]

Bonjour,
Sur des chaînes ou des caractères ? Si caractères, sur un seul octet ? Si oui, ensembles de Byte en prenant leur code ASCII.
Sinon, je ne vois pas comment faire, surtout si sont mélangées des données de types différents dans l'ensemble.

[EDIT] si a = [1,2,"B"] crée en Python une chaîne de caractères de codes ASCII 1, 2 et Ord('B'), on peut mettre ces codes dans un ensemble en Pascal.

[Cirec]

Bonjour,

en Delphi tu peux faire ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
type
  TA = (s1, s2, s3, s4, sB = ord('B'));
 //TA = (s1=1,s2=2,s3=3,s4=4,sB = ord('B'));
 
procedure TForm1.Button1Click(Sender: TObject);
var
  st1          : set of TA;
  st2          : set of TA;
begin
  st1 := [s1, s2, s4, sb];
  st2 := [s2, sb];
  if st1 * st2 = [s2, sb] then
    Caption := 'Ok';
end;

Cordialement,
@+

[Roland Chastain]

Bonjour ! Je ne comprends pas le titre de la discussion. Normalement ça devrait être "intersection entre deux ensembles de chaînes", non ?

Qu'est-ce que vous voulez faire exactement ?

[PhilLU]

Merci pour vos réponses ;-)
J'ai en fait deux ensemble de mots dont je dois détecter les mots semblables.
Exemple: ensemble 1: lapin, chien, oiseau
Ensemble 2: rat, chien, cheval
L'intersection retournée doit être chien
L'union doit être lapin, chien, oiseau, rat, cheval
Merci pour vos idées,
Phil

[Roland Chastain]

Vous pourriez utiliser le type TStringList en guise de type ensemble, et écrire les fonctions dont vous avez besoin, quelque chose comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
  System.SysUtils, System.Classes;
 
function Appartient(const aChaine: string; const aListe: TStringList): boolean;
begin
  result := aListe.IndexOf(aChaine) >= 0;
end;
 
function Intersection(const aListe1, aListe2: TStringList): TStringList;
var
  i: integer;
begin
  result := TStringList.Create;
  for i := 0 to Pred(aListe1.Count) do
    if Appartient(aListe1[i], aListe2) then
      result.Append(aListe1[i]);
end;
 
function Union(const aList1, aList2: TStringList): TStringList;
begin
 
end;
 
var
  vListe1, vListe2, vListe3: TStringList;
begin
  try
    vListe1 := TStringList.Create;
    vListe2 := TStringList.Create;
 
    vListe1.Append('lapin');
    vListe1.Append('chien');
    vListe1.Append('oiseau');
 
    vListe2.Append('rat');
    vListe2.Append('chien');
    vListe2.Append('cheval');
 
    vListe3 := Intersection(vListe1, vListe2);
 
    WriteLn(Appartient('lapin', vListe3)); // FALSE
    WriteLn(Appartient('chien', vListe3)); // TRUE
 
    vListe1.Free;
    vListe2.Free;
    vListe3.Free;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
 
  ReadLn;
end.