GNU combinatoires parallèle, l'utilisation de la liste des arguments à plusieurs reprises

Question

Je voudrais utiliser suivant pour créer des emplois uniques, où {1} et {2} sont tuples uniques:

parallel echo {1} {2} ::: A B C D ::: A B C D 

---

Par exemple, dans python (itertools) fournit un tel générateur combinatoire:

permutations('ABCD', 2) 

AB AC AD BC BA BD CA CB CD DA DB DC

---

Existe-t-il un moyen de l'implémenter directement via bash? Ou GNU parallèle lui-même? Peut-être ignorer des tâches redondantes en quelque sorte? Mais alors, comment puis-je vérifier quelles combinaisons de paramètres ont déjà été utilisées.

parallel echo {= 'if($_==3) { skip() }' =} ::: {1..5} 

Answer 1

Une solution laide: utiliser Python pour générer la séquence et l'option --link (ou --xapply):

$ parallel --xapply echo {1} {2} ::: $(python -c "from itertools import permutations ; print(' ::: '.join([' '.join(_) for _ in zip(*list(permutations('ABCD',2)))]))") 
A B 
A C 
A D 
B A 
B C 
B D 
C A 
C B 
C D 
D A 
D B 
D C 

Answer 2

Vous pouvez utiliser deux fois parallel si vous ne me dérange pas:

# filter the first's parallel output for accepted combinations and pipe into a 2nd parallel 
parallel echo {1} {2} ::: a b c ::: a b c | awk '{ if ($1 != $2) {print $0}}' | parallel echo this is the actual {1} {2} 

# no one-liner for better maintenance 
parallel echo {1} {2} ::: a b c ::: a b c | awk '{ if ($1 != $2) {print $0}}' > myargs 
parallel --arg-file myargs echo {1} {2} 
rm myargs 

# Output is in both cases 
a b 
a c 
b a 
b c 
c a 
c b 

Answer 3

Si les valeurs sont uniques:

parallel echo {= 'if($arg[1] eq $arg[2]) { skip() }' =} ::: A B C D ::: A B C D 

Ou plus généralement:

parallel echo \ 
    '{= my %seen; for my $a (@arg) { $seen{$a}++ and skip() } =}' \ 
    ::: A B C D ::: A B C D ::: A B C D 

Si vous voulez traiter AB comme BA alors ce ne fonctionne que l'une des combinaisons:

parallel echo \ 
    '{= for my $t (2..$#arg) { if($arg[$t-1] ge $arg[$t]) { skip() } } =}' \ 
    ::: A B C D ::: A B C D ::: A B C D 

Si vous utilisez ces beaucoup, souvenez-vous que vous pouvez utiliser --rpl à faire vos propres chaînes de remplacement en mettant ceci dans ~/.parallel/config

--rpl '{unique} my %seen; for my $a (@arg) { $seen{$a}++ and skip() }' 
--rpl '{choose_k} for my $t (2..$#arg) { if($arg[$t-1] ge $arg[$t]) { skip() } }' 

Et puis exécutez:

parallel echo {unique} ::: A B C D ::: A B C D ::: A B C D 
parallel echo {choose_k} ::: A B C D ::: A B C D ::: A B C D