前書き：

聞いたことがあると思いますが、ここで非常に簡単な要約を示します。ノアは、大洪水時に箱舟に救うために、地球上のあらゆる種類の動物、オスとメスの2種を集めました。聖書からの実際の引用は次のとおりです。

創世記7：2-3
あらゆる種類のきれいな動物7匹、オスとその仲間、あらゆる種類の汚れた動物2匹、オスとその仲間、空にあるあらゆる種類の鳥7匹、雄と雌、地球の表面に子孫を保存します。
^ソース

しかし、この挑戦​​のために、私たちはきれいな/汚れた部分と彼が各動物の7つを取った部分を無視します。この課題は、この部分についてのみです。

あらゆる種類の汚れた動物のうち2 匹、オスとその仲間

チャレンジ：

入力：

正の整数のリストが（ランダムな順序で）与えられます。

出力：

「ノアのリスト」であるかどうかを示す2つの異なる値。これは必要ないする必要がtruthy / falseyのようにも可能性があり、値0/ 1のJava / C＃で、または'A'/ 'B'いくつかの例を与えるために、任意の言語で。

リストはいつ「ノアのリスト」ですか？リスト内の整数が正確に2つある場合。

チャレンジルール：

• I / Oは柔軟です。入力は、整数/浮動小数点数/文字列のリスト/配列/ストリーム、またはSTDINから1つずつ読み取ることができます。出力は、関数またはSTDOUT /ファイルへの出力から返される2つの異なる値です。
• 入力リスト内の整数をランダムな順序であり、その範囲内で陽性であることが保証されている$1\leq n\leq100000$。
• 入力リストは空でないことが保証されています。
• 2を超える整数（2、4、6、8など）が存在することは誤りです。つまりは、[6,4,4,6,4,7,4,7]あなたはまだこのような同等のペアを作成することができますが、falseyです[[4,4],[4,4],[6,6],[7,7]]。

一般的なルール：

• これはcode-golfであるため、バイト単位の最短回答が優先されます。
  コードゴルフ言語では、非コードゴルフ言語で回答を投稿しないようにしてください。「任意の」プログラミング言語の可能な限り短い答えを考えてみてください。
• デフォルトのI / Oルールを使用した回答には標準ルールが適用されるため、STDIN / STDOUT、関数/メソッド、適切なパラメーターおよび戻り値型、完全なプログラムを使用できます。あなたの電話。
• デフォルトの抜け穴は禁止されています。
• 可能であれば、コードのテスト（TIOなど）へのリンクを追加してください。
• また、回答の説明を追加することを強くお勧めします。

テストケース：

Truthy:
[7,13,9,2,10,2,4,10,7,13,4,9]
[1,2,3,1,2,3]
[10,100,1000,1,100,10,1000,1]
[123,123]
[8,22,57189,492,22,57188,8,492,57188,57189,1,1]

Falsey:
[6,4,4,6,4,7,4,7]
[2,2,2,2,2,2]
[5,1,4,5,1,1,4]
[77,31,5,31,80,77,5,8,8]
[1,2,3,2,1]
[44,4,4]
[500,30,1]
[1,2,1,1]
[2,4,6,4,4,4]
[2,23,34,4]
[2,23,3,3,34,4]

Python 3、31バイト

lambda l:{*map(l.count,l)}=={2}

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

Python 2、33バイト

lambda l:set(map(l.count,l))=={2}

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

05AB1E、4バイト

¢<PΘ

オンラインでお試しください！ またはテストスイートとして

説明

¢      # count all occurrences of each element in the input list
 <     # decrement each
  P    # product
   Θ   # is equal to 1

Brachylog、4バイト

ọtᵛ2

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

説明

ọ           Get the list of occurences of elements in the input: [[x,2], [y,2], …]
  ᵛ         Verify that for each of those pairs…
 t          …the tail (i.e. the number of occurences)
   2        …is 2

R、20バイト

入力メソッドの変更によるdigEmAllのおかげで-6バイト

any(table(scan())-2)

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

FALSEノアのリストである場合に出力し、TRUEます。整数だけでなく、あらゆる入力タイプで機能します。

リスト内の各値のカウントを計算し、カウントのいずれかが2と異なるかどうかを確認します。

APL（Dyalog Extended）、5 バイト^SBCS

2¨≡⍧⍨

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

本当ですか…

 2¨ 各要素に2つ

 ≡ と同じです

 ⍧⍨ カウントイン自撮り（自分自身の要素の数）

？

C＃の（ビジュアルC＃インタラクティブコンパイラ）、39、32のバイト

l=>l.All(x=>l.Count(y=>y==x)==2)

@Expired_Dataに感謝

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

Haskell、33バイト

f x=and[sum[1|b<-x,b==a]==2|a<-x]

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

入力の各要素について、入力リストに2回表示されるようにします。

sum[1|b<-x,b==a]は単なるゴルファーバージョンですlength(filter(==a)x)。

Perl 6、18バイト

{so.Bag{*}.all==2}

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

• .Bag入力リストをBag---多重度を持つセットに変換します。
• {*} すべての多重度を抽出します。
• .all 多重度の論理積を作成します。
• == 2 多重度が2の場合、それぞれが真となる別の論理積の論理積になります。
• so ジャンクションを単一のブールに折りたたみます。

J、10バイト

[:*/2=#/.~

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

MS SQLサーバ2017、152の 150 146バイト

CREATE FUNCTION f(@ NVARCHAR(MAX))RETURNS
TABLE RETURN SELECT IIF(2=ALL(SELECT
COUNT(*)FROM STRING_SPLIT(@,',')GROUP BY
PARSE(value AS INT)),1,0)r

読み取り可能なバージョン：

CREATE FUNCTION f(@ NVARCHAR(MAX)) RETURNS TABLE RETURN
  SELECT IIF(2 = ALL(SELECT COUNT(*)
                     FROM STRING_SPLIT(@, ',')
                     GROUP BY PARSE(value AS INT)), 1, 0) AS r

SQL Fiddleで試してみてください！

-2バイト、Kevin Cruijssenのおかげ

Haskell、61 45バイト

import Data.List
all((2==).length).group.sort

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

12バイトの@KevinCruijssenと、さらに4バイトの@nimiに感謝します。

Haskellの最初の答えですが、驚くほど簡単にできました。おそらくたくさんゴルフができます。適例...

JavaScript（ES6）、37バイト

Noahに対してfalseを返しますまたは真の非ノアのために。

a=>a.some(v=>a.map(x=>t-=v==x,t=2)|t)

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

コメント済み

a =>               // a[] = input
  a.some(v =>      // for each value v in a[]:
    a.map(x =>     //   for each value x in a[]:
      t -= v == x, //     decrement t if v is equal to x
                   //     (i.e. if v appears exactly twice, t is decremented twice)
      t = 2        //     start with t = 2
    )              //   end of map()
    | t            //   yield t, which is supposed to be equal to 0
  )                // end of some()

APL（Dyalog Unicode）、8バイト ^SBCS

匿名の暗黙の接頭辞関数。返品0/を1。

∧/2=⊢∘≢⌸

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

…⌸  左引数としての各値と、右引数としてのその値の出現のインデックスに対して、以下を呼び出します。

 ≢ 正しい引数（オカレンス）を集計して
 ∘ から
 ⊢  してから、左側の引数を無視して返します

 2= どの集計が2であるかを示すブールリスト

 ∧/ AND-reduction（つまり、それらはすべて本当ですか？）

PowerShell、66 37 26バイト

^{マジーのおかげで-11バイト}

!(($args|group|% c*t)-ne2)

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

グループ化して$l、一致する値のすべてのカウントを取得します。次に、このリストから2のすべてのカウントを除外します。リストが空の場合、ノア番号です。それ以外の場合は、まだ2以外のカウントが入力されます。リストに何TrueもFalse入力しないと、空の場合と生成された場合に生成されます

PHP、60バイト

function($a){return!array_diff(array_count_values($a),[2]);}

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

PHPにはこのための優れた組み込み機能がありますが、20文字でarray_count_values()はありますが、それほどゴルフには適していません。

Mathematica、25 24バイト

MatchQ[{{_,2}..}]@*Tally

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

このTally関数は、フォームのリストを返します。このリストは、すべてのカウントが2 かどうかをチェックするパターンと照合されます。{{element, count}, ...}

アタッシェ、16バイト

${All&x!{_~x=2}}

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

説明

${All&x!{_~x=2}}
${             }    lambda with input x
  All&x!{     }     over each element _ of x:
         _~x            check that the number of occurrences of _ in x
            =2          is 2

代替案

17バイト： {All&_!`=&2@`~&_}

18バイト： {All[`=&2@`~&_,_]}

23バイト： Same@2&`'@Sum@Table[`=]

25バイト： Same«2'Sum@Table[`=,_]»

25バイト： Same<~2'Sum@Table[`=,_]~>

25バイト： {Same[2'Sum@Table[`=,_]]}

35バイト： {Commonest@_==Unique@_and _[0]~_=2}

TI-Basic、47バイト

Input(L1
SortA(L1
not(remainder(dim(L1,2)) and prod(not(△List(L1))=seq(remainder(I,2),I,1,-1+dim(L1

私はTI-Basicの大ファンです。本当にどんな目的にも適した言語ではありませんが、プログラミング（およびゴルフ）を楽しんでいます。

このコードはどのように機能しますか？

まず、リストをソートします。

次に、△List関数を使用して、ソートされたリストの要素間の差である別のリストを生成します。（たとえば、△List（{1,3,7,8}）は{2,4,1}を生成します）。リストのすべての非ゼロ要素をゼロに、すべてのゼロを1に変換するこのリストには適用されません。

次に、プログラムは結果のリストがパターンに適合することを確認します {1, 0, 1, 0, ...}に。これは、元のリストがNoahリストである場合にのみ真になります。

いくつかのエッジケースをキャッチするために、リストの長さが均等であるという追加のチェックもあります。

テストケースのスクリーンショットを次に示します。

ジュリア1.0、32バイト

l->sum(isone,l./l')/length(l)==2

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

入力配列の各要素をl転置でl'除算し、行列を生成します。isone各要素に適用しながらこの行列を合計するとl、各要素が正確に2回現れる場合の長さが2倍になります。

K（オーケー）、9バイト

溶液：

&/2=#:'.=

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

説明：

&/2=#:'.= / the solution
        = / group
       .  / value
    #:'   / count (length of) each
  2=      / equal to 2?
&/        / take minimum

ジュリア、30文字 26バイト

!a=all(x->2==sum(a.==x),a)

このトリックをありがとう、H.PWiz！

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

ゼリー、5バイト

ĠẈ=2Ạ

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

整数のリストを受け取り、Noahリストの場合は1を返し、そうでない場合は0を返すモナドリンク。

VDM-SL、64バイト

f(a)==forall y in set inds a&card{x|x in set inds a&a(x)=a(y)}=2

説明

VDMは、主に2次論理ステートメントのように機能します。

forall y in set inds a                //Bind y to each of the indices of a

{x|x in set inds a&a(x)=a(y)}         //build a set of the indices of a who have the same
                                      //value as the value at y

card {...} = 2                        //and check the cardinality of that set is 2

VDMをTIOできないので、デバッグセッションからの出力を次に示します。

エリクサー、52バイト

fn v->Enum.all?v,fn x->2==Enum.count v,&x==&1end end

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

ここでエリクサーnoobを完了します:-D。

MATL、6バイト

8#uqqa

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

真実の場合は0、偽の場合は1。ポートス・ロビン・ライダーの答え。

MATL、6バイト

&=s2=A

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

真実の場合は1、偽の場合は0。ポート・ルイス・メンドーの答え。

ルビー、29バイト

->a{a.all?{|e|a.count(e)==2}}

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

Kotlin、96 77 69 51バイト

fun f(t:List<Int>)=t.count{t.count{i->it==i}!=2}==0

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

Excel、45バイト

=SUM(IF(FREQUENCY(A:A,A:A)=2,1))=COUNT(A:A)/2

列Aのデータを想定します。これは列Aのセル以外のセルに入力されます。ペアがある場合はTRUEを、ペアが一致しない場合はFALSEを返します

        FREQUENCY(A:A,A:A)                     Counts how many of each value there is
     IF(                  =2,1)                If this is 2, add value of 1 to array otherwise 0
=SUM(                          )               Sum the count in that array that have a exactly 2
                                 COUNT(A:A)/2  Count how many total values in column
                                =              If this is equal, return TRUE else FALSE

/ 2を削除して合計に.5を追加しようとしましたが、これは機能しませんでした。
<> 2の頻度を数えてみましたが、これは正しい量を返しませんでした。

オクターブ / MATLAB、22 21バイト

@(x)any(sum(x==x')-2)

数値ベクトルを入力し0、ベクトルが条件を満たしている場合に出力する無名関数または1。

オンラインでお試しください！またはすべてのテストケースを確認します。

説明

@(x)                   % define anonymous function with input x
            x          % x
               x'      % x transposed and conjugated
             ==        % equality comparison, element-wise with broadcast. Gives a
                       % square matrix
        sum(     )     % sum of each column
                  -2   % subtract 2, element-wise
    any(            )  % true if and only if any value is not zero

バッシュ、26バイト

リストがノアのものである場合、終了コードはゼロ以外です。

sort|uniq -c|grep -v ' 2 '

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