How many partitions do I have?

Question

The partition number of a positive integer is defined as the number of ways it can be expressed as a sum of positive integers. In other words, the number of integer partitions it has. For example, the number 4 has the following partitons:

[[1, 1, 1, 1], [1, 1, 2], [1, 3], [2, 2], [4]]

Hence, it has 5 partitions. This is OEIS A000041.

---

Task

Given a positive integer N determine its partition number.

• All standard rules apply.

• The input and output may be handled through any reasonable mean.

• This is code-golf, so the shortest code in bytes wins.

---

Test Cases

Input | Output

1  |  1
2  |  2
3  |  3
4  |  5
5  |  7
6  |  11
7  |  15
8  |  22
9  |  30
10 |  42

Answer 1

Pyth, 3 bytes

l./

Try it here! or Try a test Suite.

The answer took much longer to format than writing the code itself :P.

---

How?

Pyth is the right tool for the job.

l./   Full program with implicit input.

 ./   Integer partitions. Return all sorted lists of positive integers that add to the input.
l     Length.
      Implicitly output the result.

Answer 2

Mathematica, 11 bytes

PartitionsP

Explanation

¯\_(ツ)_/¯

Answer 3

Python 2, 85 83 bytes

-2 bytes thanks to @notjagan

lambda n:n<1or sum(sum(i*((n-k)%i<1)for i in range(1,n+1))*p(k)for k in range(n))/n

Try it online!

Using recursive formula from OEIS A000041.

Answer 4

Emojicode 0.5, 204 201 bytes

️➡⬅11s 0k⏩0t➖kr ti⏩1 tt i 0➕r i➕s✖r️k➗s

Try it online!

-3 bytes by using "less than or equal to 1" instead of "less than 2" because the "less than" emoji has a quite long UTF-8 encoding. Also made t a frozen to silence a warning without affecting the byte count.

Extends the (integer) class with a method named ️. You can write a simple program that takes a number from the input, calls ️ on the number and prints the result like this:

 strPlease enter a number
 numstr 10
  ️num 10
 
  Learn what a number is, you moron!
 

This part could be golfed a lot by omitting the messages and error handling, but it's not included in the score, so I prefer to show more features of Emojicode instead, while improving readability along the way.

Ungolfed

 ️➡
  ◀️2
   1
  
  sum 0
  k⏩0
   nmk➖k
   sig nmk
   i⏩1 nmk
    nmk i 0
     ➕sig i
    
   
   ➕sum✖sig️k
  
  ➗sum
 

Explanation

Note: a lot of emoji choice doesn't make much sense in emojicode 0.5. It's 0.x, after all. 0.6 will fix this.

Emojicode is an object-oriented programming language featuring generics, protocols, optionals and closures, but this program uses no closures and all generics and protocols can be considered implicit, while the only optional appears in the I/O stub.

The program operates on only a few types: is the integer type, is the string type and ⏩ is the range type. A few booleans () appear too, but they are only used in conditions. Booleans can take a value of or , which correspond to true and false, respectively.

There are currently no operators in Emojicode, so addition, comparsions and other operations that are normally operators are implemented as functions, effectively making the expressions use prefix notation. Operators are also planned in 0.6.

Let's tackle the test program first.

This is the block, which can be compared to main from other languages.

 ... 

Grapes and watermelons declare code blocks in emojicode.

strPlease enter a number

This declares a "frozen" named str and sets it value to a new string created using the initializer (constructor) , which takes a prompt as a string and then inputs a line from the user. Why use a frozen instead of a variable? It won't change, so a variable would emit a warning.

numstr 10

Let's break it down. str 10 calls the method on the str frozen with the argument 10. By convention, methods named with the name of a type convert the object to that type. 10 is the base to use for integer conversion. This method returns an optional, . Optionals can contain a value of the base type or nothingness, ⚡. When the string doesn't contain a number, ⚡ is returned. To use the value, one has to unwrap the optional using , which raises a runtime error if the value is ⚡. Therefore, it is good practice to check for nothingness before unwrapping an optional. It is so common, in fact, that Emojicode has a shorthand for that. Normally, is an "if". variable expression means: evaluate the expression. If the optional contains nothingness, the condition evaluates to (false). Otherwise, a frozen named variable is created with the unwrapped value of the optional, and the condition evaluates to , (true). Therefore, in normal usage, the ... block following the conditional is entered.

️num 10

️ is the method the main code adds to using that calculates the number of partitions. This calls ️ on the num frozen we declared in the conditional and converts the result to a string using base 10 by the method. Then, prints the result.

 ... 

means "else", so this block is entered when the user did not enter a number correctly.

Learn what a number is, you moron!

Prints the string literal.

Now, let's look at the main program. I'll explain the ungolfed version; the golfed version just had the whitespace removed and variables renamed to single letter names.

 ... 

Extend the class. This is a feature that is not commonly found in programming languages. Instead of creating a new class with as the superclass, modifies directly.

️➡ ... 

Creates a new method named ️ that returns a . It returns the number of partitions calculated using the formula a(n) = (1/n) * Sum_{k=0..n-1} sigma(n-k)*a(k)

⬅1
 1

is similar to this or self from other languages and refers to the object the method was called on. This implementation is recursive, so this is the terminating condition: if the number the method was called on is less than or equal 1, return 1.

sum 0

Create a new variable sum and set it to 0. Implicitly assumes type .

k⏩0

iterates over anything that implements the ⚪️ protocol, while ⏩ is a range literal that happens to implement . A range has a start value, a stop value and a step value, which is assumed to be 1 if start < stop, or -1 otherwise. One can also specify the step value by using the ⏭ to create the range literal. The start value is inclusive, while the stop value is exclusive, so this is equivalent to for k in range(n) or the Sum_{k=0..n-1} in the formula.

nmk➖k

We need to calculate sigma(n - k), or the sum of divisors of n - k in other words, and the argument is needed a few times, so this stores n - k in the variable nmk to save some bytes.

sig nmk
i⏩1 nmk

This sets the sig variable to the argument of sigma and iterates over all numbers from 1 to nmk - 1. I could initialize the variable to 0 and iterate over 1..nmk but doing it this way is shorter.

nmk i 0

calculates the remainder, or modulus and checks for equality, so the condition will be if i is a divider of nmk.

➕sig i

This is an assignment by call, similar to the += -= >>= operator family in some of the inferior, emoji-free languages. This line can be also written as sig ➕ sig i. Therefore, after the inner loop finishes, sig will contain the sum of divisors of n - k, or sigma(n - k)

➕sum✖sig️k

Another assignment by call, so this adds sigma(n - k) * A(k) to the total, just as in the formula.

➗sum

Finally, the sum is divided by n and the quotient is returned. This explanation probably took thrice as much time as writing the code itself...

Answer 5

Pari/GP, 8 bytes

numbpart

Try it online!

Answer 6

J, 37 35 bytes

0{]1&((#.]*>:@#.~/.~&.q:@#\%#),])1:

Try it online!

Explanation

0{]1&((#.]*>:@#.~/.~&.q:@#\%#),])1:  Input: n
                                 1:  Constant 1
  ]                                  Get n
   1&(                          )    Repeat n times on x = [1]
                          \            For each prefix
                         #               Length
                      q:@                Prime factors
                 /.~&                    Group equal factors
              #.~                        Compute p+p^2+...+p^k for each group
           >:@                           Increment
                    &.q:                 Product
                           %           Divide
                            #          Length
         ]                             Get x
          *                            Times
   1   #.                              Sum
                              ,        Joim
                               ]       Get x
                                       Set this as next value of x
0{                                   Select value at index 0

Answer 7

Octave, 18 bytes

partcnt(input(''))

Uses the built-in function partcnt.

Can't get it right by using an anonymous function using @, some help would be appreciated.

Answer 8

Retina, 34 bytes

.+
$*
+%1`\B
;$'¶$`,
,

%O`1+
@`.+

Try it online!

Explanation

.+
$*

Convert the input to unary.

+%1`\B
;$'¶$`,

This computes all 2^n-1 partitions of the unary digit list. We do this by repeatedly (+) matching the first (1) non-word boundary (\B, i.e. a position between two 1s) in each line (%) and replacing it with ;, everything after it ($'), a linefeed (¶), everything in front of it ($`) and ,. Example:

1;1,111

Becomes

      vv
1;1,1;11
1;1,1,11
^^^^^

Where v marks the result of $' and ^ marks the result $`. This is a common idiom to get the result of two different replacements at once (we basically insert both the ; and the , replacement, as well as the missing "halves" of the string to complete two full substitutions).

We will treat ; as actual partitions and , just as placeholders that prevent subsequent \B from matching there. So next...

,

... we remove those commas. That gives us all the partitions. For example for input 4 we get:

1;1;1;1
1;1;11
1;11;1
1;111
11;1;1
11;11
111;1
1111

We don't care about the order though:

%O`1+

This sorts the runs of 1s in each line so we get unordered partitions.

@`.+

Finally, we count the unique (@) matches of .+, i.e. how many distinct lines/partitions we've obtained. I added this @ option ages ago, then completely forgot about it and only recently rediscovered it. In this case, it saves a byte over first deduplication the lines with D`.

Answer 9

Python 2, 54 53 bytes

f=lambda n,k=1:1+sum(f(n-j,j)for j in range(k,n/2+1))

Try it online!

How it works

Each partition of n can be represented as a list x = [x₁, ⋯, x_m] such that x₁ + ⋯ + x_m = n. This representation becomes unique if we require that x₁ ≤ ⋯ ≤ x_m.

We define an auxiliary function f(n, k) that counts the partitions with lower bound k, i. e., the lists x such that x₁ + ⋯ + x_m = n and k ≤ x₁ ≤ ⋯ ≤ x_m. For input n, the challenge thus asks for the output of f(n, 1).

For positive integers n and k such that k ≤ n, there is at least one partition with lower bound k: the singleton list [n]. If n = k (in particular, if n = 1), this is the only eligible partition. On the other hand, if k > n, there are no solutions at all.

If k < n, we can recursively count the remaining partitions by building them from left to right, as follows. For each j such that k &leq; j &leq; n/2, we can build partitions [x₁, ⋯, x_m] = [j, y₁, ⋯, y_m-1]. We have that x₁ + ⋯ + x_m = n if and only if y₁ + ⋯ + y_m-1 = n - j. Furthermore, x₁ ≤ ⋯ ≤ x_m if and only if j &leq; y₁ ≤ ⋯ ≤ y_m-1.

Therefore, the partitions x of n that begin with j can be calculated as f(n - j, j), which counts the valid partitions y. By requiring that j &leq; n/2, we assure that j &leq; n - j, so there is at least one y. We can thus count all partitions of n by summing 1 (for [n]) and f(n - j, j) for all valid values of j.

The code is a straightforward implementation of the mathematical function f. In addition, it makes k default to 1, so f(n) computes the value of f(n, 1) for input n.

Answer 10

Python 2, 89 bytes

-9 bytes by Mr.Xcoder -1 byte by notjagan

lambda n:len(p(n))
p=lambda n,I=1:{(n,)}|{y+(x,)for x in range(I,n/2+1)for y in p(n-x,x)}

Try it online!

Answer 11

JavaScript, 125 121 bytes

n=>(z=(a,b)=>[...Array(a)].map(b))(++n**n,(_,a)=>z[F=z(n,_=>a%(a/=n,n)|0).sort().join`+`]=b+=eval(F)==n-1&!z[F],b=0)|b||1

Try it online!

Warning: time and space complexity is exponential. Works very slow for large numbers.

Answer 12

Jelly, 13 bytes

JÆsæ.:L;
1Ç¡Ḣ

Try it online!

Takes 5 seconds to solve n = 1000 on TIO.

Answer 13

Java 8 (229 bytes)

import java.util.function.*;class A{static int j=0;static BiConsumer<Integer,Integer>f=(n,m)->{if(n==0)j++;else for(int i=Math.min(m,n);i>=1;i--)A.f.accept(n-i,i);};static Function<Integer,Integer>g=n->{f.accept(n,n);return j;};}

Ungolfed:

import java.util.function.*;

class A {
    static int j = 0;
    static BiConsumer<Integer, Integer> f = (n, m) -> {
        if (n == 0)
            j++;
        else
            for (int i = Math.min(m, n); i >= 1; i--)
                A.f.accept(n - i, i);
    };
    static Function<Integer, Integer> g = n -> {
        f.accept(n, n);
        return j;
    };
}

Answer 14

Jelly, 3 bytes

The Œṗ atom has recently been added, and it means "Integer partitions".

ŒṗL

Try it online!

ŒṗL   - Full program.

Œṗ    - Integer partitions.
  L   - Length.
      - Output implicitly.

Answer 15

Pyt, 2 bytes

←ᵱ

Explanation:

←          Get input
 ᵱ         Number of partitions

Answer 16

JavaScript ES7, 69 Bytes

n=>(f=(i,s)=>i?[for(c of Array(1+n))f(i-1,s,s-=i)]:c+=!s)(n,n,c=0)&&c

JavaScript ES6, 71 Bytes

n=>(f=(i,s)=>i?[...Array(1+n)].map(_=>f(i-1,s,s-=i)):c+=!s)(n,n,c=0)&&c

Time complexity O(n^n), so be careful (an obvious delay appears on my computer for F(6))