Примечание. Это ветка полицейских , в которой нужно разместить зашифрованный код. Вот ветка грабителей, где взломанный источник должен быть опубликован и связан с ответом полицейского.

Задача: Напишите самую короткую безопасную программу, которая умножает квадратный корень из целого числа n на квадрат n

Это копы и грабители , поэтому правила таковы:

• В своем ответе опубликуйте зашифрованную версию вашего исходного кода (символы должны быть написаны в любом порядке). Зашифрованная версия не должна работать!
• Вы можете принять ввод любым стандартным способом, то же самое относится и к выводу. Жесткое кодирование запрещено
• После того, как код будет взломан грабителями (если это произойдет), вы должны упомянуть, что ваш код был взломан в вашем заголовке, и добавить спойлер в текст вашего ответа с вашим точным кодом.
• То же самое относится и к безопасным ответам (упомяните, что это безопасно, и добавьте спойлер )
• Код считается безопасным, если никто не взломал его через 5 дней после публикации, и вы можете указать это в заголовке.
• Вы должны указать свой язык программирования
• Вы должны указать количество байтов
• Вы должны указать механизм округления в своем ответе (см. Ниже)

Можно предположить, что результат меньше 2 ^32, а n всегда положительно. Если результатом является целое число, вы должны вернуть точное значение с десятичной точкой или без нее; в противном случае минимальная десятичная точность будет равна 3 десятичным знакам с любым механизмом округления по вашему выбору, но может включать и больше. Вы должны указать механизм округления в своем ответе. Вы не можете вернуться в виде дробей (числитель, знаменатель пары - извините, Bash!)

Примеры:

In -> Out

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

Самый короткий безопасный ответ к концу апреля будет считаться победителем.

05AB1E, 20 байтов - безопасно

Еще один совершенно другой подход из моих предыдущих ответов.

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

Нет округления.

Пример работает

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

Я не сомневаюсь, что @Emigna взломает его в один миг, но нужно попробовать! :-D

Решение

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

Это использует тот факт, что эта последовательность:

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

сходится к sqrt (x) и кубически быстро при этом (извините, не нашел, как отформатировать математические уравнения в PCG).

Детальное объяснение

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)

Попробуйте онлайн!

Python 3 , 44 байта ( взломан )

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

Нет округления. Точность с плавающей точкой.

MATL , 12 байт ( взломано @tehtmi )

'Un&0P'/^:+1

Нет округления; использует с плавающей точкой.

Предполагаемое решение (отличается от найденного @tehtmi):

:&+n10U'P'/^

объяснение

:&+ % 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

Röda , 28 байт ( взломано @tehtmi )

 (),.025^^cdfhnnnopprstuu{|}

Обратите внимание на пробел в начале. Нет округления, но он использует числа с плавающей запятой, поэтому точность ограничена.

Perl, 42 байта (безопасный)

Есть 41 байт кода и -pфлага (других флагов нет).

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

Результат не округляется (или, скорее, округляется до той же точки, которую Perl получит при округлении $_ = (sqrt $_) * ($_ ** 2)).

Решение:

$_=eval".i44<4}{|~"=~s/./chr-10+ord$\&/gre
(без спойлера \до &уценки, кажется, не нравится, $а затем &)
Попробуйте онлайн!

Объяснение:

.i44<4}{|~is, $_**2*sqrtно с каждым символом, замененным символом с его кодом ascii + 10. (ascii-код $is 36, поэтому он становится .чьим ascii-кодом 46и т. д.).
Цель этого s/./chr-10+ord$\&/greсостоит в том, чтобы отменить это преобразование: оно заменяет каждый символ на символ с кодом ASCII на 10 ниже. ( chr-10+ord$\&вероятно, яснее, chr(ord($\&)-10)когда chrвозвращает символ, соответствующий коду ascii, и ordвозвращает код, соответствующий символу ascii).
наконец, evalоценивает эту строку и таким образом вычисляет результат, который хранится в нем $_, который неявно печатается в конце благодаря -pфлажку.

Октава, 43 байта (Сейф)

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

Это скрипт, который требует ввода из командной строки (это не функция). Это точность с плавающей точкой (поэтому нет округления).

Решение:

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

Объяснение:

eval( <string> ) % Evaluated the string inside the brackets and executes it
Все внутри evalзвонка оценивается input('')^2.5

как?

-[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'

Добавление первого вектора к этой строке преобразует его в целочисленный вектор:
[105, 110, 112, 117, 116, 40, 39, 39, 41, 94, 50, 46, 53]

evalнеявно преобразует это в строку, и эти числа просто так: input('')^2.5

C, 50 байтов ( взломано fergusq )

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

Использует стандартное округление IEEE754. Как отмечено в ответе fergusq, может потребоваться в -lmзависимости от вашего компилятора.

Mathematica, 131 байт, не конкурирует ?, взломан

Это был взломан @ lanlock4 ! Тем не менее, у меня все еще есть интернет-очки, чтобы даровать кого-то, кто находит оригинальное решение, где все персонажи действительно необходимы ....

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

Это задумано как головоломка. Хотя вы можете использовать вышеперечисленные символы так, как хотите, я, конечно, намерен, чтобы ответ следовал за формой

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

где первая и третья строки являются просто оберткой, чтобы сделать округление и отображение законным (каждый вывод записывается ровно в три десятичных знака, округлено), а вторая строка представляет собой зашифрованную версию кишок кода. Пример выходов:

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

(Mathematica - это несвободное программное обеспечение, но есть песочница Wolfram, где можно тестировать скромные объемы кода. Например, вырезать и вставить код

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

определяет функцию, которую вы впоследствии можете вызвать как f@6или f[9], которая делает то же самое, что и расшифрованная версия кода выше. Так это действительно должно быть неконкурентным?)

Swift - 64 байта (безопасно)

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

Нет округления и отображает .0даже если результат является целым числом.

Haskell, 16 байт ( взломано @nimi )

()*...25=eglopxx

Нет конкретного округления

R, 28 байт ( взломано @Flounderer )

funny(p1)-tio(^*^)/pc(2)<p2;

Точность Standard R с плавающей точкой.

C #, 172 байта ( взломано SLuck49 )

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

Этот код является полной программой.

В начале есть семь пробелов.

Ввод читается из STDIN и распечатывается в STDOUT. Результат doubleне округлен.

Оригинальный код безголовый:

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));
    }
}

JavaScript (ES7), 20 байт ( взломано @IlmariKaronen )

****..22255666=>____

Стандартная точность JavaScript.

Python 2, 60 байт ( взломано @notjagan )

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

Нет округления. Точно до 10 десятичных цифр.

Python 3.6, 59 байт

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

Нет округления. Точность с плавающей точкой.

Haskell, 64 байта, ( взломано Laikoni )

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

Стандартные операции с плавающей точкой на Haskell.

Моя оригинальная версия:

продукт. ((($ Succ $ соз $ 0) (флип (**).) [идентификатор, Recip])). Флип (ID)

Фурье , 124 119 байт

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

Здесь нет пробелов и символов новой строки.

Квадратный корень округляется до ближайшего целого числа, потому что Фурье, кажется, не обрабатывает ничего, кроме целых чисел (и, поскольку @ATaco получил разрешение, я надеюсь, что это нормально)

исправлена ​​ошибка редактирования, если вы уже взломали это, предыдущий был функционален

Понял, что я неправильно понял часть кода, и использовал больше символов, чем мне было нужно

Если я что-то пропустил, дайте мне знать

Информ 7 , 71 байт ( взломано @Ilmari Karonen )

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

Код включает 17 пробелов и 2 новые строки. Это полная программа Infrom 7, определяющая функцию, которая печатает результат с точностью до 5 десятичных знаков.

R, 19 байт (взломано @Steadybox)

mensana(4*5*c(.1)):

Стандартное округление

R, 33 байта (взломано @plannapus)

(rofl(17)^coins(2*e)/pisan(10))--

R, 31 байт (взломано @plannapus)

h=f`l`u`n`c`t`i`o`n([],[])^(.9)

Октава, 30 байт (безопасно)

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

Немного проще, чем мой первый. Не должно быть слишком сложно, но, надеюсь, это веселая головоломка.

Ом, 11 байт

M ⁿ¡D¼½;+1I

Используйте с -cфлагом. Использует кодировку CP-437.

OCaml , 13 байт ( взломано @Dada )

2*fn-5f>f*u .

Нет округления (в рамках стандарта IEEE 754).

Javascript, 123 байта, взломан notjagan

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

Этот код является полной функцией

В самом начале списка символов есть один пробел

Округление этого ответа является точностью с плавающей запятой для Javascript, точность в пределах 10 ^ -6 для каждого ответа.

Стал короче, потому что точность не должна была поддерживаться настолько высокой, как я думал.

Я понял, что это будет намного легче решить, чем я первоначально сделал, но это уже было: P

Исходный код:

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)))))}

Метод Ньютона, примененный 5 раз от ближайшей степени 2

Python 3.6 - 52 байта ( взломано @xnor )

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

Стандартное округление Python

Ruby, 35 байт (взломан xsot )

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

Нет округления. Точность с плавающей точкой.

05AB1E , 47 байтов

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

Не округляет, использует точность с плавающей запятой.

CJam, 8 байт ( взломано E n mig m na )

WYdYl##+

Нет округления. Использует двойную точность.

R, 32 байта ( взломано @plannapus )

i=na*0.5f*n(2*s*cos(t))*22*s*12u

Стандартная точность с плавающей точкой.

Excel, 26 байт

=(())*//11122AAAIINPQRSST^

Нет округления.

Примечание: поскольку Excel является платным программным обеспечением, это также работает в бесплатном LibreOffice.

RProgN 2 , 6 байт ( взломано @notjagan )

š2]^*\

Нет округления, отображает много знаков после запятой. Не отображает ничего для целочисленного решения.