Bei einer ungeordneten Auflistung positiver Ganzzahlen mit einer vernünftigen Eingabemethode geben Sie alle Untersammlungen zurück, die eine ungerade Anzahl ungerader Elemente (dh eine ungerade Summe) aufweisen.

Dies ist Code-Golf, daher sollten Sie darauf abzielen, die Byte-Anzahl Ihres Programms zu minimieren.

Da einige Sprachen nur geordnete Sammlungen (Listen, Arrays, Vektoren usw.) oder keine ungeordnete Sammlung haben, die Duplikate zulässt, können Sie geordnete Sammlungen verwenden (unabhängig von Ihrer Sprachauswahl). Sie sollten jedoch keine doppelten Sammlungen ausgeben mit verschiedenen Aufträgen (zB [2,3]und [3,2]). Sie können in beliebiger Reihenfolge ausgeben.

Testfälle

[2,3,7,2] -> [[3],[7],[2,3],[2,7],[2,2,3],[2,2,7]]
[2,4,6,8] -> []
[4,9]     -> [[9],[4,9]]

05AB1E , 6 Bytes

{æÙʒOÉ

Probieren Sie es online!

{æÙʒOÉ
{      Sort
 æ     Powerset
  Ù    Uniqufy
   ʒ   Keep elements where
    O                      the sum
     É                             is uneven

-2 Bytes dank @EriktheOutgolfer

Python 3 , 93 Bytes

f=lambda x,r=[[]]:x and f(x[1:],r+[y+x[:1]for y in r])or{(*sorted(y),)for y in r if sum(y)&1}

Gibt eine Menge von Tupeln zurück. Höchstwahrscheinlich viel zu lang.

Probieren Sie es online!

Pyth , 10 9 8 Bytes

{f%sT2yS

Probieren Sie es online!

         # implicit input
       S # sort input, this way the subsets will already be sorted
      y  # all subsets
 f       # filter elements when ..
   sT    # the sum ..
  %  2   # is odd
{        # remove all duplicated elements
         # implicit output

Python 2 , 91 Bytes

r=[[]]
for n in input():r+=map([n].__add__,r)
print{tuple(sorted(y))for y in r if sum(y)&1}

Druckt eine Reihe von Tupeln. Wenn eine Menge von Strings erlaubt ist, tuple(sorted(y))kann ersetzt werden durch `sorted(y)`für 86 Bytes .

Probieren Sie es online!

Gelee , 9 Bytes

ṢŒPSḂ$ÐfQ

Probieren Sie es online!

Fehler behoben dank Jonathan Allan.

ṢŒPSḂ$ÐfQ  Main Link
Ṣ          Sort
 ŒP        Powerset
      Ðf   Filter to keep elements where                         is truthy
    Ḃ                                    the last bit of
   S                                                     the sum
        Q  Only keep unique elements

Perl 6 , 50 Bytes

{.combinations.grep(*.sum!%%2).unique(:as(*.Bag))}

Um die gleichen Kombinationen in der gleichen Reihenfolge herauszufiltern, filtere ich Duplikate heraus, indem ich sie Bagvor dem Vergleich in eine (ungeordnete Sammlung) umwandle. Leider konnte ich keine Möglichkeit finden, eine so präzise BagEingabe zu akzeptieren .

Brachylog , 11 Bytes

o⊇ᵘ{+ḃt1&}ˢ

Probieren Sie es online!

Ich hatte gehofft, eine kürzere Lösung zu finden, aber hier ist das Beste, was ich tun konnte.

Erläuterung

o⊇ᵘ{+ḃt1&}ˢ    
o                                        the input, sorted
 ⊇ᵘ           Find all unique subsets of

   {    &}ˢ   Then select only those results where
    +                                          the sum
     ḃ                           the base 2 of
      t        The last digit of
       1                                               is 1.

Ja, ich hätte modulo 2 verwenden können, um zu prüfen, ob es merkwürdig ist, aber das ist kein merkwürdiger Ansatz;)

Mathematica 31 44 38 Bytes

Unter allen Teilmengen der Eingabemenge werden diejenigen zurückgegeben, für die die Summe Trungerade ist.

Dank Alephalpha werden 6 Bytes gespart.

Select[Union@Subsets@Sort@#,OddQ@*Tr]&

 Select[Union@Subsets@Sort@#,OddQ@*Tr]&[{2,3,7,2}]

{{3}, {7}, {2, 3}, {2, 7}, {2, 2, 3}, {2, 2, 7}}

PHP, 126 Bytes

for(;++$i>>$argc<1;sort($t),$s&1?$r[join(_,$t)]=$t:0)for ($t=[],$j=$s=0;++$j<$argc;)$i>>$j&1?$s+=$t[]=$argv[$j]:0;print_r($r);

Nimmt Eingaben von Befehlszeilenargumenten entgegen. Laufen Sie mit -nroder versuchen Sie es online .

Nervenzusammenbruch

for(;++$i>>$argc<1;             # loop through subsets
    sort($t),                       # 2. sort subset
    $s&1?$r[join(_,$t)]=$t:0        # 3. if sum is odd, add subset to results
    )                               # 1. create subset:
    for ($t=[],$j=$s=0;++$j<$argc;)     # loop through elements
        $i>>$j&1?                       # if bit $j is set in $i
        $s+=$t[]=$argv[$j]:0;           # then add element to subset
print_r($r);                    # print results