erlang算法系列-leetcode 2176. 统计数组中相等且可以被整除的数对（简单）

数据量较小，可以直接模拟，O(n^2)。

统计数组中相等且可以被整除的数对-原题

给你一个下标从 0 开始长度为 n 的整数数组 nums 和一个整数 k ，请你返回满足 0 <= i < j < n ，nums[i] == nums[j] 且 (i * j) 能被 k 整除的数对 (i, j) 的 数目 。

示例 1：

输入：nums = [3,1,2,2,2,1,3], k = 2
输出：4
解释：
总共有 4 对数符合所有要求：
- nums[0] == nums[6] 且 0 * 6 == 0 ，能被 2 整除。
- nums[2] == nums[3] 且 2 * 3 == 6 ，能被 2 整除。
- nums[2] == nums[4] 且 2 * 4 == 8 ，能被 2 整除。
- nums[3] == nums[4] 且 3 * 4 == 12 ，能被 2 整除。
示例 2：

输入：nums = [1,2,3,4], k = 1
输出：0
解释：由于数组中没有重复数值，所以没有数对 (i,j) 符合所有要求。

提示：

1 <= nums.length <= 100
1 <= nums[i], k <= 100

-spec count_pairs(Nums :: [integer()], K :: integer()) -> integer().
count_pairs(Nums, K) ->
    do_count(Nums, 0, Nums, K, 0)
  .
  
do_count([], I, Nums, K, Ans) ->
    Ans;
do_count([N | Ns], I, Nums, K, Ans) ->
    {Ans2, _J} = lists:foldl(fun(N1, {Ans1, J}) ->
        if 
             N =:= N1 andalso ( I*J rem K =:= 0) ->
                {Ans1+1, J +1};
            true ->
                {Ans1, J+1}
        end
    end, {Ans, I+1}, Ns),
    do_count(Ns, I + 1, Nums, K, Ans2).