R：阶乘尾随零的数量

Question

我试图计算给定数字的阶乘中尾随零的数量，例如。，

• 6！=720，其中1尾随零
• 10!=3628800，其中2尾随零

我的问题是，我有一个像df这样的数据帧

    n trail0s
1   1       0
2   2       0
3   3       0
4   4       0
5   5       1
6   6       1
7   7       1
8   8       1
9   9       1
10 10       2

...

我知道R中的阶乘是用来计算阶乘的，但我不知道如何计算尾部的零。任何帮助都将不胜感激！

Answer 1

> library(stringi)
> x1<- c(1:7)
> x2 <- c(10,20,200,220, 50,300,7000)
> df<- data.frame(x1,x2)
> df$x0trail <- stri_count(df$x2, regex="0") 
> df
  x1   x2 x0trail
1  1   10       1
2  2   20       1
3  3  200       2
4  4  220       1
5  5   50       1
6  6  300       2
7  7 7000       3

Answer 2

我认为在计算尾随零的数量之前，应该应用阶乘的一些数学性质，请参见https://mathworld.wolfram.com/Factorial.html

在阶乘（n）中，您应该知道尾随零的数量取决于级联乘积中的2*5对*n。在这种情况下，您可以像下面那样定义自定义函数零

zeros <- Vectorize(function(n) ifelse(n>=5,sum(sapply(seq_along(floor(logb(n,5))), function(p) floor(n/5**p) )),0))

然后您可以通过添加尾随零的列

df <- within(df,trail0s <- zeros(n))

这样的

> df
    n trail0s
1   1       0
2   2       0
3   3       0
4   4       0
5   5       1
6   6       1
7   7       1
8   8       1
9   9       1
10 10       2
11 11       2
12 12       2
13 13       2
14 14       2
15 15       3
16 16       3
17 17       3
18 18       3
19 19       3
20 20       4
21 21       4
22 22       4
23 23       4
24 24       4
25 25       5
26 26       5
27 27       5
28 28       5
29 29       5
30 30       6
31 31       6
32 32       6
33 33       6
34 34       6
35 35       7
36 36       7
37 37       7
38 38       7
39 39       7
40 40       8
41 41       8
42 42       8
43 43       8
44 44       8
45 45       9
46 46       9
47 47       9
48 48       9
49 49       9
50 50      10