介绍：

我想我们都听说过，但这里有一个简短的摘要：诺亚在大洪水中收集了地球上每种动物的两种，雄性和雌性，保存在他的方舟中。圣经中的实际引用是：

创世记7：2-3
你必须带走每种清洁动物中的七只，雄性及其伴侣，每种不清洁动物中的两只，雄性及其伴侣，以及天空中每种鸟类中的七种，无论雌雄，都将其后代保存在地球上。
^资源

但是为了这个挑战，我们将忽略干净/不干净的部分以及他为每只动物取七个的部分。此挑战仅涉及以下部分：

每种不洁动物中的两种，雄性及其伴侣

挑战：

输入：

您会得到一个正整数列表（随机顺序）。

输出：

两个不同的值指示它是否是“诺亚列表”。这并不一定非得是truthy / falsey价值，所以也可能是0/ 1是Java / C＃，或'A'/ 'B'以任何语言，举一些例子。

什么时候是“挪亚榜”？当列表中每个整数正好有两个时。

挑战规则：

• I / O是灵活的。输入可以是整数/浮点数/字符串的列表/数组/流，也可以从STDIN逐一读取。输出可以是从函数返回或输出到STDOUT /文件的任何两个不同的值。
• 在输入列表中的整数是随机顺序，并保证是该范围内的正$1\leq n\leq100000$。
• 输入列表保证为非空。
• 如果整数大于2（即4、6、8等），将是错误的。即[6,4,4,6,4,7,4,7]是假的，尽管您仍然可以像这样创建相等的对：[[4,4],[4,4],[6,6],[7,7]]。

一般规则：

• 这是代码高尔夫球，因此最短答案以字节为单位。
  不要让代码高尔夫球语言阻止您发布使用非代码高尔夫球语言的答案。尝试针对“任何”编程语言提出尽可能简短的答案。
• 标准规则适用于具有默认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个字节

-6字节归功于digEmAll通过更改输入法

any(table(scan())-2)

在线尝试！

FALSE如果是Noah列表，则输出，TRUE否则输出。适用于任何输入类型，不仅限于整数。

计算列表中每个值的计数，并检查计数是否与2不同。

APL（Dyalog扩展），5 字节^SBCS

2¨≡⍧⍨

在线尝试！

确实是…

 2¨ 每个元素两个

 ≡ 等同于

 ⍧⍨ 签到自拍照（自身中自身元素的数量）

？

C＃（Visual 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]

在线尝试！

对于输入的每个元素，我们确保它在输入列表中出现两次。

sum[1|b<-x,b==a]只是的高尔夫版本length(filter(==a)x)。

Perl 6、18个字节

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

在线尝试！

• .Bag将输入列表转换为Bag具有多重性的--a集。
• {*} 提取所有的多重性。
• .all 创建多重性的和。
• == 2 导致另一个布尔数和连接点，如果多重性为2，则每个布尔数为true。
• 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

在线尝试！

感谢@KevinCruijssen提供12个字节，而@nimi提供4个字节。

Haskell的第一个答案，但它非常容易做到。可以或许被golfed很多。举个例子...

JavaScript（ES6），37个字节

返回假诺亚或真非诺亚。

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减法（即它们都是真的吗？）

PowerShell，66 37 26字节

^{-11个字节，感谢mazzy}

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

在线尝试！

分组$l并获取所有匹配值的计数。然后从该列表中筛选出所有计数2。如果列表为空，则为Noah号。否则，它仍将填充非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基本（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列表时才为true。

还需要另外检查列表的长度是否为偶数，以捕获某些边缘情况。

以下是一些测试用例的屏幕截图：

朱莉娅1.0，32字节

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

在线尝试！

l用转置将输入数组的每个元素除以l'给出矩阵。如果每个元素正好出现两次isone，l则对该矩阵求和得出的长度是其两倍。

K（oK），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Ạ

在线尝试！

单值链接，该链接采用整数列表，如果诺亚列表返回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的工作原理主要类似于二阶逻辑语句。

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

由于您无法TIO VDM，因此这里是调试会话的输出

Elixir，52字节

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

在线尝试！

在这里完整Elixir noob :-D。

MATL，6个字节

8#uqqa

在线尝试！

0代表真实，1代表虚假。Ports Robin Ryder的答案。

MATL，6个字节

&=s2=A

在线尝试！

1代表真实，0代表虚假。Ports Luis Mendo的答案。

Ruby，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

Bash，26个字节

如果列表为Noah，则退出代码为非零。

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

在线尝试！