넌 배열 주어진다 을 들 N 과 엄격히 양의 정수 , N ≥ 2 .
당신의 임무는 각 항목 A i 를 다음 에 매핑 하는 것입니다.
- 한 경우 J 개조 난 각 홀수 J 되도록 1 ≤ N ≤ J 및 J ≠ 난
- 두 경우 J 개조 나 심지어 각이다 J 되도록 1 ≤ N ≤ J 및 J ≠ I
- 그렇지 않으면 0 (혼합 패리티)
예
옵션 A = [73, 50, 61] , 우리가있다 :
- 50 모드 73 = 50 , 61 모드 73 = 61 → 혼합
- 73 mod 50 = 23 , 61 mod 50 = 11 → 모두 홀수
- 73 모드 61 = 12 , 50 모드 61 = 50 → 모두 짝수
따라서 예상 출력은 [0, 1, 2] 입니다.
규칙
- 일관된 한 0 , 1 및 2 대신 3 가지 고유 한 값 (모든 유형)을 사용할 수 있습니다 . 챌린지에 설명 된 것을 사용하지 않는 경우 매핑을 지정하십시오 .
- 그것에 대해 의심이 있다면, 0도 짝수 입니다.
- 이것은 code-golf 이므로 바이트 단위의 최단 답변이 이깁니다!
테스트 사례
[ 1, 2 ] --> [ 2, 1 ]
[ 3, 4 ] --> [ 1, 1 ]
[ 1, 2, 3 ] --> [ 2, 1, 0 ]
[ 4, 4, 4 ] --> [ 2, 2, 2 ]
[ 73, 50, 61 ] --> [ 0, 1, 2 ]
[ 941, 459, 533 ] --> [ 1, 0, 0 ]
[ 817, 19, 928, 177 ] --> [ 1, 2, 1, 1 ]
[ 312, 463, 336, 729, 513 ] --> [ 0, 2, 0, 0, 0 ]
[ 53, 47, 33, 87, 81, 3, 17 ] --> [ 0, 0, 0, 1, 0, 2, 0 ]
답변
파이썬 2 , 68 67 66 바이트
Xcoder
덕분에 -1 바이트 ovs 덕분에 -1 바이트
x=input()
for j in x:k=sum(i%j%2for i in x);print(k<len(x)-1)+0**k
대신를 반환 1,0,2
합니다 0,1,2
.
답변
젤리 , 9 바이트
%þœ-€0Ḃ‘Ṭ
0, 1, 2 대신 [1, 1], [0, 1], [1]을 반환합니다 . 합니다.
작동 원리
%þœ-€0Ḃ‘Ṭ Main link. Argument: A (array)
%þ Build the modulus table.
œ-€0 Remove one 0 from each list of moduli.
Ḃ Take the last bit of each.
‘ Increment, mapping 0 and 1 to 1 and 2.
Ṭ Untruth; map each array to an aray of 1's at the specified indices.
This yields:
[1] if the array contains only 1's (all even).
[0, 1] if the array contains only 2's (all odd).
[1, 1] if the array contains 1's and 2's.
답변
MATL , 12 바이트
!G\o~tAws1=-
이 용도 0
, -1
, 1
대신 0
, 1
, 2
각각.
온라인으로 사용해보십시오! 또는 모든 테스트 사례를 확인하십시오 .
설명
! % Implicit input: row vector. Transpose into a column
G % Push input again
\ % Modulus, element-wise with broadcast. Gives a square matrix
o % Parity: gives 1 for odd, 0 for even
~ % Logical negate: 0 for odd, 1 for even
t % Duplicate
A % All: gives 1 for columns that contain only 1
w % Swap
s % Sum of each column
1 % Push 1
= % Is equal? Gives 1 if the column sum was 1, 0 otherwise
- % Subtract, element-wise. Implicit display
답변
C (GCC) , 118 (114) 97 92 91 바이트
- 버그 수정에 대한 Peter Cordes 에게 감사합니다 .
- 저장된
사이십일이 덕분에 바이트 피터 코르을 ; 다른 출력값 매핑을 사용하도록 제안;[0 1 2] ~ [3 2 1]
. - 5 바이트를 절약했습니다. 또 다른 매핑을 사용하는 것;
[0 1 2] ~ [ ]
. - 바이트를 저장했습니다. 에 골프
for(i=0;i<n;i++,putchar...
를 쳤다for(i=~0;++i<n;putchar...
.
i,j,r;f(A,n)int*A;{for(i=~0;++i<n;putchar(r)){for(j=r=0;j<n;j++)j-i&&(r|=1<<A[j]%A[i]%2);}}
답변
매스 매 티카, 57 49 48 바이트
(s=#;And@@#.Or@@#&@OddQ@Rest@Sort[s~Mod~#]&)/@#&
이것은 다음을 반환합니다.
False.True
대 0 (혼합)True.True
대 1 (홀수)를False.False
에 대한 2 (모든 짝수)
약간 더 긴 대안 (49 바이트)이 있습니다.
Sign[(s=#;Tr@Mod[s~Mod~#,2]&)/@#/.Tr[1^#]-1->-1]&
이것은 다음을 반환합니다.
1
대 0 (혼합)-1
대 1 (홀수)를0
에 대한 2 (모든 짝수)
답변
빨강 , 101 바이트
g: func[b][foreach n b[a: copy[]foreach m b[append a m % n % 2]sort a a: copy next a print unique a]]
반환 1 0
혼합에, 1
홀수 및 0
도에 대한
g: func[b] [
foreach n b [
a: copy []
foreach m b [
append a m % n % 2
]
sort a
a: copy next a
print unique a
]
]
답변
자바 스크립트 (ES6), 46 바이트
a=>a.map(A=>a.map(B=>d+=B%A%2,d=0)|!a[d+1]-!d)
-1 (짝수), 1 (홀수) 및 0 (혼합)을 반환합니다.
작동 방식 :
d
축적이 될 것입니다 :
- 모두 모듈러스이면 0입니다. (
!a[d+1]
== false,!d
== 1,false - 1
== -1 ) - 하나 개 이하 * 홀수 계수 만약 어레이의 길이보다. ( * 누산기는 자체에 대해 변조 된 요소를 포함하므로 하나의 계수도 생성됩니다 .) (
!a[d+1]
== true,!d
== 0,true - 0
== 1 ) - 혼합 된 경우 배열의 길이보다 두 개 이상 짧습니다. (
!a[d+1]
== false,!d
== 0,false - 0
== 0 )
테스트 사례 :