der

Author: PeterLuschny

docs/src/index.md

@@ -334,9 +334,6 @@ ModuleSetPartitions
 ModuleSetPartitionsMType
 ```
 ```@docs
-ModuleSetPartitionsMType
-```
-```@docs
 ModuleStirlingNumbers
 ```
 ```@docs

docs/src/modules.md

@@ -416,13 +416,6 @@ Return the numbers of partitions of an ``n``-set into nonempty subsets.
 * SetNumber(n::Int, m::Int)
 Return the numbers of partitions of an ``n``-set into ``m`` nonempty subsets.
 
-   🔶  [SetPartitionsByShape](https://github.com/OpenLibMathSeq/IntegerSequences.jl/blob/master/src/SetPartitionsByShape.jl)
-
-
-general Definition
-
-* exported functions
-
    🔶  [SetPartitionsMType](https://github.com/OpenLibMathSeq/IntegerSequences.jl/blob/master/src/SetPartitionsMType.jl)
 
 

src/BuildSequences.jl

@@ -35,6 +35,7 @@ docsrcdir = joinpath(docdir, "src")
 @info("The following modules are included in IntegerSequences.jl:")
 
 exclude = [
+    "SetPartitionsByShape.jl",
     "TemplateModule.jl",
     "BuildSequences.jl",
     "IntegerSequences.jl",

src/IntegerSequences.jl

@@ -2,8 +2,8 @@
 # Copyright Peter Luschny. License is MIT.
 # This file includes parts from Combinatorics.jl in modified form.
 
-# Version of: UTC 2019-10-26 10:41:45
-# 71458000-f7cc-11e9-0078-e76d536f0017
+# Version of: UTC 2019-10-26 11:05:54
+# d0bdc762-f7cf-11e9-039b-3d57130533ac
 
 # Do not edit this file, it is generated from the modules and will be overwritten!
 # Edit the modules in the src directory and build this file with BuildSequences.jl!
@@ -123,7 +123,6 @@ ModuleSeqUtils,
 ModuleSeriesExpansion,
 ModuleSetPartitions,
 ModuleSetPartitionsMType,
-ModuleSetPartitionsMType,
 ModuleStirlingNumbers,
 ModuleSwingFactorial,
 ModuleTriangles,
@@ -7882,45 +7881,6 @@ Return the numbers of partitions of an ``n``-set into nonempty subsets.
 $(SIGNATURES)
 """
 SetNumber(n::Int) = Int(Nemo.bell(n))
-# *** SetPartitionsByShape.jl ****************
-"""
-
-general Definition
-
-* exported functions
-"""
-const ModuleSetPartitionsMType = ""
-function P(m, n)
-R, x = PolynomialRing(ZZ, "x")
-function recP(m, n, x)
-n == 0 && return R(1)
-sum(binomial(m*n, m*k)*recP(m, n-k, x)*x for k in 1:n)
-end
-n == 0 && return [ZZ(1)]
-p = recP(m, n, x)
-[coeff(p, k) for k in 0:n]
-end
-function xmSetPartitions(m, n, k)
-shapes = (map(x -> x*m, p) for p in IntegerPartitions(n, k))
-p = []
-if shapes != Nothing
-for s in shapes
-if s != Nothing
-vcat(p, [p for p in SetPartitions(s)]) |>println
-end end
-end
-end
-function SP_byLength(m, n)
-n == 0 && return [n]
-[sum(mSetPartitions(m, n, k)) for k in 1:n]
-end
-function SP_byShape(m, n)
-[p for k in 1:n for p in mSetPartitions(m, n, k)]
-end
-RowSum(m, n)  = sum(SP_byLength(m, n))
-ARowSum(m, n) = sum((-1)^k*sum(mSetPartitions(m, n, k)) for k in 0:n)
-Diagonal(m,n) = mSetPartitions(m, n, n)[0]
-Central(m, n) = SP_byLength(m, 2n)[n]
 # *** SetPartitionsMType.jl ****************
 """
 

test/perftests.jl

@@ -2,8 +2,8 @@
 # Copyright Peter Luschny. License is MIT.
 # This file includes parts from Combinatorics.jl in modified form.
 
-# Version of: UTC 2019-10-26 10:41:45
-# 714d4830-f7cc-11e9-225f-e76193ad304c
+# Version of: UTC 2019-10-26 11:05:54
+# d0c78b60-f7cf-11e9-0366-0f326e41e5cb
 
 # Do not edit this file, it is generated from the modules and will be overwritten!
 # Edit the modules in the src directory and build this file with BuildSequences.jl!
@@ -250,7 +250,6 @@ println("\nTEST: L005411(500)")
 println("\nTEST: L068875(1000)")
 @time L068875(1000)
 # +++ SetPartitions.jl +++
-# +++ SetPartitionsByShape.jl +++
 # +++ SetPartitionsMType.jl +++
 # +++ StirlingLahNumbers.jl +++
 GC.gc()

test/runtests.jl

@@ -2,8 +2,8 @@
 # Copyright Peter Luschny. License is MIT.
 # This file includes parts from Combinatorics.jl in modified form.
 
-# Version of: UTC 2019-10-26 10:41:45
-# 714ab020-f7cc-11e9-2b0e-bf0fa345d206
+# Version of: UTC 2019-10-26 11:05:54
+# d0c56880-f7cf-11e9-1a47-a1b63262b80d
 
 # Do not edit this file, it is generated from the modules and will be overwritten!
 # Edit the modules in the src directory and build this file with BuildSequences.jl!
@@ -994,7 +994,6 @@ end
 @test_throws DomainError SetPartitions([ ], -1)
 @test_throws DomainError SetPartitions([1], -1)
 end
-# *** SetPartitionsByShape.jl *********
 # *** SetPartitionsMType.jl *********
 @testset "OrderedSetPolynomialsitionsMType" begin
 @test string(P097805(3)) == "x^3+2*x^2+x"