Policías - raíz cuadrada por cuadrado

37

Nota: Este es el hilo de la policía , donde uno debe publicar el código codificado. Aquí está el hilo de los ladrones donde la fuente descifrada debe publicarse y vincularse a la respuesta del policía.


Tarea: Escriba el programa seguro más corto que multiplique la raíz cuadrada de un entero n por el cuadrado de n

Esto es , por lo que las reglas son:

  • En su respuesta, publique una versión codificada de su código fuente (los caracteres deben escribirse en cualquier orden). ¡La versión codificada no debería funcionar!
  • Puede tomar la entrada de cualquier manera estándar, lo mismo ocurre con la salida. La codificación está prohibida
  • Después de que los ladrones descifren el código (si esto sucede), debe mencionar que su código ha sido descifrado en su título y agregar un spoiler al cuerpo de su respuesta con su código exacto
  • Lo mismo se aplica a las respuestas seguras (mencione que es seguro y agregue el spoiler )
  • El código se considera seguro si nadie lo ha descifrado en 5 días después de publicarlo y puede especificarlo opcionalmente en el título
  • Debes especificar tu lenguaje de programación
  • Debe especificar su recuento de bytes
  • Debe indicar el mecanismo de redondeo en su respuesta (ver más abajo)

Se puede suponer que el resultado es menor que 2 32 y n es siempre positivo. Si el resultado es un entero, debe devolver el valor exacto con o sin un punto decimal; de lo contrario, la precisión decimal mínima será de 3 decimales con cualquier mecanismo de redondeo que elija, pero puede incluir más. Debe indicar el mecanismo de redondeo en su respuesta.No puedes regresar como fracciones (numerador, pares de denominador - ¡lo siento, Bash!

Ejemplos:

In -> Out

4 -> 32.0 (or 32)
6 -> 88.18163074019441 (or 88.182 following the rules above)
9 -> 243.0
25 -> 3125.0

La respuesta segura más corta para fines de abril será considerada la ganadora.

Sr. Xcoder
fuente
2
Relacionado. (Las mismas reglas de CnR, tarea diferente.)
Martin Ender
2
@MartinEnder Si la tarea es lo único diferente, ¿no es un duplicado?
Nathan Merrill
1
@NathanMerrill No lo sé, no creo que tengamos pautas duplicadas establecidas para el desafío de policías y ladrones, pero si solicito un nuevo desafío de código de golf , donde lo "único" que es diferente de un código de golf anterior es la tarea, generalmente no se considera un duplicado. ;) (Dicho esto, estoy de acuerdo en que los CnR son probablemente más interesantes si cambiamos la parte CnR del desafío, no la tarea subyacente.)
Martin Ender
1
¡Buena suerte a todos! Estoy realmente contento de que hayas decidido reabrir esto. ¡Espero ver respuestas interesantes!
Sr. Xcoder
2
Había escrito mi código para trabajar para una entrada de hasta 2 ^ 32 ... Es por eso que pregunté acerca de los errores de redondeo, me salí de la marca en ese momento
fəˈnɛtɪk

Respuestas:

2

05AB1E, 20 bytes - seguro

Otro enfoque totalmente diferente de mis respuestas anteriores.

****++/133DDFPTs}¹¹Ð

Sin redondeo.

Ejecuciones de ejemplo

In   -> Out
0    -> 0
4    -> 32.0
6    -> 88.18163074019441
25   -> 3125.0
7131 -> 4294138928.896773

No tengo dudas de que @Emigna lo va a romper en un santiamén, ¡pero hay que intentarlo! :-RE


Solución

D1TFÐ*D¹3*+s3*¹+/*}P

Esto está usando el hecho de que esta secuencia:

u_0 = 1, u_ {n + 1} = u_n * (u_n ^ 2 + 3 x) / (3 u_n ^ 2 + x)

converge a sqrt (x), y cúbicamente rápido (perdón, no encontré cómo formatear ecuaciones matemáticas en PCG).

Explicación detallada

D1TFÐ*D¹3*+s3*¹+/*}P
D1                   # Duplicate the input, then push a 1: stack is now [x, x, 1] (where x is the input)
  TF                 # 10 times (enough because of the cubic convergence) do
    Ð                # triplicate u_n
     *               # compute u_n ^ 2
      D              # and duplicate it
       ¹3*+          # compute u_n ^ 2 + 3 x
           s         # switch that last term with the second copy of u_n ^ 2
            3*¹+     # compute 3 u_n ^ 2 + x
                /    # compute the ratio (u_n ^ 2 + 3 x) / (3 u_n ^ 2 + x)
                 *   # compute u_n * (u_n ^ 2 + 3 x) / (3 u_n ^ 2 + x), i.e. u_{n+1}, the next term of the sequence
                  }  # end of the loop
                   P # compute the product of the whole stack, which at that point contains u_10 (a sufficiently good approximation of sqrt(x)), and the 2 copies of the input from the initial D: we get x ^ 2 * sqrt(x)

Pruébalo en línea!

usuario4867444
fuente
17

Python 3 , 44 bytes ( agrietado )

'**:(((paraboloid / rabid,mad,immoral))):**'

Sin redondeo. Precisión de punto flotante.

Kyle Gullion
fuente
44
Vamos, esto merece más puntos, ¡es tan creativo! Hay simetría, y todas las palabras son palabras reales.
Erik the Outgolfer
Si no cometiera ningún error tonto ... Agrietado
KSab
11

MATL , 12 bytes ( descifrado por @tehtmi )

'Un&0P'/^:+1

Sin redondeo; usa punto flotante.

Solución prevista (diferente de la encontrada por @tehtmi):

:&+n10U'P'/^

Explicación

:&+ % Create a matrix of size n × n, where n is implicit input
n % Number of elements. Gives n^2
10U % 10 squared. Gives 100
'P' % 'P' (ASCII code 80)
/ % Divide. Gives 1.25
^ % Power. Implicit display

Luis Mendo
fuente
1
¿Grieta?
tehtmi
@tehtmi De hecho! ¡Bien hecho! Mi solución prevista era diferente; Lo acabo de publicar
Luis Mendo el
10

Röda , 28 bytes ( Agrietado por @tehtmi )

 (),.025^^cdfhnnnopprstuu{|}

Tenga en cuenta el espacio al principio. Sin redondeo, pero utiliza números de coma flotante, por lo que la precisión es limitada.

fergusq
fuente
¿Es esta una función anónima o una función "completa"?
Kritixi Lithos
@KritixiLithos si el policía no quiere dar pistas, se supone que no debe hacerlo
Sr. Xcoder
10

Perl, 42 bytes (Seguro)

Hay 41 bytes de código y -pbandera (no hay otras banderas).

/"/4~~r..rso4r<_$4va=eg1de|i/h0-&$c={}l+"

El resultado no es redondeado (o más bien redondeado al mismo punto que Perl habría redondeado haciendo $_ = (sqrt $_) * ($_ ** 2)).

Solución:

$_=eval".i44<4}{|~"=~s/./chr-10+ord$\&/gre
(sin el \anterior &spoiler de reducción parece que no le gusta $seguido &) ¡
Pruébelo en línea!

Explicación:

.i44<4}{|~es $_**2*sqrtpero con cada carácter reemplazado por el carácter con su código ascii + 10. (código ascii de $is 36, entonces se convierte en .cuyo código ascii es 46, etc.).
El propósito de s/./chr-10+ord$\&/grees deshacer esta transformación: reemplaza cada carácter por el carácter con el código ascii 10 más bajo. ( chr-10+ord$\&es probable que sea más claro porque chr(ord($\&)-10)where chrdevuelve el carácter correspondiente a un código ascii y orddevuelve el código ascii correspondiente a un carácter).
finalmente, evalevalúa esta cadena y, por lo tanto, calcula el resultado, que se almacena en $_, que se imprime implícitamente al final gracias a -pflag.

Dada
fuente
Cierto. Estaba tratando de editar rápidamente porque vi 4 votos de reapertura y esperaba resolver la pregunta antes de que se emitiera el 5to. Si la pregunta se hubiera dejado en la caja de arena hasta que estuviera lista, habría sido mejor para todos los involucrados.
Peter Taylor
@PeterTaylor Claro, no hay problema, y ​​de todos modos era en negrita muy visible (no estaba culpando a nadie, sino simplemente señalando un flujo menor (que corrigí de inmediato (introduciendo errores tipográficos en el proceso))). Y no podría estar más de acuerdo sobre la parte de la caja de arena.
Dada
¿Puedes explicarlo un poco?
phuclv
@ LưuVĩnhPhúc ¿Quieres decir si puedo darte un poco de ayuda para resolverlo? mmh ... el código comienza con $_=. Y hay un evallugar. (eso no es mucho pero siento que no puedo darte más sin darte demasiada información)
Dada
8

Octava, 43 bytes (Seguro)

$'()*+,-/23579:[]aelnouv'*,-23:[]lu',-23]',

Este es un script que requiere la entrada de la línea de comando (no es una función). Es la precisión de coma flotante (por lo que no hay redondeo).

Solución:

eval(-[5,-2:3,-3:2]+['nlouu*$$',39,']2/7'])

Explicación:

eval( <string> ) % Evaluated the string inside the brackets and executes it
Todo dentro de la evalllamada se evalúa a input('')^2.5

¿Cómo?

-[5,-2:3,-3:2] % A vector: [-5, 2, 1, 0, -1, -2, -3, 3, 2, 1, 0, -1, -2]
['nlouu**$$',39,']2/7'] % This is a string: nlouu**$ concatenated with the number
. % 39 (ASCII ']'), and ']2/7'. Thus, combined: 'nlouu**$$']2/7'

Agregar el primer vector a esta cadena lo convertirá en el vector entero:
[105, 110, 112, 117, 116, 40, 39, 39, 41, 94, 50, 46, 53]

evalimplícitamente convierte esto en una cadena, y estos números resultan ser: input('')^2.5

Stewie Griffin
fuente
1
Esto fue dificil. ¡Bien hecho!
Luis Mendo
7

C, 50 bytes ( agrietado por fergusq )

%(())   ,-12225;>\\aaabbdddeeefffllnoooprrttuuuuw{

Utiliza el redondeo estándar IEEE754. Como se señala en la respuesta de fergusq, puede requerir -lmdependiendo de su compilador.

Dave
fuente
¿Agrietado?
fergusq
@fergusq correcto, y casi exactamente lo que tenía. Bien hecho; ¡Pensé que había dejado suficientes pistas falsas para mantener a la gente ocupada mucho más tiempo!
Dave
@Dave Wow, eso parece un error de sintaxis al principio.
Erik the Outgolfer
6

Mathematica, 131 bytes, ¿no compite ?, agrietado

¡Esto ha sido descifrado por @ lanlock4 ! Sin embargo, todavía tengo puntos de Internet para otorgar a alguien que encuentre la solución original, donde realmente se necesitan todos los personajes ...

f[y_]:=With[{x=@@@@@@#####^^&&&(((()))){{}}111111,,+-/y},Print[#,".",IntegerString[Round@#2,10,3]]&@@QuotientRemainder[1000x,1000]]

Esto pretende ser un rompecabezas. Aunque puede usar los caracteres anteriores como desee, ciertamente tengo la intención de que la respuesta siga el formulario

f[y_]:=With[{x=
    @@@@@@#####^^&&&(((()))){{}}111111,,+-/y
},Print[#,".",IntegerString[Round@#2,10,3]]&@@QuotientRemainder[1000x,1000]]

donde la primera y la tercera línea son solo un contenedor para hacer que el redondeo y la visualización sean legales (escribe cada salida con exactamente tres decimales, redondeados), y la segunda línea es la versión codificada de las tripas del código. Resultados de muestra:

6 -> 88.182
9 -> 243.000
9999 -> 9997500187.497

(Mathematica is non-free software, but there is a Wolfram sandbox where it is possible to test modest amounts of code. For example, cutting and pasting the code

f[y_]:=With[{x=
    y^2.5
},Print[#,".",IntegerString[Round@#2,10,3]]&@@QuotientRemainder[1000x,1000]]

defines a function, which you can subsequently call like f@6 or f[9], that does the same thing as the unscrambled version of the code above. So does this really have to be non-competing?)

Greg Martin
fuente
¡Lo rompí!
No es un árbol el
6

Swift - 64 bytes (seguro)

prot Fdnufi;nooitamunc xetgru(->atl)Ior:n{tFn pg,F(ao.o25t)(w)l}

No rounding, and displays a .0 even if the result is an integer.

Mr. Xcoder
fuente
4

C#, 172 bytes (Cracked by SLuck49)

       (((((())))))***,,,,......1225;;;;;;<====>CFLMMMMMPPPRSSSSSWaaaaaaabbbbcccddddddeeeeeeeeeeegghiiiiiiiillllllmmnnnnnnnooooooooqqqqrrrssssssssstttttttttuuuuuuuvvwyy{{}}

This code is a full program.

There are seven space characters at the start.

The input is read form STDIN and printed to STDOUT. The result is in double, no rounding done.

Original Code ungolfed:

using System;
using S = System.Console;

class P
{
    static void Main()
    {
        var t = S.ReadLine();
        double q = int.Parse(t);
        Func<double, double, double> M = Math.Pow;
        S.Write(M(q, 2 * .25) * M(q * q, 1));
    }
}
raznagul
fuente
Cracked
SLuck49
3

JavaScript (ES7), 20 bytes (Cracked by @IlmariKaronen)

****..22255666=>____

Standard JavaScript precision.

Neil
fuente
Cracked. (Oops, posted in the wrong thread at first.)
Ilmari Karonen
Such a clever approach! +1 :)
Arjun
3

Python 2, 60 Bytes (Cracked by @notjagan)

 3n0)4  5)594p3(p5*5i9t4542)0/*((8(t.84- 90945 u)i*48/95n8r8

No rounding involved. Accurate up to 10 decimal digits.

Anthony Pham
fuente
Cracked!
notjagan
3

Python 3.6, 59 bytes

ba(,b5,d' (,a/([m:'-)oa)(bl*aadplma dba](r)d )l*d,:)*m:-mml

No rounding. Floating point accuracy.

Kyle Gullion
fuente
Really, 3 lambdas?
Mr. Xcoder
3

Haskell, 64 bytes, (cracked by Laikoni)

$$$$$$(((((())))))**,...0<<<>>>[]cccccdddeffiiiiilloopppprrsstuu

Standard Haskell floating point operations.

My original version is:

product.((($succ$cos$0)(flip(**).)[id,recip])).flip(id)

nimi
fuente
Cracked!
Laikoni
@Laikoni: well done!
nimi
3

Fourier, 124 119 Bytes

((()))*******--011111<=>>>HHINNNN^^^eeehhhhkkkkmmmmmmmmmmmmmmmmossuuuuuuuuuuuuuuuuu{{{{{{{{{{}}}}}}}}}}~~~~~~~~~~~~~~~~

There are no whitespaces or newline characters.

Square root is rounded to the nearest whole number because Fourier doesn't seem to handle anything other than integers (and since @ATaco got permission, I hope this is ok)

fixed an editing mistake, if you were already cracking this, the previous was functional

Realized that I had misunderstood part of the code, and was using more characters than I needed to

If I missed anything let me know

wwj
fuente
3

Inform 7, 71 bytes (Cracked by @Ilmari Karonen)

""()**-..:[]
                 RT
aaaabeeeffilmmnnnnnooooooqrrrrrssstuuy

The code includes 17 spaces and 2 new lines. This is a full Infrom 7 program defining a function that prints the result with a precision of 5 decimal places.

corvus_192
fuente
Cracked.
Ilmari Karonen
3

Octave, 30 bytes (Safe)

(((((())))))**++/:@eeeiiijmsu~

A bit simpler than my first one. Shouldn't be too hard, but it's hopefully a fun puzzle.

Stewie Griffin
fuente
2
No ^? Hmmm...
Luis Mendo
1
Came up with this @(e)(e**((i/(i+i))+~sum(e:j))) but it's only n^1.5...this one's tricky.
Kyle Gullion
3

Ohm, 11 bytes

M ⁿ¡D¼½;+1I

Use with -c flag. Uses CP-437 encoding.

Roman Gräf
fuente
I'm sorry, but are you quite sure this is correct?
user4867444
Now that no one has cracked it in the imparted time, mind sharing your solution please? I'm very curious :)
user4867444
For now, this is the shortest answer considered safe. I will accept it, but if you do not post your original code in 5 days, I will uncheck this, since I am not sure this is possible. EAGER too see your solution
Mr. Xcoder
2
@RomanGräf try to find your solution, please. Otherwise I will uncheck this...
Mr. Xcoder
1
@RomanGräf : ping? Still very eager to see that solution :)
user4867444
2

Javascript, 123 bytes, Cracked by notjagan

 """"""((((((((()))))))))********,--.....//2;;======>>Seeeeeeegggggggggggghhhhhhhhhhhilllllnnnnnnnnnnorrrsstttttttttttttu{}

This code is a full function

There is one space character at the very start of the list of characters

The rounding of this answer is the floating point precision for Javascript, accuracy is within 10^-6 for every answer.

Got shorter because the precision didn't need to be maintained quite as high as I thought it did.

I had realized that it would be much easier to solve than I initially had made it but it was already there :P

Initial code:

g=t=>t-(t*t-n)/("le".length*t);e=h=>{n=h*h*h*h*h,s=2**(n.toString("ng".length).length/"th".length);return g(g(g(g(g(s)))))}

Newtons method, applied 5 times from the closest power of 2

fəˈnɛtɪk
fuente
2

Python 3.6 - 52 bytes (Cracked by @xnor)

f=lambda x:x**125*77*8+8/5/((('aafoort.hipie.xml')))

Standard Python rounding

c..
fuente
Cracked
xnor
2

Ruby, 35 bytes (cracked by xsot)

'a'0-a<2<e<2<l<3<v<4<4<4<5<5<6>7{9}

No rounding. Floating point accuracy.

G B
fuente
Cracked
xsot
2

05AB1E, 47 bytes

)*.2555BFHIJJKKKPQRST``cgghilnstwx}«¹¹Áöž‚„…………

Does not round, uses floating point accuracy.

Okx
fuente
Cracked
Emigna
2

Excel, 26 bytes

=(())*//11122AAAIINPQRSST^

No rounding.

Note: As Excel is paid software, this works also in free LibreOffice

pajonk
fuente
1
Is there a way to run this without buying Excel? Currently it is the consensus that non free languages cannot be used in cops and robbers.
Wheat Wizard
1
Should work in free Libreoffice, but I'll check and reach back.
pajonk
1
Works just fine.
pajonk
@WheatWizard, not relevant anymore, but I think the consensus is: Non-free languages can be used, but should be marked as non-competing.
Stewie Griffin
2

RProgN 2, 6 Bytes (Cracked by @notjagan)

š2]^*\

No rounding, displays many decimal places. Does not display any for an integer solution.

ATaco
fuente
2
Does this really perform n²√n? I can easily get it to calculate n² + √n, but I can't for the life of me see how you got the terms to multiply.
notjagan
@notjagan me too... have been trying for 2 hours to crack it and nothing works. ATaco are you sure that the source is correct?
Mr. Xcoder
@Mr.Xcoder Ah, you're quite correct. Sorry for wasting your collective times! Please see the edited source.
ATaco
Now it makes sense!
Mr. Xcoder
A bit late because I was busy, but cracked.
notjagan