[技术讨论] 玩Perl的还活着吗？出个锻炼题：给出两堆数，找出和相同的组合

523066680

其实我刚刚写出来。

实际应用举例：你出了N批货给不同客户，有的客户是一批货分好几次转账付款，有些客户是几批货合并为1个款项转账付款。
但是这些客户一直没有找你对账，有的货款还未收到，他们的付款人姓名也不是其本人，难以分辨哪一笔相对应。通过程序筛出配对的组合，可以辅助判断

俩数组：
@numa = qw/
1
14
72
24
53
66
77
8
/;

@numb = qw/123 344 22 77/;

求出的他们之中，和相同的部分，包括单个元素等于另一个数组多个元素相加的情况：

───────────────────────┐
200                                           │
        A -> 1,72,53,66,8                     │
        B -> 123,77                           │
145                                           │
        A -> 1,14,53,77                       │
        B -> 123,22                           │
99                                            │
        A -> 1,24,66,8 | 14,24,53,8 | 14,77,8 │
        B -> 22,77                            │
77                                            │
        A -> 24,53 | 77                       │
        B -> 77                               │
123                                           │
        A -> 14,24,77,8                       │
        B -> 123                              │
22                                            │
        A -> 14,8                             │
        B -> 22                               │
───────────────────────┘

Linuxer

题目看着挺难的，，，目前perl还停留在helloworld阶段。

CrLf

Mark,let me think.

523066680