Đưa ra hai danh sách không chứa các phần tử trùng lặp avà btìm giao điểm giữa hai danh sách và đưa ra Sơ đồ Venn ASCII-Art. Biểu đồ Venn sẽ sử dụng một phiên bản vuông góc của các vòng tròn truyền thống để đơn giản.

Thí dụ

Được:

a = [1, 11, 'Fox', 'Bear', 333, 'Bee']
b = ['1', 333, 'Bee', 'SchwiftyFive', 4]

Đầu ra (Thứ tự là 100% tùy ý, miễn là Biểu đồ Venn đúng):

+-----+----+-------------+
|11   |333 |SchwiftyFive |
|Fox  |Bee |4            |
|Bear |1   |             |
+-----+----+-------------+

Chương trình có thể xem xét '1' == 1hoặc '1' != 1, tùy theo việc bạn thực hiện. Bạn cũng có thể chọn chỉ xử lý mọi thứ dưới dạng chuỗi và chỉ chấp nhận đầu vào chuỗi.

Được:

a=[]
b=[1,2,3]

Đầu ra (Lưu ý cách hai phần trống vẫn có khoảng trống ở bên phải):

+-+-+--+
| | |1 |
| | |2 |
| | |3 |
+-+-+--+

Được:

a=[1]
b=[1]

Đầu ra:

+-+--+-+
| |1 | |
+-+--+-+

Quy tắc

• Các yếu tố của Biểu đồ Venn được căn trái và được đệm vào mục nhập độ dài tối đa cộng với 1.
• Thứ tự của các phần tử trong các phần con của Biểu đồ Venn là tùy ý.
• Các góc của biểu đồ Venn (nơi |gặp nhau -) phải được biểu diễn bằng a +.
• Bạn đang trốn tránh rằng a.join(b).length() > 0, nếu cả hai đều trống rỗng, bạn có thể làm bất cứ điều gì.
  • Bạn thậm chí có thể in một bức ảnh của Abe Lincoln, đừng quan tâm.
• Đây là code-golf , ascii-art và set-theory .

Tặng kem

Than làm cho các hộp như thế này một cách tự nhiên, nhưng toàn bộ phần lý thuyết ... Không biết nó làm tốt đến mức nào. +100 tiền thưởng cho lần gửi than ngắn nhất trước khi tôi có thể thêm tiền thưởng vào câu hỏi (2 ngày kể từ khi được hỏi).

Python 2 , 221 210 212 byte

m=map
A,B=m(set,input())
d=A-B,B&A,B-A
e=[max(m(len,s))+1for s in d]
p,i,n='+|\n'
o=b=p+p.join(m('-'.__mul__,e))+p+n
while sum(m(len,d)):o+=i+i.join(m(str.ljust,[len(s)and s.pop()or''for s in d],e))+i+n
print o+b

Hãy thử trực tuyến!

PHP> = 7.1, 287 byte

<?for([$a,$b]=$_GET,$x=max(($m=array_map)(count,$r=[($d=array_diff)($a,$b),array_intersect($a,$b),$d($b,$a)]));$n<3;$n++)for(sort($r[+$n]),$i=-1;$i<=$x;$i++){$o[$i].="|+"[$b=$i<0||$i==$x].str_pad($b?"":$r[+$n][$i],max($m(strlen,$r[+$n]))+1," -"[$b]).("|+"[$b][$n<2]);}echo join("
",$o);

Phiên bản trực tuyến

Mở rộng

for([$a,$b]=$_GET, # store input arrays in shorter variables
$x=max(($m=array_map)(count,   # get maximum of 
$r=[($d=array_diff)($a,$b),array_intersect($a,$b),$d($b,$a)])); #the set array
$n<3;$n++)
  for(sort($r[+$n]),$i=-1;$i<=$x;$i++){ # sort array to remove keys
    $o[$i].="|+"[$b=$i<0||$i==$x].   # concat line $b boolean for first and last line beginning char 
    str_pad($b?"":$r[+$n][$i]   # string of item in array if not first or last line
    ,max($m(strlen,$r[+$n]))+1  # fill till maximum length of items in array
    ," -"[$b]) # with char depends on first/last line or item line
    .("|+"[$b][$n<2]); # make end of string if last array is reach
}
echo join("   
",$o); #Output

Than , 106 89 87 byte:

Ａ⟦⟧ςＡ⟦⟧λＡ⟦⟧ρＡ⟦⟧τＷＳ⊞ςιＷＳ⊞⎇№ςιτριＦς⊞⎇№τι⟦⟧λιＦ⟦λτρ⟧«Ｆι«↓Ｐκ»ＭＬι↑←Ａ⁺⌈ＥιＬκ³ζＵＲζ⁺⌈⟦ＬλＬτＬρ⟧²Ｍζ→

Hãy thử trực tuyến! Lưu ý rằng liên kết là mã verbose cho mục đích giải thích, với -sltùy chọn hiển thị mã Char than bản địa tương đương. Đưa đầu vào dưới dạng các chuỗi được phân tách bằng dòng mới với một dòng trống sau mỗi bộ.

Chỉnh sửa: Đã lưu 11 byte chỉ nhờ @ ASCII. Phiên bản trước thực sự có lỗi khi từ cuối cùng trong tập đầu tiên không nằm trong tập thứ hai và cũng là cột đầu tiên cao nhất, biểu hiện là không có khả năng tối ưu hóa tạm thời. Đã lưu 2 byte bằng cách tối ưu hóa hai lệnh Move (deverbosifier hiện thực hiện điều này một cách tự động nhưng mã kết quả luôn hợp lệ để câu trả lời vẫn còn cạnh tranh).

Chỉnh sửa: Tôi không nghĩ đã Multiprinttừng làm việc với đầu ra đa dòng nhưng hiện tại và việc sử dụng nó sẽ tiết kiệm được 6 byte, cộng thêm 4 byte nữa vì Char than hiện tại đã xác định trước ubiến vào danh sách trống: Hãy thử trực tuyến!