Nhiệm vụ

Trong thử thách này, nhiệm vụ của bạn là viết ba chương trình tạo thành một loại hệ thống giống nhau. Hãy gọi các chương trình A, Bvà C. Nếu một trong các chương trình được cung cấp nguồn của chương trình khác làm đầu vào, thì nó sẽ xuất nguồn của chương trình thứ ba. Ví dụ, nếu Ađược đưa ra Blàm đầu vào, nó xuất ra C. Nếu các chương trình được cung cấp nguồn riêng của họ như là đầu vào, họ có trách nhiệm đầu ra ba chuỗi "three", "mutual"và "quines"(không có dấu ngoặc kép). Trong mọi trường hợp, họ có thể xuất thêm một dòng mới. Đối với bất kỳ đầu vào nào khác, các chương trình có thể làm bất cứ điều gì, kể cả sự cố.

Thí dụ

Ví dụ, giả sử rằng các mã nguồn A, Bvà Clà aSdf, ghJkvà zxcV. Sau đó, các chương trình nên hành xử như sau.

Source Input  Output
--------------------
aSdf   aSdf   three
aSdf   ghJk   zxcV
aSdf   zxcV   ghJk
ghJk   aSdf   zxcV
ghJk   ghJk   mutual
ghJk   zxcV   aSdf
zxcV   aSdf   ghJk
zxcV   ghJk   aSdf
zxcV   zxcV   quines

Quy tắc và tính điểm

Các giải pháp A, Bvà Ccó thể là chức năng hoặc các chương trình đầy đủ, nhưng họ phải hoàn toàn độc lập: không có mã được chia sẻ được cho phép. Các quy tắc chuẩn và quy tắc chuẩn được áp dụng, vì vậy các chương trình không thể truy cập mã nguồn của riêng họ theo bất kỳ cách nào.

Điểm số của bạn là số lượng byte kết hợp của A, Bvà C, điểm số thấp hơn là tốt hơn.

CJam, 165 147 114 108 99 byte

2 _ri^_q+@"quinesmutualthree"6/=?

1 _ri^_q+@"quinesmutualthree"6/=?

3 _ri^_q+@"quinesmutualthree"6/=?

Cảm ơn @ MartinBüttner cho một đề xuất giúp tiết kiệm 48 byte!

Hãy thử trực tuyến trong trình thông dịch CJam .

xác minh

$ cat A
2 _ri^_q+@"quinesmutualthree"6/=?
$ cat B
1 _ri^_q+@"quinesmutualthree"6/=?
$ cat C
3 _ri^_q+@"quinesmutualthree"6/=?
$ 

$ cjam A < A
three
$ cjam A < B
3 _ri^_q+@"quinesmutualthree"6/=?
$ cjam A < C
1 _ri^_q+@"quinesmutualthree"6/=?
$ 

$ cjam B < A
3 _ri^_q+@"quinesmutualthree"6/=?
$ cjam B < B
mutual
$ cjam B < C
2 _ri^_q+@"quinesmutualthree"6/=?
$ 

$ cjam C < A
1 _ri^_q+@"quinesmutualthree"6/=?
$ cjam C < B
2 _ri^_q+@"quinesmutualthree"6/=?
$ cjam C < C
quines

Ý kiến

Tập {0, 1, 2, 3} là một nhóm trong hoạt động ^ (nhị phân độc quyền OR), trong đó mỗi phần tử là nghịch đảo của chính nó.

Nếu cả ba chương trình giống hệt nhau ngoại trừ ký tự đầu tiên (một phần tử của {0, 1, 2, 3} ), chúng ta có thể phân biệt và in chúng dễ dàng:

• Chúng tôi bắt đầu bằng cách XOR chữ số ở đầu mã nguồn và đầu vào.

• Nếu kết quả là 0 , nguồn và đầu vào khớp.

  Vì vậy, chúng tôi in một trong ba từ, được chọn bởi chữ số phổ biến này.

• Nếu kết quả không phải là 0 , thì đó là phần tử của {1, 2, 3} không nằm trong nguồn cũng như trong đầu vào.

  Vì vậy, chúng tôi in nó, tiếp theo là phần còn lại của đầu vào.

Làm thế nào nó hoạt động

2                                  e# Push the number N on the stack.
  _                                e# Push a copy.
    r                              e# Read a token from STDIN, i.e., the input up
                                   e# to and excluding the next whitespace char.
     i                             e# Cast to integer.
      ^                            e# XOR it with the copy of N. Result: X
       _                           e# Push a copy of the result.
        q+                         e# Append the rest of the input.
          @                        e# Rotate N on top of the stack.
           "quinesmutualthree"6/   e# Push ["quines" "mutual" "three"].
                                =  e# Select the word at index N.
                                 ? e# If X is non-zero, select the modified input;
                                   e# otherwise, select the word.