Tradycyjny Zachodnia matryca jest kostka, na której liczby całkowite od 1 do 6 są oznaczone na twarzach. Pary, które dodają do 7, są umieszczane na przeciwległych powierzchniach.

Ponieważ jest to kostka, w danym momencie możemy zobaczyć tylko od 1 do 3 ścian (włącznie) ¹ . Przeciwnych twarzy nigdy nie można zobaczyć jednocześnie.

Twoim zadaniem jest napisanie programu lub funkcji, która na podstawie listy liczb całkowitych reprezentujących boki na matrycy określa, czy można zobaczyć te twarze w tym samym czasie.

¹ _{Okay, może widzisz 4 lub 5 twarzy parą oczu, ale na potrzeby tego wyzwania obserwujemy kość z jednego punktu.}

Zasady:

• Twoje zgłoszenie może obejmować listę danych wejściowych:
  • Jest niepusty
  • Zawiera tylko wartości, które spełniają 1 ≤ n ≤ 6.
  • Nie zawiera zduplikowanych elementów.
• Być może nie zakładać, że wejście jest posortowana.
• Twoje zgłoszenie powinno dawać wartość prawda / fałsz : prawda jest taka, że ​​twarze można zobaczyć w tym samym czasie, a fałsz inaczej.
• To jest golf golfowy , więc wygrywa najkrótsza odpowiedź (w bajtach)!
• Standardowe luki są domyślnie zabronione.

Przypadki testowe

Prawda:

[6]                 (One face)
[6, 2]              (Share a side)
[1, 3]              (Share a side)
[2, 1, 3]           (Share a vertex)
[3, 2, 6]           (Share a vertex)

Falsy:

[1, 6]              (1 and 6 are opposite)
[5, 4, 2]           (2 and 5 are opposite)
[3, 1, 4]           (3 and 4 are opposite)
[5, 4, 6, 2]        (Cannot see 4 faces)
[1, 2, 3, 4, 5, 6]  (Cannot see 6 faces)

Python 2 , 35 bajtów

lambda a:any(7-i in a for i in a)<1

Wypróbuj online!

JavaScript (ES6),  38 34 30 29  28 bajtów

Pobiera dane wejściowe jako dowolną liczbę oddzielnych parametrów. Zwraca 0lub 1.

(a,b,c,d)=>!(d|(a^b^c)%7)^!c

Przypadki testowe

let f =

(a,b,c,d)=>!(d|(a^b^c)%7)^!c

console.log('[Truthy]')
console.log(f(6      ))
console.log(f(6, 2   ))
console.log(f(1, 3   ))
console.log(f(2, 1, 3))
console.log(f(3, 2, 6))

console.log('[Falsy]')
console.log(f(1, 6            ))
console.log(f(5, 4, 2         ))
console.log(f(3, 1, 4         ))
console.log(f(5, 4, 6, 2      ))
console.log(f(1, 2, 3, 4, 5, 6))

W jaki sposób?

Poniżej znajdują się uproszczone wersje głównego wyrażenia zgodnie z liczbą podanych parametrów, niezdefiniowane zmienne są wymuszane na 0 lub fałsz :

# of param. | simplified expression        | comment
------------+------------------------------+---------------------------------------------
     1      | !(a % 7) ^ 1                 | always true
     2      | !((a ^ b) % 7) ^ 1           | false for (1,6), (2,5) and (3,4)
     3      | !((a ^ b ^ c) % 7)           | see the table below
     4+     | !(d | (a ^ b ^ c) % 7)       | always false

NB : Kolejność (a, b, c) nie ma znaczenia, ponieważ zawsze są razem XOR.

Najtrudniejszy przypadek to trzeci przypadek. Oto tabela pokazująca wszystkie możliwe kombinacje:

a | b | c | a^b^c | %7 | =0? | faces that sum to 7
--+---+---+-------+----+-----+--------------------
1 | 2 | 3 |   0   |  0 | Yes | none
1 | 2 | 4 |   7   |  0 | Yes | none
1 | 2 | 5 |   6   |  6 | No  | 2 + 5
1 | 2 | 6 |   5   |  5 | No  | 1 + 6
1 | 3 | 4 |   6   |  6 | No  | 3 + 4
1 | 3 | 5 |   7   |  0 | Yes | none
1 | 3 | 6 |   4   |  4 | No  | 1 + 6
1 | 4 | 5 |   0   |  0 | Yes | none
1 | 4 | 6 |   3   |  3 | No  | 1 + 6
1 | 5 | 6 |   2   |  2 | No  | 1 + 6
2 | 3 | 4 |   5   |  5 | No  | 3 + 4
2 | 3 | 5 |   4   |  4 | No  | 2 + 5
2 | 3 | 6 |   7   |  0 | Yes | none
2 | 4 | 5 |   3   |  3 | No  | 2 + 5
2 | 4 | 6 |   0   |  0 | Yes | none
2 | 5 | 6 |   1   |  1 | No  | 2 + 5
3 | 4 | 5 |   2   |  2 | No  | 3 + 4
3 | 4 | 6 |   1   |  1 | No  | 3 + 4
3 | 5 | 6 |   0   |  0 | Yes | none
4 | 5 | 6 |   7   |  0 | Yes | none

Alt. wersja nr 1, 32 bajty

Pobiera dane wejściowe jako tablicę. Zwraca wartość logiczną.

a=>a.every(x=>a.every(y=>x+y-7))

Przypadki testowe

let f =

a=>a.every(x=>a.every(y=>x+y-7))

console.log('[Truthy]')
console.log(f([6]      ))
console.log(f([6, 2]   ))
console.log(f([1, 3]   ))
console.log(f([2, 1, 3]))
console.log(f([3, 2, 6]))

console.log('[Falsy]')
console.log(f([1, 6]            ))
console.log(f([5, 4, 2]         ))
console.log(f([3, 1, 4]         ))
console.log(f([5, 4, 6, 2]      ))
console.log(f([1, 2, 3, 4, 5, 6]))

Alt. wersja # 2, Chrome / Firefox, 34 bajty

Ten nadużywa metod sortowania w Chrome i Firefox. Nie działa z Edge.

Pobiera dane wejściowe jako tablicę. Zwraca 0lub 1.

a=>a.sort((a,b)=>k&=a+b!=7,k=1)&&k

Przypadki testowe

let f =

a=>a.sort((a,b)=>k&=a+b!=7,k=1)&&k

console.log('[Truthy]')
console.log(f([6]      ))
console.log(f([6, 2]   ))
console.log(f([1, 3]   ))
console.log(f([2, 1, 3]))
console.log(f([3, 2, 6]))

console.log('[Falsy]')
console.log(f([1, 6]            ))
console.log(f([5, 4, 2]         ))
console.log(f([3, 1, 4]         ))
console.log(f([5, 4, 6, 2]      ))
console.log(f([1, 2, 3, 4, 5, 6]))

Haskell , 24 bajty

-3 bajty dzięki H.PWiz.

f l=all(/=7)$(+)<$>l<*>l

Wypróbuj online!

Wyjaśnienie

f l=all(/=7)$(+)<$>l<*>l

f l=                      -- make a function f that takes a single argument l
             (+)<$>l<*>l  -- take the sum of each pair in the cartesian product...
    all(/=7)$             -- ...and check if they're all inequal to 7

APL (Dyalog) , 7 bajtów

~7∊∘.+⍨

Wypróbuj online!

∘.+⍨ - tabela dodatków (każdy element z każdym elementem)

7∊ - 7 istnieje?

~ - negować

APL (Dyalog) , 7 bajtów

⍬≡⊢∩7-⊢

Wypróbuj online!

7-⊢ - odejmij każdy element od 7

⊢∩ - przecinają się z oryginalną tablicą

⍬≡ - pusty?

R , 27 bajtów

dzięki Gregorowi za naprawienie błędu

function(d)!any((7-d)%in%d)

Wypróbuj online!

Odpowiedź Porta Chasa Browna . Operacje wektoryzacji pomagają znacznie skrócić to w R.

Mathematica, 20 bajtów

xFreeQ[#+x&/@x,7]

jest\[Function]

-12 bajtów od Martina Endera
-7 bajtów od Miszy Ławrow

Wypróbuj online!

Haskell , 26 bajtów

f x=null[1|7<-(+)<$>x<*>x]

Wypróbuj online!

Pyth , 5 bajtów

!@-L7

Wypróbuj tutaj.

Właściwie 8 bajtów

;∙♂Σ7@cY

Wypróbuj online! (uruchamia wszystkie przypadki testowe)

Wyjaśnienie:

;∙♂Σ7@cY
;∙        Cartesian product with self
  ♂Σ      sum all pairs
    7@c   count 7s
       Y  logical negate

Łuska , 5 bajtów

Ëo≠7+

Wypróbuj online!

Wyjaśnienie

Ëo     Check that the following function gives a truthy value for all pairs 
       from the input.
    +    Their sum...
  ≠7     ...is not equal to 7.

Siatkówka , 21 20 bajtów

O`.
M`1.*6|2.*5|34
0

Wypróbuj online! Link zawiera przypadki testowe. Edycja: Zapisano 1 bajt dzięki @MartinEnder. Wyjaśnienie:

O`.

Posortuj dane wejściowe.

M`1.*6|2.*5|34

Sprawdź parę przeciwnych stron (sortowanie 3 i 4 obok siebie). Zwraca 1 za nieprawidłową kostkę lub 0 za prawidłową.

0

Logicznie zaneguj wynik.

Galaretka , 5 bajtów

7_f⁸Ṇ

Wypróbuj online!

Port Chas Browna odpowiedź .

Wyjaśnienie

7_f⁸Ṇ
7_    Subtract each element from 7
  f⁸  Filter with the original list
    Ṇ Check if empty 

Alice , 18 bajtów

/..y1nr@ 
\iReA6o/

Wypróbuj online!

Drukuje Jabberwockyprawidłowe dane wejściowe i nic poza tym.

Wyjaśnienie

Rozwijając zygzakowaty przepływ sterowania, program jest naprawdę po prostu:

i.e16r.RyAno

i.  Read all input and duplicate it.
e16 Push "16".
r   Range expansion to get "123456".
.R  Duplicate and reverse.
y   Transliterate, replaces each face with its opposite.
A   Intersection with input.
n   Logical NOT, turns empty strings into "Jabberwocky"
    and everything else into an empty string.

Pyth , 5 bajtów

-7sM*

Zestaw testowy.

isaacg zapisał bajt!

Ruby , 36 31 24 23 bajtów

->l{l-l.map{|x|7-x}==l}

Wypróbuj online!

To było takie proste, cały czas szukałem rozwiązania niewłaściwego problemu.

05AB1E , 5 bajtów

7αå_P

Wypróbuj online!

Wyjaśnienie

7α      # absolute difference between 7 an each in input list
  å     # check each element if it exist in input
   _    # logical negate
    P   # product of list

Jeden z kilku sposobów, aby to zrobić w 5 bajtach w 05AB1E

Perl 5 , 51 + 1 ( -a) = 52 bajty

say$F[0]+($t=$F[1])-7&&$F[0]+$t-7&&$t+$F[2]-7&&@F<4

Wypróbuj online!

Siatkówka , 20 bajtów

T`_654`d
M`(.).*\1
0

Wypróbuj online!

Alternatywa dla podejścia Neila.

Wyjaśnienie

T`_654`d

Skręć w 6, 5, 4na 1, 2, 3, odpowiednio.

M`(.).*\1

Spróbuj znaleźć powtarzające się postacie i policz liczbę dopasowań.

0

Upewnij się, że wynik był zerowy (faktycznie logiczna negacja).

Java (OpenJDK 8) , 43 bajty

l->l.stream().noneMatch(x->l.contains(7-x))

Wypróbuj online!

GNU sed , 37 22 + 1 = 23 bajty

+1 bajt dla -rflagi. Pobiera dane wejściowe jako cyfry; wypisuje dane wejściowe dla prawdy i 0fałszu.

-10 bajtów dzięki @MartinEnder.

y/123/654/
/(.).*\1/c0

Wypróbuj online!

Wyjaśnienie

Podobne do odpowiedzi Alicji @ MartinEndera .

y/123/654/   # Transliterate 1-3 to 6-4
/(.).*\1/c0  # If a digit appears twice, replace the pattern space with 0

Perl 6 , 18 bajtów

!(1&6|2&5|3&4∈*)

Wypróbuj online!

1 & 6 | 2 & 5 | 3 & 4to skrzyżowanie składające się z liczb 1 i 6, LUB liczb 2 i 5, LUB liczb 3 i 4. To połączenie jest elementem ( ∈) listy wejściowej, *jeśli zawiera 1 i 6 lub 2 i 5 lub 3 oraz 4. Ten wynik jest następnie negowany ( !), aby uzyskać wymaganą wartość logiczną.

Haskell, 46 41 37 bajtów

f z=all ((/=7).sum) [[x,y]|x<-z,y<-z]

Bierze ze sobą kartezjański produkt z listy, a następnie sprawdza, czy wszystkie wynikowe listy nie sumują się do 7. (Jeśli którakolwiek z nich zsumuje się do 7, widoczne będą przeciwległe twarze, a „nie wszystkie” jest krótsze niż „nie any do ”.)

J , 12 bajtów

7-.@e.[:,+/~

To prawie tak samo, jak pierwsze rozwiązanie APL firmy Uriel

Wypróbuj online!

Formuła IBM / Lotus Notes, 7 bajtów

!7-i*=i

Pobiera dane wejściowe z pola liczbowego o wielu wartościach i.

Rekurencyjnie odejmuje każdą wartość i od 7 i sprawdza, czy jest na oryginalnej liście. ! zmienia 1, jeśli ma wartość 0 (twarze nie są widoczne).

Przypadki testowe (brak dostępnych TIO dla Notes Formula)

Czysty , 49 bajtów

import StdEnv
f l=and[(a+b)<>7\\(a,b)<-diag2 l l]

Wypróbuj online!

Szybki , 46 bajtów

f(a:Int)->[Int]{!a.contains{a.contains(7-$0)}}

Pobiera dane wejściowe jako [Int](tablica liczb całkowitych) i zwraca wartość Bool(boolean).

Krótkie wyjaśnienie (bez golfa)

f(a:Int)->[Int]{
    !a.contains (where: {n in    // The input doesn't have an element where
        a.contains(7 - n)        //    the opposite side is in the input
    })
}

Clojure , 89 80 72 bajtów

-9 bajtów, ponieważ zdałem sobie sprawę, że użycie reducedjest niepotrzebne

-8 bajtów poprzez zmianę z używania reduce na używaniesome

#(if(< 0(count %)4)(not(some(fn[[a b]](=(+ a b)7))(for[a % b %][a b]))))

Próbowałem to napisać, nie patrząc na sztuczki, których używają inne odpowiedzi. Może uda mi się to poprawić później.

Zwraca truew prawdziwych przypadkach, falsejeśli którakolwiek ze stron sumuje się do 7, a nilliczba stron jest nielegalna.

(defn can-see? [dice-sides]
  ; Ensure its a valid length
  (if (< 0 (count dice-sides) 4)

    ; Then check if any of the permutations sum to 7
    (not (some (fn [[a b]]
                 (= (+ a b) 7))

               ; Generate all permutations
               (for [a dice-sides, b dice-sides] [a b])))))