超丰数是一个整数n，它为除数和函数 σ的比率设置了一个新的上限。换句话说，当且仅当对于小于n的所有正整数x而言，n才是多余的：
对于一些值：
n σ(n) σ(n)/n superabundant
1 1 1.0000 yes
2 3 1.5000 yes
3 4 1.3333 no
4 7 1.7500 yes
5 6 1.2000 no
6 12 2.0000 yes
7 8 1.1429 no
8 15 1.8750 no
9 13 1.4444 no
这些的较长列表（用于测试用例）可以在OEIS A004394中找到。
一个强烈推荐的否定测试用例（如果您的口译员可以处理的话）是360360，因为它与最后一个多余的数字联系在一起。
您的程序应采用单个正整数，并输出表示该整数是否过多的真实或错误值。
因为这是代码高尔夫球，所以最短的答案以字节为单位。
Answers:
Æs÷$ÞṪ=
Æs÷$ÐṀ⁼W
÷s÷$ÐṀ⁼W〜完整程序（单声道）。
ÐṀ〜保持链接值最大的元素（自动调整范围）。
Æs〜除数之和。
÷$〜除以当前元素。
⁼W〜检查输入是否包装为单例是否相等。
〜（用于360360等整数）
360360？
360360是它失败的第一个数字（我认为），因为它是第一个将之前发生的结果联系起来的数字。（我们的结果将是[0, 1]）
@(n)([~,p]=max((x=1:n)*~mod(x,x')./x))==n@(n) % Define anonymous function of n
x=1:n % Range from 1 to n. Call that x
mod(x,x') % n×n matrix of all pair-wise moduli
~ % Logical negate. True means it's a divisor
( )* % Matrix-multiply x times the above matrix
% (gives the dot product of vector x times
% each column of the matrix)
./x % Divide each column by each entry in x
[~,p]=max( ) % Index of first occurrence of maximum
( )==n % Does it equal n?360360（请参阅挑战以了解更多详细信息：一个强烈推荐的负面测试案例是360360，因为它与最后一个多余的数字相关联。）。
(1#.{:(]*0=|~)])\ 。不过，这出了点问题，也许您有一些想法？
(1#.]*0=|~)1+i.这是一个钩子，虽然不太容易安装：)
LÑOā/ZQ¨_P
说明
L # push range [1 ... input]
Ñ # divisors of each
O # sum of each
ā/ # divide each by its 1-based index
Z # get max
Q # compare to each
¨ # remove the last element
_ # logical negation
P # product
360360（有关更多详细信息，请参阅挑战：一个强烈推荐的否定测试用例是360360，因为它与最后一个多余的数字有关。）。
a=Tr@Divisors@#/#&;AllTrue[a@#-Array[a,#-1],#>0&]&
纯功能。将整数作为输入并返回True或False作为输出。
Tr@Divisors@#吗？
睡眠不足的大脑似乎无法在此方面进一步改善！
返回1真还是0假。
Æâ x÷U >Xâ x÷XÃ×
牺牲了4个字节来处理360360。
U。Æ Ã创建一个从0到的整数数组，U-1并将每个整数通过以下函数传递给X。â得到的除数U。÷U用U。x 对结果求和。Xâ得到的除数X。÷X用X。x 对结果求和。> 检查第一个结果是否大于第二个结果。× 通过乘法减少生成的布尔数组。360360或出现其他整数：一个强烈建议的否定测试用例（如果您的解释程序可以处理）为360360，因为它与最后一个
s(n,j,k){for(j=k=0;j++<n;)k+=n%j?0:j;n=k;}f(n,i,r){for(i=r=0;++i<n;)r=1.*s(n)/n<1.*s(i)/i?:r;r=!r;}
float s(n,j,k){for(j=k=0;j++<n;)k+=n%j?0:j;return k;}f(n,i,r){for(i=r=0;++i<n;)s(n)/n<s(i)/i&&++r;return!r;}
s需要返回浮点数呢？
s(n)/n到s(i)/i。
d=n=>fors=i=0i<=n i++s+=i*!n%i
f=n=>{forc=1c<n c++if(d(n)/n)<=d(c)/c return0 1}
首先定义函数d，即σ函数，这是的高尔夫版本
function d(n){
var s = 0;
for(var i=0; i<n; i++){
if(n%i == 0){
s += i;
}
}
return s;
}我们可以设置我到0，因为i*n%0总是等于0*...，因此0。
下半部分定义了函数f，即Superabandunce函数，它只是
function f(n){
for(var c=1; c<n; c++){
if( (d(n)/n) <= (d(c)/c) ){
return 0;
}
}
return 1;
}就像挑战说明所建议的那样，这只是检查从1到n-1的所有整数的a d(n)/n小于输入。
εü<m§ṁ/Ḋṫ
在线尝试！ 360360测试用例太慢了。
εü<m§ṁ/Ḋṫ Implicit input, say n=6.
ṫ Decreasing range: [6,5,4,3,2,1]
m Map this function (example argument k=4):
Ḋ Divisors of k: [1,2,4]
§ṁ Map and sum
/ division by k: 7/4
Result: [2,6/5,7/4,4/3,3/2,1]
ü Remove duplicates by
< strict comparison. This greedily extracts a non-decreasing subsequence: [2]
ε Is it a singleton list? Yes.
Æs÷$ÐṀ=7个字节。我没有意识到ÐṀ范围，这是很有用的。