tổ hợp song song GNU, sử dụng danh sách các tham số nhiều lần

Question

Tôi muốn sử dụng sau đây để tạo ra công ăn việc làm độc đáo, đó {1} và {2} là các bộ duy nhất:

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

---

Ví dụ trong python (itertools) cung cấp một máy phát điện như combinatoric:

permutations('ABCD', 2) 

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

---

Có cách nào để triển khai trực tiếp thông qua bash không? Hoặc GNU song song chính nó? Có thể bỏ qua các công việc dư thừa bằng cách nào đó? Nhưng sau đó, làm cách nào tôi có thể kiểm tra các kết hợp tham số nào đã được sử dụng.

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

Answer 1

Một giải pháp xấu xí: sử dụng Python để tạo ra các trình tự và các --link tùy chọn (hoặc --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

Bạn có thể sử dụng parallel hai lần nếu bạn không nhớ:

# 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

Nếu các giá trị là duy nhất:

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

Hoặc tổng quát hơn:

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

Nếu bạn muốn điều trị AB như BA thì đây chỉ chạy một trong những kết hợp:

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 

Nếu bạn sử dụng các rất nhiều, nhớ bạn có thể sử dụng --rpl để tạo các chuỗi thay thế của riêng bạn bằng cách đặt mã này vào ~/.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() } }' 

Và sau đó chạy:

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