R中整数的非递增分区

如何在r中编写一个给定整数n的函数来计算n的所有非递增分区

Example:

For n=3,

1 1 1

2 1

3

 

For n=4,

1 1 1 1

2 2

2 1 1

3 1

4

---

解决了这个问题。只是张贴我的答案

#install.packages("partitions")
library(partitions)

partition <- function(n){
  x<- t(parts(n))
  
  x[nrow(x):1,]
  
  
}
partition(3)
partition(4)

#安装程序包（“分区”）
库（分区）
到目前为止你试过什么？因此，它是一个解决问题的工具，而不是一个代码编写服务。