The pirate world's rules of distribution

Question

There is an existing "game" where pirates rationally divide gold coins according to certain rules. Quoting from Wikipedia:

There are 5 rational pirates, A, B, C, D and E. They find 100 gold coins. They must decide how to distribute them.

The pirates have a strict order of seniority: A is superior to B, who is superior to C, who is superior to D, who is superior to E.

The pirate world's rules of distribution are thus: that the most senior pirate should propose a distribution of coins. The pirates, including the proposer, then vote on whether to accept this distribution. In case of a tie vote the proposer has the casting vote. If the distribution is accepted, the coins are disbursed and the game ends. If not, the proposer is thrown overboard from the pirate ship and dies, and the next most senior pirate makes a new proposal to begin the system again.

Pirates base their decisions on three factors. First of all, each pirate wants to survive. Second, given survival, each pirate wants to maximize the number of gold coins each receives. Third, each pirate would prefer to throw another overboard, if all other results would otherwise be equal. The pirates do not trust each other, and will neither make nor honor any promises between pirates apart from a proposed distribution plan that gives a whole number of gold coins to each pirate.

Challenge

Take as input an integer n, 1<=n<=99, where n is the number of pirates - and output the distribution of coins, starting with the first pirate.

Test cases (first line is input; the second output):

1
100

2
100 0

3
99 0 1

5
98 0 1 0 1

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

Answer 1

Jelly, 11 10 bytes

R%2ḊµSȷ2_;

Try it online! or verify all test cases at once.

How it works

For input n, the task boils down to creating the list x, 0, 1, 0, … of length n whose sum is 100.

R%2ḊµSȷ2_;  Main link. Input: n

R           Yield [1, 2, ..., n].
 %2         Replace each integer by its parity. Yields [1, 0, 1, 0, ...].
   Ḋ        Dequeue; remove the first 1. This yields the list a = [0, 1, ...].
    µ       Begin a new, monadic link. Argument: a
     S      Compute the sum of a.
      ȷ2_   Subtract the sum from 100. (ȷ2 is 1e2 in Python syntax)
         ;  Prepend the difference to a.

Answer 2

Python, 33 bytes

lambda n:([-n/2+101]+[0,1]*n)[:n]

Computes the first value, appends some 0, 1, 0, 1..., truncates to length n.

Note that -n/2+101 can't be shortened to 101-n/2 because unary and binary - have different precedence: the former is parsed as (-n)/2 and the latter as 101-(n/2).

Recursion was much longer (45):

f=lambda n,i=100:1/n*[i]or f(n-1,i-n%2)+[n%2]

Answer 3

MATL, 12 bytes

:2\ts_101+l(

This uses current version (9.2.2) of the language/compiler, which is earlier than this challenge.

Example

>> matl :2\ts_101+l(
> 5
98  0  1  0  1

Explanation

:         % implicitly input number "n". Generate vector [1, 2, ..., n]
2\        % modulo 2. Gives [1, 0, 1, ...]
ts        % duplicate and compute sum
_101+     % negate and add 101
l(        % assign that to first entry of [1, 0, 1, ...] vector. Implicitly display

Answer 4

Pyth, 13 bytes

+-100sJ%R2tQJ

Test suite.

Answer 5

Python, 62 58 bytes

EDIT: Glad I made it a one-liner. But I lose for Python. Therefore, this is just for reference. Thanks @Zgarb

def x(i):n=[~j%2for j in range(i)];n[0]=101-sum(n);print n

It takes the input, creates a list pf parity of all numbers from 1 to i. Then sets the first element in i to 101-sum(n) and prints.

Try it here

Answer 6

Javascript ES6, 45 bytes

a=>[...Array(a)].map((x,y)=>y?--y%2:202-a>>1)

Thanks to @Neil for 1 byte saved!

Answer 7

𝔼𝕊𝕄𝕚𝕟, 14 chars / 26 bytes

⩥ï⒨?‡$%2:ỉ-ï»1

Try it here (Firefox only).

Not bad, but not good either...

Explanation

⩥ï⒨?‡$%2:ỉ-ï»1 // implicit: ï=input, ṥ=101
⩥ï⒨            // map over a range [0,ï) and return:
    ?‡$%2       // (if mapitem>0) then ($-1) mod 2
         :ỉ-ï»1 // (else) 202-ï>>1
                // implicit output

Answer 8

Seriously, 23 17 bytes

EDIT: Thanks @quintopia

,R`2@%`M;Σ2╤u-0(T

Uses the same approach as my Python answer, but I do the modulo 2 using mapping, and several times, I rotate my stack.

Explanation:

This code pushes input (I will call it i). Next pushes range(1,i+1) and makes a function. Then pushes 2, rotates stack, and finally takes modulo.

Next, map this function onto the range iterable. This gives the parity of each element in the list.

Finally, duplicates the stack, sums the parity list, push 2, 10^2, and 100+1, and subtracts the sum (let me call this value n). Next the code pushes 0, rotates the stack by 1, and sets the list's index 0 element to n. The resulting list is implicitly printed.

Answer 9

Japt, 14 bytes

Yet another challenge where I find myself wishing for a built-in I had just considered adding...

1oU mv u#Ê-UÁ1

Try it online!

1oU mv u#Ê-UÁ1  // Implicit: U = input integer
1oU             // Create the range [1, U).
    mv          // Map each item to 1 if even, 0 otherwise.
       u        // Unshift (add to the beginning of the array)
        #Ê-UÁ1  //  the char code of Ê (202), minus U >>> 1 (floor of U / 2).

Answer 10

Actionscript 3, 87 bytes

function x(n){var l=[],i=1;for (l[0]=int(101-n/2);i<n;){l[i]=++i%2;}return l.join(" ")}

It's not the best golfing language, but I enjoy posting as3 answers.

Answer 11

05AB1E, 12 bytes (Non-comp)

<LÈDOTns-s)˜

Try it online!

Answer 12

Japt -S, 8 bytes

ov hL-Uz

Try it

Answer 13

Perl 51 49 44 bytes

$,=$";@"=map{$i++%2}2..<>;say 100-(@">>1),@"

Need the following perlrun options -E

$ perl -E'$,=$";@"=map{$i++%2}2..<>;say 100-(@">>1),@"'<<<5
98
0
1
0
1

Answer 14

QBIC, 28 25 bytes

:?100-(a-1)'\`2[2,a|?b%2

Explanation

:               Get command line parameter, assign to 'a'
                Determine the part of the treasure for the crew:
      (a-1) \ 2 Integer Divide 'a'-1 by 2. The -1 compensates for even cases.
           ' `  Make \ a direct command for QBasic instead of substituting it for ELSE.
?100-           Print 100 coins, minus the crew-share --> Captain's booty.
[2,a|           FOR b=2; b <= a; b++; ie for every other crew member
?b%2            Give every odd crewman a coin.
                [FOR loop implicitly closed by QBIC]

Answer 15

Arn, 13 bytes

¾*†^…wu½►♦ž]#

Try it!

Explained

Unpacked: [101-:^:-_{!}->

[           Begin sequence
          --First entry--
     101    Literal `101`
 -          Subtract
   :^       Ceiling
     :-     Halve
       _    A variable ≡ STDIN
          --Other entries--
    {       Block
      !     Boolean NOT
        _   Implied; last entry
    }       End block
  ->        To final length of
    _       Implied
]           End sequence; implied

I am pretty sure this can be golfed further, but I'm leaving it here for now.

Answer 16

Husk, 13 bytes

Ṡ:o`-100Σt↑ݬ

Try it online!