44、概率计算与分布的 Perl 实现

概率计算与分布的 Perl 实现

1. 事件发生概率计算

在概率计算中，我们常常会遇到计算多个独立事件中至少有一个发生的概率的问题。其计算方法很简单，就是用 1 减去所有事件都不发生的概率。以下是使用 Perl 实现的示例代码：

sub some_of {
    return 1 - &none_of;
}
print some_of(0.64, 0.52, 0.5); # 输出 0.9136

上述代码里， some_of 子程序借助这种方法算出了蓝鸟队获胜、股市上涨或者抛硬币正面朝上这些事件中至少有一个发生的概率。

2. 排列与组合

2.1 排列

排列指的是从一组元素里选取若干元素进行排序的方式。例如，有 Albert、Beatrice、Christine 和 Dalton 四个人要进入宫殿大厅，管家需要确定他们的入场顺序。对于四个人的情况，总共有 24 种不同的排列方式，具体如下：

ABCD ABDC   ACDB ACBD   ADBC ADCB
BCDA BCAD   BDAC BDCA   BACD BADC
CDAB CDBA   CABD CADB   CBDA CBAD
DABC DACB   DBCA DBAC   DCAB DCBA

一般来说，对于 n 个元素的全排列，排列数为 $n!$。我们可以用以下 Perl 代码来计算阶乘：

<