n≥2のn個の厳密に正の整数の配列Aが与えられます。

あなたの仕事は、各エントリA _iを以下にマップすることです：

• 1場合A _J MOD A _iが各奇数であるJように1≤J≤N及びJ≠I
• A _j mod A _iが1≤j≤nかつj≠iであるようなjごとに偶数の場合は2
• そうでない場合は0（混合パリティ）

例

用A = [73、50、61] 、我々が持っています：

• = 50 MOD 73 50、61 MOD 73 = 61 →混合
• = 73 MOD 50 23、61 MOD 50 = 11 →すべての奇数
• = 73 MOD 61 12、50 MOD 61 = 50 →全ての偶数

したがって、予想される出力は[0、1、2]です。

ルール

• あなたは、任意の三つの異なる（任意の型の）値の代わりに使用することができます0、1と2を、彼らは一貫している限り。チャレンジで説明されているマッピングを使用していない場合は、マッピングを指定してください。
• それについて疑問がある場合、ゼロは偶数です。
• これは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 ]

Pythonの2、68の 67 66バイト

^{Mr. 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に感謝します。
• Peter Cordesのおかげで4つの 21バイトを節約しました。別の出力値マッピングを使用することを提案します。。[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);}}

オンラインでお試しください！

Mathematica、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
    ]
]

JavaScript（ES6）、46バイト

a=>a.map(A=>a.map(B=>d+=B%A%2,d=0)|!a[d+1]-!d)

-1（偶数）、1（奇数）、および0（混合）を返します。

使い方：

の dアキュムレータは次のようになります。

1. すべてのモジュラスがゼロの場合。（!a[d+1]== false、!d== 1、false - 1== -1）
2. モジュラスがすべて奇数の場合、配列の長さより1つ少ない^*。（^*アキュムレータには、それ自体に対してモジュラス化された要素が含まれ、1つの偶数モジュラスになります。）（!a[d+1]== true、!d== 0、true - 0== 1）
3. ミックスの場合、配列の長さよりも2つ以上短い。（!a[d+1]== false、!d== 0、false - 0== 0）

テストケース：

let f=

a=>a.map(A=>a.map(B=>d+=B%A%2,d=0)|!a[d+1]-!d)

console.log(f([ 1, 2 ] ) + ''); // [ -1, 1 ]
console.log(f([ 3, 4 ] ) + ''); // [ 1, 1 ]
console.log(f([ 1, 2, 3 ] ) + ''); // [ -1, 1, 0 ]
console.log(f([ 4, 4, 4 ] ) + ''); // [ -1, -1, -1 ]
console.log(f([ 73, 50, 61 ] ) + ''); // [ 0, 1, -1 ]
console.log(f([ 941, 459, 533 ] ) + ''); // [ 1, 0, 0 ]
console.log(f([ 817, 19, 928, 177 ] ) + ''); // [ 1, -1, 1, 1 ]
console.log(f([ 312, 463, 336, 729, 513 ] ) + ''); // [ 0, -1, 0, 0, 0 ]
console.log(f([ 53, 47, 33, 87, 81, 3, 17 ] ) + ''); // [ 0, 0, 0, 1, 0, -1, 0 ]

J、27 20バイト

[:<@~.@}:@\:"1~2||/~

オンラインでお試しください！

0 1 2の代わりに[1 0] [1] [0]を使用します

説明：

|/~ -剰余を含むテーブルを作成します。

  |/~ 73 50 61 
 0 50 61
23  0 11
12 50  0

2|奇数または偶数？：

   2||/~ 73 50 61 
0 0 1
1 0 1
0 0 0

<@~.@}:@\:"1 -並べ替え、最後の要素をドロップ（常にゼロ）、元の要素を保持し、各行をボックス化します。

   <@~.@}:@\:"1~2||/~ 73 50 61 
┌───┬─┬─┐
│1 0│1│0│
└───┴─┴─┘

ルビー、58 56バイト

->r{r.map{m=r.shift;s=r.map{|e|e%m%2}.uniq.sort;r<<m;s}}

戻り値[0、1]、[1]、[0]の代わりに、0、1、2（すなわち、[0]もすべてについて、[1]すべての奇数とするため[0、1]の混合のために）。

オンラインでお試しください！

Perl、38バイト

含み+3のために-p

#!/usr/bin/perl -p
s/\d+/$@|=$_%$&%2+1for<$`$'>;$@/gee

出力はすべて偶数、2はすべて奇数、3は混合

クリーン、95 65 63バイト

import StdEnv

\l=[sum(removeDup[-1^(j rem i)\\j<-l|j<>i])\\i<-l]

オンラインでお試しください！

ラムダとして、を取得[Int]して返し[Int]、次へのマッピング：

• 0：混合
• 1：すべて均等
• -1：すべて奇数

Perl 5の、71 69 + 1（-a）= 70バイト

map{//;$j=$s='';$j++-$i&&($s+=$_%$'&1)for@F;say$s?0|$s==$#F:2;$i++}@F

オンラインでお試しください！

パリ/ GP、42バイト

a->[[!s=vecsum([x%y%2|x<-a]),s>#a-2]|y<-a]

の[0, 0], [0, 1], [1, 0]代わりに返します0, 1, 2。

オンラインでお試しください！

Java 8、91 89バイト

a->{for(int z:a){int s=1;for(int y:a)s+=y%z%2;System.out.print(" "+(s<a.length)+(s<2));}}

• のtruetrue代わりに2偶数の
• のfalsefalse代わりに1奇数の
• 混合のtruefalse代わりに使用0

説明：

オンラインでお試しください。

a->{                      // Method with integer-array parameter and no return-type
  for(int z:a){           //  Loop over the array
    int s=1;              //   Sum-integer, starting at 1
    for(int y:a)          //   Inner loop over the array again
      s+=y%z%2;           //    Increase the sum by `y` modulo-`z` modulo-2
    System.out.print(" "  //   Print a space
      +(s<a.length)       //    + "true" if the sum is smaller than the length of the array
                          //      (this means there is at least one even)
      +(s<2));}}          //    + "true" if the sum is still 1
                          //      (this means all are even)

Clojure、82バイト

#(for[R[(range(count %))]i R](set(for[j R :when(not= i j)](odd?(mod(% j)(% i))))))

出力変換の完全な例：

(def f #(for[R[(range(count %))]i R](set(for[j R :when(not= i j)](odd?(mod(% j)(% i)))))))
(->> [ 53, 47, 33, 87, 81, 3, 17] f
     (map {#{true} 1, #{false} 2, #{true false} 0}))
; (0 0 0 1 0 2 0)