Perl - somma tra possibili elementi di un array

[CodiceProg]

Il linguaggio è Perl, ma in generale, solo l' algoritmo
Avendo un array con un insieme di elementi e un intero s,
come si può trovare tutte le possibili ennuple che generano quel numero?
Ad esempio
A=[1,2,3,4,5]
s=5
può essere 5 volte 1
3+2
4+1
5
come si può fare?
Grazie in anticipo

[MItaly]

Limitandosi alla somma? Le permutazioni della stessa sequenza sono da considerarsi equivalenti?

[Scara95]

a = [5,4,3,2,1]

find n c t
 |sum c == n = [c]
 |sum c > n  = []
 | t == []   = []
 |otherwise  = concat [find n (head t:c) t, find n c (tail t)]


main = print $ find 5 [] a

Questo è l'algoritmo in Haskell.
Note aggiuntive: volendo trovare tutte le combinazioni contenenti un 2 basterebbe passare come secondo parametro [2]

Se non riesci a capire o non sei pratico con Haskell chiedi pure.

[CodiceProg]

le permutazioni hanno lo stesso peso,
è sufficiente trovarle

[Scara95]

Uh, ho capito male...

a = [5,4,3,2,1]

find n c t
 |sum c == n = [c]
 |sum c > n  = []
 | t == []   = []
 |otherwise  = concat [find n (head t:c) (tail t), find n c (tail t)]


main = print $ find 5 [] a

[CodiceProg]

rispondevo all' altro utente che ha risposto

[Scara95]

rispondevo all' altro utente che ha risposto

Hai chiesto " o in generale l'algoritmo" e quello è uno dei possibili...

[CodiceProg]

funziona se si vuole ottenere la somma dello stesso elemento ripetuto?
ad esempio s=36
A=[12,24,10] oltre che a 24+12 anche 12+12+12 andrebbe bene

[Scara95]

funziona se si vuole ottenere la somma dello stesso elemento ripetuto?
ad esempio s=36
A=[12,24,10] oltre che a 24+12 anche 12+12+12 andrebbe bene

Allora prendi quello del mio primo post...