ท้าทาย

ดังนั้นอืมดูเหมือนว่าในขณะที่เรามีความท้าทายมากมายที่ทำงานกับรูปสี่เหลี่ยมจตุรัสหรือตัวเลขของรูปทรงอื่น ๆ เราไม่มีสิ่งที่ถาม:

รับจำนวนเต็มn(ที่ไหนn>=0) เป็นอินพุตส่งกลับค่าความจริงหากnเป็นตารางที่สมบูรณ์แบบหรือค่าเท็จถ้าไม่

กฎระเบียบ

• คุณสามารถป้อนข้อมูลด้วยวิธีการที่เหมาะสมและสะดวกสบายใด ๆ ตราบเท่าที่มันได้รับอนุญาตตามกฎ I / Oมาตรฐาน
• คุณไม่จำเป็นต้องจัดการอินพุตมากกว่าภาษาที่คุณเลือกสามารถจัดการได้อย่างเป็นธรรมชาติและจะนำไปสู่ความไม่ถูกต้องของจุดลอยตัว
• เอาท์พุทควรจะเป็นหนึ่งในสอง truthy สอดคล้อง / ค่า falsey (เช่นtrueหรือfalse, 1หรือ0) - truthy ถ้าใส่เป็นตารางที่สมบูรณ์, falsey หากยังไม่ได้
• นี่คือcode-golfดังนั้นจำนวนไบต์ที่น้อยที่สุดจึงชนะ

กรณีทดสอบ

Input:  0
Output: true

Input:  1
Output: true

Input:  64
Output: true

Input:  88
Output: false

Input:  2147483647
Output: false

Neim , 2 ไบต์

q𝕚

คำอธิบาย:

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

เมื่อฉันพูดว่า 'ไม่มีที่สิ้นสุด' ฉันหมายถึงจนกว่าเราจะตีค่าสูงสุดของ longs (2 ^ 63-1) อย่างไรก็ตาม Neim เปลี่ยนไปเป็น 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));

dc, 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 โดยที่ n> 0

เรติน่า 18 ไบต์

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

ลองออนไลน์! ดัดแปลงมาจากคำตอบของ @ MartinEnder อย่างไร้ยางอายเป็นตัวเลขสามเหลี่ยมนี้หรือไม่ แต่ด้วยการแปลงฐานรวมอยู่ที่ค่าใช้จ่าย 6 ไบต์

โปรดทราบว่าตัวเลขนี้เป็นสามเหลี่ยมหรือไม่ ไม่ใช่เหตุผลที่อธิบายไม่ได้บางอย่างที่จำเป็นในการสนับสนุนเลขศูนย์เป็นจำนวนสามเหลี่ยมดังนั้นส่วนหนึ่งของการดัดแปลงคือการเพิ่ม a ?เพื่อทำให้ตัวเลือก 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 ไบต์

ขอบคุณ Luis ที่ลดขนาดโค้ดของฉันลงหนึ่งไบต์อีกสองไบต์ทำให้เป็นรหัสที่สั้นที่สุด

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 ไบต์

ขอบคุณ squid สำหรับการบันทึก 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ในJaptic Interpreterแต่ล้มเหลวใน TIO ด้วยเหตุผลบางอย่าง ...

Haskell, 26 24 ไบต์

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

ลองออนไลน์!

ตรวจสอบว่า n อยู่ในรายการของสี่เหลี่ยมทั้งหมดจากการ0n

Prolog (SWI) 27 ไบต์

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

ลองออนไลน์!

คำอธิบาย

การค้นหาผ่านตัวเลขทั้งหมดมากกว่าหรือเท่ากับ0และน้อยกว่าหรือเท่ากับและการทดสอบไม่ว่าจะเป็นตัวเลขที่ยกกำลังสองเท่ากับNN

MathGolf 1 ไบต์

°

ลองออนไลน์!

ฉันไม่คิดว่าต้องการคำอธิบาย ฉันเห็นความต้องการผู้ดำเนินการ "is perfect square" ก่อนที่ฉันจะเห็นความท้าทายนี้เนื่องจากภาษาได้รับการออกแบบมาเพื่อจัดการกับความท้าทายเกี่ยวกับกอล์ฟ ส่งคืน 0 หรือ 1 เนื่องจาก MathGolf ใช้จำนวนเต็มเพื่อเป็นตัวแทนของ booleans

PHP, 21 ไบต์

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

หากรากที่ไม่ได้เป็นตัวเลขจำนวนเต็มคือ(-1)**$argn**.5NAN

ทับทิมขนาด 25 ไบต์

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

อาจเป็นวิธีที่สั้นกว่า แต่นั่นคือทั้งหมดที่ฉันพบ

ลองออนไลน์!

CJam , 8 ไบต์

ri_mQ2#=

ลองออนไลน์!

คำอธิบาย

รากที่สองจำนวนเต็ม, สแควร์, เปรียบเทียบกับจำนวนเดิม

Mathematica ขนาด 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

การป้อนข้อมูลที่อยู่ในคอลัมน์ของที่มีอยู่ก่อนตารางตันต่อกฎป้อนข้อมูลของเรา

โอห์ม 2 ไบต์

Ʋ

ใช้การCP-437เข้ารหัส

คำอธิบาย

อินพุตโดยนัย -> จัตุรัสในตัวที่สมบูรณ์แบบ -> เอาต์พุตโดยนัย ...

Java 8, 20 ไบต์

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

intการป้อนข้อมูลเป็น

ลองที่นี่

R, 15

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

^ .5 น้อยกว่า sqrt () %% 1 โมดูลัสจะส่งผลให้ 0 ถ้าคำตอบคือ interger scan () รับอินพุตของผู้ใช้

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

เพิ่ม ++ , 24 13 11 ไบต์

+?
S
%1
N
O

ลองออนไลน์!

ฉันลบฟังก์ชั่น clunky ที่ด้านบนและเขียนลงในเนื้อความของคำถามเพื่อลบ 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 ไบต์: เปรียบเทียบ int ของ root กำลังสองกับแบบดั้งเดิม
• บันทึก 2 ไบต์: แลมบ์ดาสั้นลง

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

ลองออนไลน์!