Discussion :

[JustMe]

SVP j'ai un bout de code que veux traduire en Delphi si quelqu'un peu m'aider merci.

Code JS :

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
function target_sum(a, k, x) {
    if (k == a.length) return [];
    if (a[k] == x) {
        return [ [a[k]] ];
    } else {
        var s = target_sum(a, k + 1, x); // not using a[k]
        var t = target_sum(a, k + 1, x - a[k]); // using a[k]
        for (var i = 0; i < t.length; ++i) {
            t[i].unshift(a[k]); // a[k] is part of the solution
            s.push(t[i]); // merge t[] into s[]
        }
        return s;
    }
}
var s = target_sum([1, 4, 5, 2, 7, 8, -3, -5, -6, 9, 3, -7, -1, 5, 6], 0, 0);
for (var i = 0; i < s.length; ++i)
    console.log(s[i].join(","));

[Paul TOTH]

ce n'est pas intéressant comme question.

si j'ai bien compris, la question est d'obtenir les liste des nombres issues de la liste données dont la somme vaux 0

exemple 4 + 2 - 6
ou encore 3 - 7 - 1 + 5

javascript trouve 436 expressions

[JustMe]

Mais si vous pouvez m'aider ça sera sympa de votre part

[Paul TOTH]

quel est le but ?

[JustMe]

C'est pour un lettrage de compte ou je dois éliminer les lignes avec une somme des débits et crédits = 0. Merci de votre soucis.

[Paul TOTH]

la traduction est presque directe, il faut juste typer les variables, j'utilise ici la déclaration en ligne de Sydney

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
 
function target_sum(a: TArray<Integer>; k, x: Integer): TArray<TArray<Integer>>;
begin
  if k = Length(a) then
    Exit(nil);
  if a[k] = x then
  begin
    SetLength(Result, 1, 1); // Result := [a[k]]; n'est pas supporté
    Result[0, 0] := a[k];
    Exit;
  end;
  var s := target_sum(a, k + 1, x);
  var t := target_sum(a, k + 1, x - a[k]);
  for var i := 0 to Length(t) - 1 do
  begin
    Insert(a[k], t[i], 0); // unshift
    Insert(t[i], s, Length(s)); // push
  end;
  Result := s;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  var s := target_sum([1, 4, 5, 2, 7, 8, -3, -5, -6, 9, 3, -7, -1, 5, 6], 0, 0);
  AllocConsole;
  for var i := 0 to Length(s) - 1 do
  begin
    for var j := 0 to Length(s[i]) - 1 do
    begin
      Write(s[i, j], ',');
    end;
    WriteLn;
  end;
end;

[SergioMaster]

Bonjour,

il doit certainement y avoir un moyen sans passer par ce genre de fonction.
Qui dit lettrage dit certainement lecture dans une table quelconque une interrogation par SQL est-elle possible ?
De toute façon il y a chargement des données pour la pièce comptable donc certainement récupération des montants débits et crédits.
je ne vois pas pourquoi mettre ces montant dans un "target_sum"

[JustMe]

Justement après plusieurs élimination par requêtes SQL des débits et crédits égaux il me reste des lignes ou je n'ai pas pû éliminer qui représentent une somme de débits avec une autre somme de crédits. C'est pour cela que j'ai eu recours à une telle fonction.

[JustMe]

Vous me sauvez la vie merci infiniment