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"