Trong tác vụ này, chúng tôi xem xét các mảng số nguyên dương như sau:

3 18 321 17 4 4 51 1 293 17

Đầu vào bao gồm một cặp các mảng như vậy cả chiều dài dương, tùy ý, có thể khác biệt. Xác định nếu tổng trật tự ≤ _X ⊂ N × N , nơi N là tập hợp các số nguyên dương, tồn tại như vậy mà cả hai mảng đầu vào theo thứ tự liên quan đến ≤ với _X . Lưu ý rằng (A ≤ _X B ∧ B _X A) A = B phải giữ, nghĩa là, hai số được coi là bằng nhau dưới ≤ _X khi và chỉ khi chúng là cùng một số.

Ví dụ: nếu đầu vào là cặp mảng

7 2 1 1 4 12 3
9 8 7 2 5 1

sau đó bạn phải tìm ra nếu tổng thứ tự ordering _X tồn tại sao cho

7 ≤ _X 2 ≤ _X 1 ≤ _X 1 ≤ _X 4 _X 12 ≤ _X 3

và

9 ≤ _X 8 ≤ _X 7 _X 2 ≤ _X 5 _X 1.

Nội dung gửi của bạn có thể là chương trình con hoặc chương trình nhận hai mảng (như được chỉ định ở trên) theo cách xác định thực hiện, tính toán xem tổng số thứ tự ≤ _{X có} đáp ứng các yêu cầu được đề cập ở trên hay không và trả về một giá trị đại diện cho có đúng hay khác giá trị đại diện cho số no. Sự lựa chọn của các giá trị này là tùy ý, xin vui lòng ghi lại chúng.

Bạn có thể giả định rằng các mảng đầu vào chứa không quá 2 ¹⁵ - 1 phần tử và mỗi phần tử của chúng nằm trong phạm vi từ 1 đến 2 ¹⁵ - 1. Bạn có thể yêu cầu mỗi mảng bị chấm dứt bởi một sentinel không đổi bên ngoài phạm vi đã nói ở trên, chẳng hạn như 0. Vui lòng chỉ định những gì sentinel là cần thiết. Bạn có thể yêu cầu độ dài của các mảng làm đầu vào bổ sung nếu độ dài không thể được suy ra từ chính các mảng (ví dụ: trong các ngôn ngữ như C). Ngoài việc cấm các sơ hở tiêu chuẩn, bạn không được phép sử dụng các thói quen phân loại tôpô.

Thử thách này là mã golf. Trình gửi với số lượng nhân vật ít nhất sẽ thắng.

Bình thường, 28 22

L.AmqdSdmfhTmxhkbek^b2

Tạo một chức năng y mà bạn có thể gọi với một tuple chứa hai mảng. Trả về "Đúng" nếu tổng số đơn hàng tồn tại, "Sai" nếu không.

Một chương trình trợ giúp xác định và gọi hàm trên với stdin:

L.AmqdSdmfhTmxhkbek^b2y,rw7rw7 

Hãy thử nó ở đây.

Đầu tiên chúng ta đọc cả hai mảng. Sau đó, chúng tôi sẽ tạo ra tất cả các kết hợp của cả hai mảng. Sau đó, với mỗi kết hợp, chúng tôi sẽ giả sử mảng đầu tiên là có thẩm quyền và kiểm tra xem nó có phù hợp với mảng thứ hai không.

GolfScript, 25 byte

:A{:a;A{.a--.{a?}$=!},},!

Hãy thử mã này trực tuyến.

Lấy một mảng gồm hai (hoặc nhiều hơn!) Trên ngăn xếp; trả về 1 (đúng) nếu mỗi cặp mảng đầu vào có tổng thứ tự tương thích hoặc 0 (sai) nếu không.

Nó hoạt động bằng cách lặp qua mọi cặp mảng đầu vào có thể (bao gồm cả từng mảng được ghép với chính nó), sắp xếp các phần tử trong mảng đầu tiên theo vị trí xuất hiện đầu tiên trong mảng thứ hai (bỏ qua những mảng không tìm thấy) và kiểm tra thứ tự kết quả khớp với bản gốc.

Mặc dù mã này có thể lấy một số lượng các mảng đầu vào tùy ý, điều đáng chú ý là nó chỉ kiểm tra tính nhất quán theo cặp . Ví dụ, nó trả về true cho đầu vào[[1 2] [2 3] [3 1]] , vì bất kỳ hai trong ba mảng nào cũng có tổng thứ tự nhất quán. Tuy nhiên, thế là đủ cho trường hợp hai đầu vào, đó là tất cả những gì thử thách yêu cầu.

Đây là một phiên bản khử golf với các bình luận:

:A         # save input to "A", and leave it on the stack to be looped over
{          # run this outer loop for each input array:
  :a;      #   save this array to "a" (and pop it off the stack)
  A{       #   also run this inner loop for each input array:
    .a--   #     remove all elements not in "a" from this array
    .      #     make a copy of the filtered array
    {a?}$  #     sort it by the first location of each element in "a"
    =!     #     check whether the sorted copy differs from the original
  },       #   select those arrays for which there was a difference
},         # select those arrays for which at least one difference was found
!          # return 1 if no differences were found, 0 otherwise

Thi thiên Có thể lưu một hoặc hai byte một cách tầm thường bằng cách yêu cầu đầu vào được cung cấp trực tiếp trong biến đã đặt tên Avà / hoặc bằng cách thay đổi định dạng đầu ra thành một mảng trống cho "có" và một mảng không trống cho "không" . Tuy nhiên, điều đó có vẻ khá nhảm với tôi.

J, 36 30 26 byte

[:*/@,(e.~(-:/:~)@#i.)&>/~

Hãy gọi hai danh sách đầu vào avà b. Hàm kiểm tra (với (e.~(-:/:~)@#i.)) xem

• acác phần tử được sắp xếp (liên quan đến a) trongb
• acác phần tử được sắp xếp (liên quan đến a) tronga
• bcác phần tử được sắp xếp (liên quan đến b) tronga
• bcác phần tử được sắp xếp (liên quan đến b) trongb

Đầu vào là danh sách hai vectơ số nguyên.

Kết quả là 1nếu một đơn đặt hàng tồn tại 0khác. (Thời gian chạy là O (n * n).)

Sử dụng:

   f=.[:*/@,(e.~(-:/:~)@#i.)&>/~

   a=.7 2 1 1 4 12 3 [b=.7 2 1 1 4 12 3 1 [c=.9 8 7 2 5 1
   f a;c
1
   f b;c
0

Hãy thử trực tuyến tại đây.

Ruby, 79

!!gets(p).scan(r=/\d+/){|s|$'[/.*/].scan(r){s!=$&&~/\b#$& .*\b#{s}\b/&&return}}

Dự kiến ​​đầu vào là một tệp hai dòng gồm các số được phân tách bằng dấu cách. Trả về truekhi một đơn đặt hàng tồn tại, nilnếu nó không.

Haskell, 98 byte

import Data.List
a%b=intersect(r a)$r b
r l=map head$group l
c l=nub l==r l
x#y=c x&&c y&&x%y==y%x

Trả về Truehoặc False. Ví dụ sử dụng: [7,2,1,1,4,12,3] # [9,8,7,2,5,1]-> True.

Cách thức hoạt động: xóa các bản sao liên tiếp khỏi danh sách đầu vào (ví dụ : [1,2,2,3,2] -> [1,2,3,2]. Một đơn hàng tồn tại nếu cả hai danh sách kết quả không chứa các bản sao và giao điểm của list1 và list2 bằng với giao điểm của list2 và list1.