整数对数量

CheatEngine

整数对数量

魚。。

1. =REDUCE(0,SEQUENCE(B3-2),LAMBDA(v,a,LET(b,SEQUENCE(B3-a-1,,a+1),v+SUM(N(MOD((a^2+b^2+C3)/a/b,1)=0)))))

复制代码

cpa_cpv

与楼上一样的思路，双循环结构。

xtmyd5156

1. =LET(n,B3,m,C3,a,SEQUENCE(n-2),SUM(MAP(a,LAMBDA(x,LET(b,SEQUENCE(n-x-1,,x+1),SUM(N(MOD(x^2+b^2+m,x*b)=0)))))))

复制代码

飞天篮球猪

仅供参考...

1. =LET(n,B3,m,C3,a,SEQUENCE(n-2),b,SEQUENCE(,n-2,2),SUM((a<b)*(MOD(a^2+b^2+m,a*b)=0)))

复制代码

xtmyd5156

1. =SUM(MAP(SEQUENCE(B3-2),LAMBDA(x,LET(b,SEQUENCE(B3-x-1,,x+1),SUM(N(MOD(x^2+b^2+C3,x*b)=0))))))

复制代码

简化可下百

cpa_cpv

飞天篮球猪 发表于 2025-7-5 13:03
仅供参考...

大佬：牛逼克拉斯

象山海鲜

1. =COUNT(-MAKEARRAY(B3-1,B3-2,LAMBDA(x,y,(x^2+y^2+C3)/x/y/(x>y)&1%)))

复制代码

飞天篮球猪

cpa_cpv 发表于 2025-7-5 13:19
大佬：牛逼克拉斯

函数递归...供参考...
写法1: 堆栈溢出风险大

1. =LET(n,B3,m,C3,Rx,LAMBDA(f,a,b,c,IF(a>=n-1,c,IF(b>=n,f(f,a+1,a+2,c),f(f,a,b+1,IF(a*b=0,0,MOD(a^2+b^2+m,a*b)=0)+c)))),Rx(Rx,1,2,0))

复制代码

写法2: 当前数据堆栈安全

1. =LET(n,B3,m,C3,Ax,LAMBDA(Ax,a,IF(a>=n-1,0,Ax(Ax,a+1)+LET(Bx,LAMBDA(Bx,b,IF(b>=n,0,(MOD(a^2+b^2+m,a*b)=0)+Bx(Bx,b+1))),Bx(Bx,a+1)))),Ax(Ax,1))

复制代码

zhxzjw

Sub qz()
Dim row1, n, m, a, b

For row1 = 3 To 17
    n = ActiveSheet.Cells(row1, 2)
    m = ActiveSheet.Cells(row1, 3)
    js = 0
    For b = 2 To n - 1
        For a = 1 To b - 1
            If (a * a + b * b + m) / (a * b) = Int((a * a + b * b + m) / (a * b)) Then
                'arr(js) = a
                'brr(js) = b
                js = js + 1
            End If
        Next
    Next
    ActiveSheet.Cells(row1, 5) = js
Next
End Sub