Виклик

Так, гм, здається, що, хоча у нас є безліч проблем, які працюють з квадратними числами або числами інших фігур, у нас немає такої, яка просто запитує:

Враховуючи ціле число n(де n>=0) як вхід, повертайте триєдне значення, якщо nце ідеальний квадрат або значення фальси, якщо ні.

Правила

• Ви можете брати інформацію будь-яким розумним, зручним способом, якщо це дозволено стандартними правилами вводу / виводу .
• Вам не потрібно обробляти введення більше, ніж те, що обрана вами вибрана мова, і це не призведе до неточностей з плаваючою комою.
• Вихід повинен бути одним із двох послідовних значень truthy / falsey (наприклад, trueабо false, 1або 0) - truthy, якщо вхід є ідеальним квадратом, фальси, якщо це не так.
• Це код-гольф, тому виграє найменший байт.

Випробування

Input:  0
Output: true

Input:  1
Output: true

Input:  64
Output: true

Input:  88
Output: false

Input:  2147483647
Output: false

Нейм , 2 байти

q𝕚

Пояснення:

q      Push an infinite list of squares
 𝕚     Is the input in that list?

Коли я кажу "нескінченний", я маю на увазі, поки ми не досягнемо максимального значення longs (2 ^ 63-1). Однак Нейм (повільно) переходить до теоретично нескінченно великих BigIntegers.

Спробуй це!

Желе , 2 байти

Ʋ

Спробуйте в Інтернеті!

TI-Basic, 4 байти

not(fPart(√(Ans

Просто перевірте, чи квадратний корінь є цілим числом, шукаючи ненульову дробову / десяткову частину.

C #, 27 байт

n=>System.Math.Sqrt(n)%1==0

Більш правильний / точний спосіб зробити це:

n=>System.Math.Sqrt(n)%1<=double.Epsilon*100

JavaScript (ES6), 13 байт

n=>!(n**.5%1)

Повертає істину, якщо квадратний корінь n - це ціле число.

Фрагмент:

f=
n=>!(n**.5%1)

console.log(f(0));
console.log(f(1));
console.log(f(2));
console.log(f(4));
console.log(f(8));
console.log(f(16));
console.log(f(88));
console.log(f(2147483647));

постійний струм, 9

0?dvd*-^p

Виходи 1 для тритуму та 0 для фальси.

Спробуйте в Інтернеті .

0            # Push zero.  Stack: [ 0 ]
 ?           # Push input.  Stack: [ n, 0 ]
  dv         # duplicate and take integer square root.  Stack: [ ⌊√n⌋, n, 0 ]
    d        # duplicate.  Stack: [ ⌊√n⌋, ⌊√n⌋, n, 0 ]
     *       # multiply.  Stack: [ ⌊√n⌋², n, 0 ]
      -      # take difference. Stack: [ n-⌊√n⌋², 0 ]
       ^     # 0 to power of the result.  Stack: [ 0^(n-⌊√n⌋²) ]
        p    # print.

Прим dc«сек ^команда експоненцірованіе дає 0 ⁰ = 1 і 0 ^п = 0, де п> 0.

Сітківка , 18 байт

.+
$*
(^1?|11\1)+$

Спробуйте в Інтернеті! Безсоромно адаптований з відповіді @ MartinEnder на: Чи це число трикутне? але з базовим перетворенням включено вартістю 6 байт.

Зауважте, що це число трикутне? з якихось незрозумілих причин не потрібно підтримувати нуль як трикутне число, тому частиною адаптації було додати а, ?щоб зробити ведучий 1 необов’язковим, що дозволило групі співпасти порожній рядок, а отже і нульовий вхід. Однак, після зіставлення порожнього рядка, +оператор перестає повторюватись, щоб уникнути нескінченного циклу, який би стався, якби він продовжував жадібно відповідати порожній рядку (адже, ^1?безумовно, продовжував би відповідати). Це означає, що він навіть не намагається співставити іншу альтернативу в групі, тим самим уникаючи відповідності 2, 6, 12 і т. Д. Як зазначає @MartinEnder, більш простим способом уникнути цього під час співпадіння порожнього рядка є якір матч на старті, роблячи групу необов'язковим для того ж лічильнику байтів: ^(^1|11\1)*$.

C (gcc), 30 байт

f(n){n=sqrt(n)==(int)sqrt(n);}

Спробуйте в Інтернеті!

C, 34 байти

f(n){return(int)sqrt(n)==sqrt(n);}

Спробуйте в Інтернеті!

C, 33 байти

#define f(n)(int)sqrt(n)==sqrt(n)

Спробуйте в Інтернеті!

MATL , 5 4 байти

Завдяки Луїсу за те, що він зменшив на один байт довший код на два байти, що робить його найкоротшим.

t:Um

Спробуйте в Інтернеті

Пояснення:

         % Implicit input
t        % Duplicate it
 :       % Range from 1 to input value
  U      % Square the range, to get 1 4 9 ... 
   m     % ismember, Checks if the input is a member of the range of perfect squares

Стара відповідь:

X^1\~

Спробуйте в Інтернеті!

        % Implicit input
X^      % Square root of input
  1\    % Modulus 1. All perfect squares will have 0, the rest will have decimal value
     ~  % Negate, so the 0 becomes 1, and the decimal values become 0

Python 3 , 40 38 байт

Завдяки кальмарам за економію 2 байтів!

lambda n:n in(i*i for i in range(n+1))

Спробуйте в Інтернеті!

Занадто повільно, щоб повернути відповідь за 2147483647розумну кількість часу. (Але написано за допомогою генератора для збереження пам'яті, оскільки він не коштує жодних байтів.)

Працює і в Python 2, хоча це OverflowErrorє можливою причиною, rangeякщо ви спробуєте це з величезними входами. (A MemoryErrorтакож буде ймовірно в Python 2, також через range.)

Perl 5 , 14 байт

13 байт коду + -pпрапор.

$_=sqrt!~/\./

Спробуйте в Інтернеті!

Обчислює квадратний корінь і виглядає, якщо це ціле число (точніше, якщо він не містить крапки ( /\./).

05AB1E , 4 байти

Ln¹å

Спробуйте в Інтернеті!

Python 3 , 19 байт

lambda n:n**.5%1==0

Спробуйте в Інтернеті!

SageMath , 9 байт

is_square

Спробуйте в Інтернеті

Вбудована функція робить саме те, що написано на бляшанці. Оскільки Sage використовує символічні обчислення, він не містить помилок обчислювальної точності, які плавають IEEE-754.

Japt , 3 байти

¬v1

Спробуйте в Інтернеті!

Здається, добре працює 2**54-2в інтерпретаторі Japt, але не працює в TIO чомусь ...

Haskell, 26 24 байти

f n=elem n$map(^2)[0..n]

Спробуйте в Інтернеті!

Перевіряє, чи n у списку всіх квадратів від 0до n.

Пролог (SWI) , 27 байт

+N:-between(0,N,I),N=:=I*I.

Спробуйте в Інтернеті!

Пояснення

Проводить пошук усіх чисел, більших або рівних 0та менших або рівних, Nі перевіряє, чи є це число у квадраті рівним N.

MathGolf , 1 байт

°

Спробуйте в Інтернеті!

Я не думаю, що пояснення не потрібно. Я побачив потребу в операторі "ідеальний квадрат" ще до того, як я побачив це завдання, оскільки мова створена для вирішення проблем із гольфом, пов'язаних з математикою. Повертає 0 або 1, оскільки MathGolf використовує цілі числа для представлення булів.

PHP, 21 байт

<?=(-1)**$argn**.5<2;

Якщо квадратний корінь не є цілим числом, (-1)**$argn**.5це NAN.

Рубін, 25 байт

Math.sqrt(gets.to_i)%1==0

Можливо, існує коротший шлях, але це все, що я знайшов.

Спробуйте в Інтернеті!

CJam , 8 байт

ri_mQ2#=

Спробуйте в Інтернеті!

Пояснення

Цілий квадратний корінь, квадрат, порівняйте з початковим числом.

Математика, 13 байт

AtomQ@Sqrt@#&

Спробуйте в Інтернеті!

APL (Dyalog) , 8 байт

0=1|*∘.5

Спробуйте в Інтернеті!

0= [є] нуль дорівнює

1| модуль-1 (тобто дробова частина)

*∘.5 аргумент, піднятий до сили половини

AWK , 27 + 2 байти

{x=int($0^0.5);$0=x*x==$1}1

Спробуйте в Інтернеті!

Додайте +2байти для використання -Mпрапора для довільної точності. Спочатку я використовував порівняння рядків, тому що велика кількість порівнювали рівними, хоча їх і не було, але вони sqrtтакож повертають неточні значення. 2^127-2не повинен бути ідеальним квадратом.

T-SQL, 38 байт

SELECT IIF(SQRT(a)LIKE'%.%',0,1)FROM t

Шукає десяткову точку в квадратному корені. IIFє специфічним для MS SQL, тестується і працює в MS SQL Server 2012.

Введення є у колонці a попередньо існуючої таблиці t , згідно з нашими правилами введення .

Ом , 2 байти

Ʋ

Використовує CP-437кодування.

Пояснення

Неявне введення -> Ідеальний квадратний вбудований -> Неявний вихід ...

Java 8, 20 байт

n->Math.sqrt(n)%1==0

Введення - це int.

Спробуйте тут.

R, 15

scan()^.5%%1==0

^ .5 менше байтів, ніж sqrt (). Модуль %% 1, приведе до 0, якщо відповідь є інтергером. scan () приймає введення користувача.

http://www.tutorialspoint.com/execute_r_online.php?PID=0Bw_CjBb95KQMSm1qVktIOUdSSDg

Додати ++ , 24 13 11 байт

+?
S
%1
N
O

Спробуйте в Інтернеті!

Я видалив незграбну функцію вгорі і переписав її в тіло питання, щоб видалити 11 байт.

Оскільки перший розділ уже пояснено нижче, давайте лише з’ясуємо, як працює нова частина

S   Square root
%1  Modulo by 1. Produced 0 for integers and a decimal for floats
N   Logical NOT

Стара версія, 24 байти

D,i,@,1@%!
+?
^.5
$i,x
O

Спробуйте в Інтернеті!

Функція вгорі ( D,i,@,1@%!) є основною частиною програми, тому давайте детальніше.

D,     Create a function...
  i,   ...called i...
  @,   ...that takes 1 argument (for this example, let's say 3.162 (root 10))
    1  push 1 to the stack; STACK = [1, 3.162]
    @  reverse the stack;   STACK = [3.162, 1]
    %  modulo the stack;    STACK = [0.162]
    !  logical NOT;         STACK = [False]

+?     Add the input to accumulator (x)
^.5    Square root (exponent by 0.5)
$i,x   Apply function i to x
O      Output the result

Python 3 , 28 27 25 байт

• Завдяки @mdahmoune за 1 байт: порівняйте інт кореня в квадраті з оригіналом
• Збережено 2 байти: лямбда скорочена

lambda x:int(x**.5)**2==x

Спробуйте в Інтернеті!