Discussion :

[OutOfRange]

Bonjour
Supposons un type ensemble défini comme suit

Code :

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

1
2
type
  TMonEnsemble = set of integer;

On peut ajouter des nouveaux éléments contenus dans une variable de même type

Code :

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

1
2
3
4
5
6
procedure AjouterElement(n:integer);
var
  MonEnsemble:TMonEnsemble;
begin
  MonEnsemble:=MonEnsemble+[n];
end;

Par contre, comment faire pour récupérer les éléments de type integer contenus dans MonEnsemble
Par exemple si j'ai

Code :

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

MonEnsemble:=[6]

Comment récupérer la valeur entière 6 dans une valiable de type integer

[mick605]

Salut !

Tu ferais pas, par hasard, le défi sudoku ?? J'ai eu le meme probleme. Alors je me suis fait une petite fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function PremierElement(Ensemble : TMonEnsemble) :integer;
var Trouve : boolean;
begin
  Result:=1;
  Trouve:=false;
  while (Result<ValeurMaxdetonSet) and not(Trouve) do
  begin
    if Result in Ensemble then
        Trouve:=True;
    inc(Result);
  end;
  if not(Trouve) then Result:=0
                      else Result:=Result-1;
end;

Mais je vais surement l'ameliorer, parce que la ...

Je ne sais pas si il existe un truc déja tout fait ...
Le truc, en fait, c'est que tu peux savoir si un élément est dans ton ensemble grace a "if Element in Ensemble then"

[OutOfRange]

Salut mick605

Tu ferais pas, par hasard, le défi sudoku ??

Damned! je suis fait!
Effectivement, il est toujours possible de tester le contenu avec l'opérateur in
Mais bon, s'il y avait une soluce moins "bourrin"
Merci pour ton aide

[rsc]

En fait, tu ne peux pas "parcourir" ton ensemble, et donc déterminer quels sont ses éléments. Tu peux juste vérifier si un élément en fait partie, par

Code :

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

if Element in Ensemble

. C'est logique, c'est la même chose en math
[mick065] Le nom de ta fonction est trompeur : un ensemble n'a pas de premier élément.

Du coup, si les éléments de ton ensemble sont pris dans un ensemble de petite taille, et "ordonnable" (par ex 0 à 9 pour le Sudoku) ça peut jouer. Mais généralement il vaut mieux te rabattre sur un type tableau.

[OutOfRange]

Salut rsc
c'est bien ce que je redoutais

Mais généralement il vaut mieux te rabattre sur un type tableau.

Entièrement d'accord, mais pour le cas du sudoku (9 éléments), la manipulation des ensembles me paraît intéressante
Et vu que mon souhait est d'extraire le contenu d'un ensemble à 1 seul élément, va pour l'opérateur in
Merci rsc
@mick605 si j'ai bien compris ta function renvoie le plus petit élément de l'ensemble
Quant à moi, je veux juste qu'elle me renvoie l'élément unique

Code :

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

1
2
3
4
5
6
7
  function ElmntDansEnsemble(MonEnsemble:set of byte):byte;
  var
    n:1..9;
  begin
    for n:=1 to 9 do
    if n in MonEnsemble then result:=n
  end;

[Gilbert Geyer]

Bonjour,

Pour ceux qui s'intéressent aux ensembles vous pouvez trouver ici : http://www.developpez.net/forums/d41...native-set-of/
les unités BigSetD7Older et IntSetD7Older créées par Sjrd pour manipuler des grands ensembles ... qui marchent donc aussi avec des petits ensembles.
BigSetD7Older et IntSetD7Older fonctionnent sous des version Delphi inférieures à D7 . Sous D5 les opérations sont hyper-speed.

A+.

[Paul TOTH]

Salut mick605

Damned! je suis fait!
Effectivement, il est toujours possible de tester le contenu avec l'opérateur in
Mais bon, s'il y avait une soluce moins "bourrin"
Merci pour ton aide

hihi, personnellement j'ai utilisé un champ de bit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var
  Values: Integer;
  Value : Integer;
begin
  Values := GetPossibleValues(x, y); // bits 1 à 9
  for Value := 1 to 9 do
  begin
   if Values = 1 shl Value then
   begin
    // une seule solution : Value
   end;
  end;
end;

[sjrd]

C'est gentil de faire la pub pour mes BigSets, mais je vous déconseille très fortement de les utiliser dans ce cas-ci. Mes BigSets sont une implémentation du comportement exact des set of mais pour des types d'éléments de plus de 256 valeurs différentes.

Donc c'est totalement contre-nature d'utiliser mes BigSets pour travailler avec des types à 9 valeurs

hihi, personnellement j'ai utilisé un champ de bit

Euh, ça sert à rien ce que tu fais. Tu rends illisible ton code pour rien.
Les ensembles set of sont des champs de bits. Et toutes les opérations sur les ensembles sont en temps constant, y compris le in.

Et si tu veux un (bel) équivalent de ton

Code :

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

if Values = 1 shl Value then

c'est

Code :

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

if Values = [Value] then

Finalement, je rappelle aussi les différentes opérations possibles sur les set of :

• Value in Set1 = True si Value est dans Set1, False sinon
• Set1 + Set2 = Union de Set1 et Set2
• Set1 - Set2 = Ensemble des éléments de Set1 qui ne sont pas dans Set2
• Set1 * Set2 = Intersection de Set1 et Set2
• Set1 <= Set2 = True si Set1 est inclus (non strictement) dans Set2, c'est-à-dire si tous les éléments de Set1 sont aussi dans Set2

[mick605]

Damned! je suis fait!
Effectivement, il est toujours possible de tester le contenu avec l'opérateur in
Mais bon, s'il y avait une soluce moins "bourrin"

Je suis d'accord, c'est bourrin !!

[mick065] Le nom de ta fonction est trompeur : un ensemble n'a pas de premier élément.

Ce que je voulais dire par la, c'est

@mick605 si j'ai bien compris ta function renvoie le plus petit élément de l'ensemble

Enfin, l'essentiel, c'est que vous ayez compris ! Ca renvoie la plus petite valeur de l'ensemble ! Vous pouvez toujours changer le nom de la procedure, mais je le trouve explicite.

Quant à moi, je veux juste qu'elle me renvoie l'élément unique

Et bien, tu cherches si ton ensemble contient un seul élement, et si oui, tu prends le premier element ...

Sinon, y aurait pas une fonction qui renvoie le nombre de valeurs de l'ensemble ? J'imagine que oui, mais a defaut, je me la suis créé !!

Code :

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

1
2
3
4
5
6
7
  function ElmntDansEnsemble(MonEnsemble:set of byte):byte;
  var
    n:1..9;
  begin
    for n:=1 to 9 do
    if n in MonEnsemble then result:=n
  end;

Ca marche aussi bien, mais si ton ensemble est [1], ta fonction va passer toutes les valeurs jusqu'a neuf, donc ... calculs inutiles

Se rabattre sur un type tableau > euh ... je n'en vois pas l'utilité. Les sets of permettent plus de trucs (dans ce cas la) que les tableaux (union, intersection ...) !!