O que eu preciso para destruir o mundo?

19

A energia de ligação gravitacional de um planeta é a quantidade de energia necessária para separar cada pedacinho dele, de modo que nenhum pedaço orbite ou colide com outro pedaço. Para uma esfera uniforme, a Wikipedia fornece esta fórmula:

E=3GM25R

Onde G é a constante gravitacional (6.672e-11 m 3 • kg -1 • s -2 ), M é massa e R é o raio.

Eu poderia fazer esse desafio de apenas calcular isso em Joules (kg • m 2 • s -2 ), mas ... isso seria chato . Além disso, nem todo mundo entende Joules.

Então, em vez disso, vamos convertê-lo nas seguintes unidades:

  • Kilotons de TNT (4,184 trilhões de Joules, taquigrafia kilotons)
  • Armas nucleares de Hiroshima (62,76 trilhões de Joules, taquigrafia nukes)
  • Hostess ™ Twinkies (560.000 Joules, taquigrafia twinkies)
  • Quilowatt-hora (exatamente 3,6 milhões de Joules, taquigrafia kWh)
  • Quilogramas de energia em massa (1 kg de energia em massa = 299.792.458 2 Joules, taquigrafia kg)

Portanto, pegue a seguinte entrada:

  • massa em quilogramas
  • raio em metros
  • uma das seis entradas distintas que representam a unidade a ser usada

E produza a energia de ligação nas unidades especificadas. Anexe a unidade abreviada ao final da saída.

Regras

  • A abreviação de Joules é J.
  • O espaço em branco arbitrário é permitido, desde que não divida a unidade abreviada ou o número.
  • Notação científica é permitida, em qualquer formato que seu idioma use.
  • Você só precisa de 4 números significativos. Pontos flutuantes são altamente recomendados.
  • Blá, blá, resposta mais curta em bytes.

Casos de teste

Gerado com esta planilha .

Mass (kg)   Radius (m)  J           kilotons    nukes       twinkies    kWh         kg
3.302E+23   2440000     1.789E+30   4.275E+17   2.850E+16   3.194E+24   4.969E+23   1.990E+13
4.869E+24   6052000     1.568E+32   3.748E+19   2.499E+18   2.800E+26   4.356E+25   1.745E+15
5.974E+24   6371000     2.242E+32   5.360E+19   3.573E+18   4.004E+26   6.229E+25   2.495E+15
6.419E+23   3390000     4.866E+30   1.163E+18   7.753E+16   8.689E+24   1.352E+24   5.414E+13
1.899E+27   69911000    2.065E+36   4.935E+23   3.290E+22   3.687E+30   5.736E+29   2.298E+19
5.685E+26   58232000    2.222E+35   5.310E+22   3.540E+21   3.968E+29   6.172E+28   2.472E+18
8.683E+25   25360000    1.190E+34   2.845E+21   1.896E+20   2.125E+28   3.306E+27   1.324E+17
1.024E+26   24620000    1.705E+34   4.075E+21   2.717E+20   3.045E+28   4.736E+27   1.897E+17
1.311E+22   1186000     5.801E+27   1.387E+15   9.244E+13   1.036E+22   1.611E+21   6.455E+10
1.989E+30   696300000   2.274E+41   5.436E+28   3.624E+27   4.062E+35   6.318E+34   2.531E+24
7.350E+22   1737000     1.245E+29   2.976E+16   1.984E+15   2.223E+23   3.458E+22   1.385E+12

Inspirado por Powering the Death Star with Twinkies de Scott Manley.

code-golf physics Nissa
fonte
o que você quer dizer com "padrão para joules"? isso significa que a unidade de saída nem sempre será fornecida na entrada?
HyperNeutrino
8
Também, eu amo como há realmente um nome para a quantidade de energia necessária para aniquilar completamente uma coisa: P
HyperNeutrino
podemos considerar a unidade de saída como uma das 6 entradas distintas? caso contrário, é um formato complicado I / O e aqueles são desencorajados
HyperNeutrino
@HyperNeutrino com certeza, mas você ainda precisa da abreviação na saída.
Nissa
2
@StephenLeppik " uma das seis entradas distintas que representam a unidade a ser usada " - essas entradas distintas podem ser 4,184, 62,76 etc.?
NGN

Respostas:

6

05AB1E , 56 54 bytes

Aceita entrada como unit, radius, mass

6n56•G*•x619+•Oć•4°z)•1¡‡•S°*"Wwigu"I1èkè*2498T>°P/*¹J

Experimente online!

Economizou 2 bytes graças a Erik, o exportador (codificação base 255 4184e 6276).

Emigna
fonte
16

JavaScript (ES6), 78 bytes

Aceita entrada como 3 variáveis ​​distintas (mass, radius, unit).

(m,r,u)=>m*m/r/[8987e9,56,6276e6,,4184e5,1e-4,360][parseInt(u,30)%7]/2498e11+u

Casos de teste

O snippet a seguir executa todos os casos de teste na planilha fornecida.

Mostrar snippet de código

Quão?

Isso é bastante semelhante à resposta C do @ ColeraSu , com uma função hash compatível com JS que funciona em toda a cadeia de unidades.

Unit       | Parsed as (*) | Base-30 -> Dec. | mod 7
-----------+---------------+-----------------+------
"J"        | "j"           | 19              | 5        (*):
"kilotons" | "kilotons"    | 451052545318    | 4          Because we're parsing as Base-30,
"nukes"    | "n"           | 23              | 2          characters [u-z] (and anything
"twinkies" | "t"           | 29              | 1          after them) are simply ignored.
"kWh"      | "k"           | 20              | 6
"kg"       | "kg"          | 616             | 0
Arnauld
fonte
7

Geléia , 78 bytes

²×⁽LÐ÷ȷ14÷⁴÷5÷⁵ị“¤Fðẏẏż“?A⁺ẏẏż“¬ŀż“8Ƙż“¡uþ³⁾ẉṿÆ“¡’¤;⁵ị“ÞṠlT“¡ṁæ-“;ØḲ“ȧ¹“ṫD“}»¤

Experimente online!

Coisas para fazer com cordas não são realmente o tipo de desafio de Jelly ...

-7 bytes graças a user202729 (obrigado por me ajudar a não ser derrotado pelo JavaScript: D)

HyperNeutrino
fonte
Sim, agora você está empatado com JS e ainda não está no topo.
NISSAN
@StephenLeppik Pelo menos eu não estou sendo derrotado: D e shush 05AB1E é inerentemente melhor em desafios de cadeia: P
HyperNeutrino 27/11
6

C, 113 bytes

Hash do segundo caractere, usando o final '\0'de "J". Matriz embutida em C é usada.

Observe que precisamos multiplicar o segundo por Múltimo, ou ele passará para inf.

f(m,r,c)float m,r;char*c;{printf("%e%s",m/r/(float[]){1e-4,360,6276e6,8987e9,56,4184e5}[c[1]%36%7]/2498e11*m,c);}

Experimente online!

Colera Su
fonte
+1. Não tenho certeza se possível, mas f (m, r, char * c) float m, r {…} economizaria alguns bytes. Além disso, o ponto e vírgula depois printf é opcional
xanoetux
@xanoetux Qual compilador você usa? Ambos não funcionam na minha máquina.
Colera Su
Estou usando o GCC. Não testado, mas tenho certeza do último ponto e vírgula. (testará mais tarde)
xanoetux 27/11
4

APL (Dyalog Unicode) , 153 71 69 bytes

op←{⍺,⍨40032E¯15÷÷/8987E13 36E5 6276E10 56E4 4184E9 1['gWuw '⍳⊃1↓⍺]⍵⍺⍺⍵}

Experimente online!

Agradeço a @ Adám por ter esmagado absolutamente minha antiga resposta a essa. Obrigado a @ngn por 2 bytes.

Essa 'função' é na verdade um operador chamado op. Todos os valores para as unidades de medida foram transformados em notação científica.

Como funciona:

{⍺,⍨40032E¯15÷÷/8987E13 36E5 6276E10 56E4 4184E9 1['gWuw '⍳⊃1↓⍺]⍵⍺⍺⍵}
                                                             1↓⍺         ⍝ take the measurement unit without the first letter (because it is ambiguous)
                                                            ⊃            ⍝ picks the first element returned by 
                                                           ⍳             ⍝ Dyadic ⍳ota, which finds the index of
                                                  'gWuw '                ⍝ each of these characters
                                                 [             ]         ⍝ square brackets indicate the index
               8987E13 36E5 6276E10 56E4 4184E9 1                        ⍝ of the element of this vector (1-indexed) which will be used as the divisor for
            ÷/                                                  ⍵⍺⍺⍵     ⍝ dividing by the left operand (⍺⍺) and the right argument squared.
    40032E¯15÷                                                           ⍝ then divide this number by the result
 ⍺,⍨                                                                     ⍝ and append the measurement unit
J. Sallé
fonte
3

Python 3, 112 106 108 101 Bytes

lambda m,r,u:str(40032e-19*m*m/r/{'':1e-4,'i':4184e5,'u':6276e6,'w':56,'W':360,'g':8987e9}[u[1:2]])+u

Bem direto. Usa a enotação do Python . Usa um ditado que distingue a unidade com base na segunda letra e divide pelo valor de corrosponding. u[1:2]é basicamente u[1], espera que ele retorne'' vez de um erro (que eu aprendi apenas agora). Em seguida, aplica a fórmula com algumas simplificações.

editar: até 106 graças a totalmente humano, de volta a 108 por causa do novo valor das armas nucleares e até 101 graças a Colera Su.

Experimente online!

PattuX
fonte
3

Excel (Office 365), 106 101 97 bytes

Supondo que célula A1é a massa, A2é o raio e B1é a unidade, escrita como uma abreviação para a saída.

=40032E-19*A1^2/(A2*SWITCH(MID(B1,2,1),"u",6276E6,"w",56,"W",360,"g",89876E8,"i",4184E5,1E-4))&B1

Excel, 130 bytes

O Excel antiquado não tem a SWITCHfunção, então você tem

=40032E-15*A1^2/(A2*IF(B1="J",1,IF(B1="nukes",6276E10,IF(B1="twinkies",56E4,IF(B1="kWh",36E5,IF(B1="kg",299792E3^2,4184E9))))))&B1
KSmarts
fonte
Você pode salvar 2 bytes substituindo 299792E3^2por 89876E12 (Ainda preciso o suficiente para os requisitos das perguntas). Divida todos os valores 1000salvando outros 2:=40032E-19*A1^2/(A2*SWITCH(MID(B1,2,1),"u",6276E6,"w",56,"W",360,"g",89876E8,"i",4184E5,1E-4))&B1
Wernisch
Ei, só quero divulgar que a Switch()função está disponível para cópias da área de trabalho do Excel e foi introduzida no Office 2016.
Taylor Scott
1

Ruby, 83 82 bytes

->m,r,u{"#{40032E-18*m*m/r/[36E2,56,8987E9,1E-3,4184E6,6276E7][u.sum*3%71%6]} "+u}

Usa um hash personalizado para indexar uma LUT para as unidades ( i * k mod mfórmula). Os números foram encontrados usando força bruta.

Peter Lenkefi
fonte
0

Excel, 94 bytes

Toma Massa de A1, Raio de B1, Unidade em C1. Olhe para cima 2*Code(Unit) + Length(Unit) modulo 11.

=4.0032E-15*A1^2/B1/CHOOSE(MOD(2*CODE(C1)+LEN(C1),11),,4184E5,,,6276E6,1E-4,89876E8,360,56)
Wernisch
fonte
0

Geléia , 59 bytes

Eu só queria tentar outro método estranho para converter as unidades. Mas o resto do código provavelmente é mal jogado.

⁵OÆPḄ%9ị[56,4184ȷ5,8987ȷ9,360,0,6276ȷ6,1ȷ-4]
²÷⁴÷2498ȷ11÷¢⁵

Experimente online!

Quão?

Construímos uma 'assinatura' de uma cadeia de unidades a partir da primalidade de seus códigos ASCII. Nós o interpretamos como um valor binário e aplicamos um módulo para obter o índice final na tabela de pesquisa.

⁵OÆPḄ%9ị[...]    - helper link to convert the unit to a hardcoded constant
⁵                - the 3rd input        e.g. "kilotons"
 O               - to ASCII codes       --> [107, 105, 108, 111, 116, 111, 110, 115]
  ÆP             - is prime?            --> [1, 0, 0, 0, 0, 0, 0, 0]
    Ḅ            - binary -> decimal    --> 128
     %9          - modulo 9             --> 2
       ị[...]    - get value from table --> 418400000

²÷⁴÷2498ȷ11÷¢⁵   - main link taking the mass, the radius and the unit
²                - square the mass
 ÷⁴              - divide by the radius
   ÷2498ȷ11      - divide by 2498e11
           ÷¢    - divide by the unit constant, invoking the helper link as a nilad
             ⁵   - append the unit

O link auxiliar fornece os seguintes índices para cada unidade:

unit     | ASCII codes                     | is prime?       | bin -> dec | mod 9
---------+---------------------------------+-----------------+------------+------
J        | 74                              | 0               |      0     |   0
kilotons | 107,105,108,111,116,111,110,115 | 1,0,0,0,0,0,0,0 |    128     |   2
nukes    | 110,117,107,101,115             | 0,0,1,1,0       |      6     |   6
twinkies | 116,119,105,110,107,105,101,115 | 0,0,0,0,1,0,1,0 |     10     |   1
kWh      | 107,87,104                      | 1,0,0           |      4     |   4
kg       | 107,103                         | 1,1             |      3     |   3
Arnauld
fonte