Couch 2048: How much more till 2048?

Question

I have just tried a game called Couch 2048.
(Note: You should have a look to better understand this question.)
Since it wasn't very exciting for me, I've been asking myself 'How much more till 2048!?'
That inspired me to post a challenge, because calculating this in not as easy as I thought.

Your goal:
Given a list of balls on the sofa, you have to output how many balls with a value of 2 have to fall from the sky so that one can win the game (by reaching the 2048 ball).

Assume the input is valid.
Assume the player won't drop any balls.
Assume the balls which fall from the sky always have a value of 2, as I've said.
Valid output examples: 3, "4", [5], ["6"]

Edit:
I should clarify something:
- You have to print the smallest amount of 2s needed.

Test cases:
[2048] -> 0 You've already won
[1024,1024] -> 0 You don't need any more balls to win
[1024,512,256,128,64,32,16,8,4,2] -> 1 One ball required to 'activate the chain'
[512] -> 768
[512,2] -> 767
[4,16,64] -> 982

Notes:
I'm not a native speaker - Tell me if you spotted a typo or some non-grammatical text.
If something's unclear, ask in comments.

Welcome to PPCG. It looks like this challenge is: add all the elements in the array, subtract from 2048 and divide by 2 - if so, you might want to double check the last test case - if not, please use it as an example to explain why the output isn't 982. — Shaggy, Nov 12 '18 at 12:45
Woah, I haven't thought my first challenge will have 7 answers and 2 upvotes in the first hour! And I reached to ~28 people! — user83982, Nov 12 '18 at 13:31
Hey, downvoter: explain your point of view! It's necessary for the challenge to improve! — user83982, Nov 13 '18 at 15:41

Community · Accepted Answer · 2020-06-17 09:04:33Z

11

Java 8, 17 bytes

s->1024-s.sum()/2

Port of @LuisFelipeDeJesusMunoz' JavaScript answer.

Try it online.

Explanation:

s->           // Method with IntStream parameter and int return-type
  1024-       //  Return 1024, minus:
   s.sum()    //   The sum of the input-IntStream
          /2  //   Divided by 2

edited Jun 17 '20 at 9:04

Community♦

1

answered Nov 12 '18 at 13:37

Kevin Cruijssen

85.6k7 gold badges110 silver badges303 bronze badges

11

\$\begingroup\$ That feeling when Java is beating both python(because lambda syntax) and javascript(because sum) \$\endgroup\$ – Quintec Nov 12 '18 at 14:06

add a comment |

Riley · Accepted Answer · 2018-11-12 14:01:35Z

8

Brain-Flak, 72 bytes

({{}})({<({}[()()])>()}{})([{}]((((((((()()()()){}){}){}){}){}){}){}){})

Try it online!

({{}})                     # Sum entire stack
      (                  ) # Push:
       {<          >()}{}  #   The number of times you can...
         ({}[()()])        #   Subtract 2 before reaching 0

([{}]                                        ) # Subtract that from...
     ((((((((()()()()){}){}){}){}){}){}){}){}  # 1024

answered Nov 12 '18 at 14:01

Riley

11.4k1 gold badge17 silver badges46 bronze badges

1

\$\begingroup\$ Thank you! I'm interested in learning Brain-Flak and your explanation was useful. \$\endgroup\$ – Galen Ivanov Nov 13 '18 at 7:49

add a comment |

Quintec · Accepted Answer · 2018-11-12 14:04:14Z

6

Python 2, 22 bytes

lambda x:4**5-sum(x)/2

Y'know, I just realized that 4**5 is the same length as 1024.

Try it online!

answered Nov 12 '18 at 14:04

Quintec

2,8511 gold badge11 silver badges27 bronze badges

add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

6

MathGolf, 6 5 bytes

Σc/◘+

First MathGolf answer. :)

Try it online or verify all test cases.

Explanation:

Σ         # Sum of the (implicit) input-list
 c/       # Divide it by -2
   ◘+     # Add 1024 to it (and output implicitly)

edited Jun 17 '20 at 9:04

Community♦

1

answered Nov 12 '18 at 14:45

Kevin Cruijssen

85.6k7 gold badges110 silver badges303 bronze badges

add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

5

05AB1E, 5 bytes

O;žBα

Port of @LuisFelipeDeJesusMunoz' JavaScript answer.

Try it online or verify all test cases.

Explanation:

O        # Sum of the (implicit) input-list
 ;       # Halved
  žB     # Push 1024
    α    # Absolute difference between the two (and output implicitly)

edited Jun 17 '20 at 9:04

Community♦

1

answered Nov 12 '18 at 13:27

Kevin Cruijssen

85.6k7 gold badges110 silver badges303 bronze badges

add a comment |

J. Sallé · Accepted Answer · 2018-11-12 13:03:19Z

3

APL (Dyalog Unicode), 10 bytes

2÷⍨2048-+/

Try it online!

answered Nov 12 '18 at 13:03

J. Sallé

3,3035 silver badges23 bronze badges

add a comment |

Luis felipe De jesus Munoz · Accepted Answer · 2018-11-12 13:08:52Z

3

JavaScript (Node.js), 25 bytes

Based on @Shaggys' comment and answer

-3 bytes from @Arnauld =D

_=>1024-eval(_.join`+`)/2

Try it online!

edited Nov 12 '18 at 13:08

answered Nov 12 '18 at 12:57

Luis felipe De jesus Munoz

9,7212 gold badges20 silver badges76 bronze badges

add a comment |

Galen Ivanov · Accepted Answer · 2018-11-12 13:39:52Z

2

J, 10 bytes

2048-:@-+/

Try it online!

Alternative:

J, 10 bytes

1024-1#.-:

Try it online!

edited Nov 12 '18 at 13:39

answered Nov 12 '18 at 13:29

Galen Ivanov

18.2k3 gold badges17 silver badges56 bronze badges

add a comment |

G B · Accepted Answer · 2018-11-12 14:31:45Z

2

Ruby, 17 bytes

->l{1024-l.sum/2}

Try it online!

answered Nov 12 '18 at 14:31

G B

11.9k1 gold badge15 silver badges39 bronze badges

add a comment |

Okx · Accepted Answer · 2018-11-12 15:42:51Z

2

Catholicon, 5 bytes

-`L̇½Ṗ

Explanation:

-      subtract
 `L̇    1024
       from
   ½   half of the
    Ṗ  sum [of the input]

answered Nov 12 '18 at 15:42

Okx

15.4k3 gold badges34 silver badges99 bronze badges

1

\$\begingroup\$ Is that a new golfing language I smell? :) \$\endgroup\$ – ETHproductions Nov 12 '18 at 21:37
1

\$\begingroup\$ +1 for the new language. Another one to learn </sigh> \$\endgroup\$ – ElPedro Nov 12 '18 at 22:10

add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

2

TI-Basic, 8 bytes

4^5-.5sum(Ans

edited Jun 17 '20 at 9:04

Community♦

1

answered Nov 12 '18 at 17:20

Timtech

12.2k1 gold badge39 silver badges56 bronze badges

add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

1

JavaScript, 28 bytes

a=>a.map(n=>x-=n/2,x=1024)|x

Try it online

edited Jun 17 '20 at 9:04

Community♦

1

answered Nov 12 '18 at 12:59

Shaggy

30.1k3 gold badges25 silver badges83 bronze badges

add a comment |

Comrade SparklePony · Accepted Answer · 2018-11-12 14:21:17Z

1

Jelly, 7 6 bytes

HSạ⁽¡ç

Try it online!

Explanation:

HSạ⁽¡ç    Example input: [4,16,64]
H         Halve input. [2, 8, 32]
 S        Sum. 42
   ⁽¡ç    Number 1024.
  ạ       Difference. 982

_{-1 byte by using a base-250 number}

edited Nov 12 '18 at 14:21

answered Nov 12 '18 at 13:54

Comrade SparklePony

6,0341 gold badge20 silver badges59 bronze badges

add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

1

Japt, 7 6 bytes

xz nH²

Try it or verify all test cases

 z         :(Floor) divide each by 2
x          :Reduce by addition
   n       :Subtract from
    H      : 32
     ²     : Squared

edited Jun 17 '20 at 9:04

Community♦

1

answered Nov 12 '18 at 12:49

Shaggy

30.1k3 gold badges25 silver badges83 bronze badges

add a comment |

user73921user73921 · Accepted Answer · 2018-11-12 20:57:18Z

perl -aE, 27 bytes

$"=$:;say eval"(2048-@F)/2"

This reads a line with numbers (whitespace separated) from STDIN, and writes the answer to STDOUT.

What it does is subtract all the numbers from the input from 2048, and it divides the remainder by 2. The -a switch puts the in the array @F (one number per element). If we interpolate an array into a string (which is what we are doing here), perl puts the value of $" between the elements. The little used variable $: is be default \n-; and since white space between tokens is ignored, the result is subtracting all the numbers from 2048. The eval does the calculation.

l4m2 · Accepted Answer · 2018-11-12 13:05:06Z

0

JavaScript (Node.js), 33 bytes

a=>!a.map(n=>x-=n/2,x=1024)>x?0:x

Try it online!

Why you don't do on [1024,1024,1024]?

answered Nov 12 '18 at 13:05

l4m2

7,0291 gold badge12 silver badges40 bronze badges

add a comment |

ngm · Accepted Answer · 2018-11-12 14:25:02Z

0

R, 17 bytes

4^5-sum(scan())/2

Try it online!

answered Nov 12 '18 at 14:25

ngm

4,2243 silver badges28 bronze badges

add a comment |

Luis felipe De jesus Munoz · Accepted Answer · 2018-11-12 18:03:10Z

0

TeaScript, 11 bytes

4p5)-(xx)/2

Try it online!

answered Nov 12 '18 at 18:03

Luis felipe De jesus Munoz

9,7212 gold badges20 silver badges76 bronze badges

add a comment |

recursive · Accepted Answer · 2018-11-12 18:34:31Z

0

Stax, 6 bytes

ë3i─♠÷

Run and debug it

answered Nov 12 '18 at 18:34

recursive

9,18116 silver badges32 bronze badges

add a comment |

Jo King · Accepted Answer · 2018-11-12 22:38:07Z

0

Perl 6, 12 bytes

1024-*.sum/2

Try it online!

Anonymous Whatever lambda that takes a list and returns a number.

answered Nov 12 '18 at 22:38

Jo King♦

42.8k4 gold badges92 silver badges169 bronze badges

add a comment |

iBug · Accepted Answer · 2018-11-13 12:53:52Z

0

AWK, 26 bytes

{s+=$1}END{print 1024-s/2}

Input numbers are separated by newlines (i.e. one per line)

answered Nov 13 '18 at 12:53

iBug

2,54911 silver badges34 bronze badges

add a comment |

LiefdeWen · Accepted Answer · 2018-11-13 14:39:03Z

Neim, 6 bytes

Pretty new to Neim but got it working

𝐬ᚺςᚫᛦ𝕤

Explanation:

  𝐬         : Sum input
   ᚺ        : Divide by 2 (stack now [input summed and divided by 2])
    ς       : Variable set to 16 pushed to stack
     ᚫ      : Multiply by 2
      ᛦ     : Square (stack now [input summed and divided by 2, 1024])
       𝕤    : Subtract then absolute

Try it online!

isaace · Accepted Answer · 2018-11-13 15:49:58Z

0

JAVA, 30 bytes

2048-IntStream.of(a).sum()/2;

answered Nov 13 '18 at 15:49

isaace

1714 bronze badges

add a comment |

Zacharý · Accepted Answer · 2018-11-13 15:59:46Z

0

RAD, 10 bytes

1024-+/ω÷2

Try it online!

answered Nov 13 '18 at 15:59

Zacharý

5,8121 gold badge13 silver badges35 bronze badges

add a comment |

TheGreatGeek · Accepted Answer · 2018-11-24 02:33:31Z

0

Clojure, 24 bytes

#(- 1024(/(apply + %)2))

Try it online!

answered Nov 24 '18 at 2:33

TheGreatGeek

1114 bronze badges

add a comment |

LyricLy · Accepted Answer · 2018-11-24 03:28:43Z

0

Haskell, 16 bytes

(1024-).(/2).sum

An anonymous function, takes a list and returns a float.

Try it online!

answered Nov 24 '18 at 3:28

LyricLy

3,4732 gold badges12 silver badges37 bronze badges

add a comment |

Gymhgy · Accepted Answer · 2018-11-28 05:35:32Z

0

F#, 24 bytes

fun f->1024-List.sum f/2

1024 minus the sum divided by 2.

answered Nov 28 '18 at 5:35

Gymhgy

7,5547 silver badges34 bronze badges

add a comment |

Stack Exchange Network

current community

your communities

more stack exchange communities

Couch 2048: How much more till 2048?

27 Answers 27

Java 8, 17 bytes

Brain-Flak, 72 bytes

Python 2, 22 bytes

MathGolf, 6 5 bytes

05AB1E, 5 bytes

APL (Dyalog Unicode), 10 bytes

JavaScript (Node.js), 25 bytes

J, 10 bytes

Alternative:

J, 10 bytes

Ruby, 17 bytes

Catholicon, 5 bytes

TI-Basic, 8 bytes

JavaScript, 28 bytes

Jelly, 7 6 bytes

Japt, 7 6 bytes

perl -aE, 27 bytes

JavaScript (Node.js), 33 bytes

R, 17 bytes

TeaScript, 11 bytes

Stax, 6 bytes

Perl 6, 12 bytes

AWK, 26 bytes

Neim, 6 bytes

RAD, 10 bytes

Clojure, 24 bytes

Haskell, 16 bytes

F#, 24 bytes

Your Answer

Linked

Hot Network Questions

Couch 2048: How much more till 2048?

27 Answers 27

Java 8, 17 bytes

Brain-Flak, 72 bytes

Python 2, 22 bytes

MathGolf, 6 5 bytes

05AB1E, 5 bytes

APL (Dyalog Unicode), 10 bytes

JavaScript (Node.js), 25 bytes

J, 10 bytes

Alternative:

J, 10 bytes

Ruby, 17 bytes

Catholicon, 5 bytes

TI-Basic, 8 bytes

JavaScript, 28 bytes

Jelly, 7 6 bytes

Japt, 7 6 bytes

perl -aE, 27 bytes

JavaScript (Node.js), 33 bytes

R, 17 bytes

TeaScript, 11 bytes

Stax, 6 bytes

Perl 6, 12 bytes

AWK, 26 bytes

Neim, 6 bytes

RAD, 10 bytes

Clojure, 24 bytes

Haskell, 16 bytes

F#, 24 bytes

Your Answer

Sign up or log in

Post as a guest

Linked

Related

Hot Network Questions