เป้าหมายคือการคำนวณกำลังสองทั้งหมดxด้วยการบวกและการลบ

กฎ:

1. รหัสจะต้องเป็นฟังก์ชั่นที่ใช้จำนวนสแควร์สทั้งหมดในการสร้างและส่งกลับอาร์เรย์ที่มีสแควร์ทั้งหมด
2. คุณไม่สามารถใช้สตริงโครงสร้างการคูณการหารหรือฟังก์ชันในตัวสำหรับการคำนวณกำลังสอง
3. คุณสามารถใช้อาร์เรย์จำนวนเต็ม (จำนวนเต็ม) การบวกการลบเท่านั้น ไม่มีผู้ให้บริการรายอื่นอนุญาต!

นี่เป็นคำถามเกี่ยวกับcode-golfดังนั้นรหัสที่สั้นที่สุดในหน่วยไบต์ชนะ!

APL - 10

{+\1++⍨⍳⍵}

ตัวอย่างการใช้งาน:

{+\1++⍨⍳⍵}10
1 4 9 16 25 36 49 64 81 100

การสาธิต APL ngn

C, 55 52 ไบต์

int s(int n,int*r){for(int i=0,j=-1;n--;*r++=i+=j+=2);}

เพียงผลรวมจำนวนคี่

• n: จำนวนสี่เหลี่ยมที่จะคำนวณ
• r: อาร์เรย์เอาต์พุตสำหรับเก็บผลลัพธ์
• j: รับค่าต่อเนื่อง 1, 3, 5, 7, ...
• i: เพิ่มขึ้นjทุกครั้งที่ทำซ้ำ

แก้ไข

4 ตัวอักษรสามารถบันทึกได้โดยใช้การประกาศ int โดยนัย (> C99) แต่ค่าใช้จ่ายนี้เป็น 1 ถ่านเพราะตัวforเริ่มต้นไม่สามารถมีการประกาศใน> C99 จากนั้นรหัสก็จะกลายเป็น

s(int n,int*r){int i=0,j=-1;for(;n--;*r++=i+=j+=2);}

การใช้

void main() {
    int r[20];
    s(20, r);
    for (int i = 0; i < 20 ; ++i) printf("%d\n", r[i]);
}  

เอาท์พุต

1
4
9
16
25
36
49
(...)
361
400

GolfScript, 17 ตัวอักษร

{[,{.+(1$+}*]}:F;

การใช้งาน (ดูตัวอย่างออนไลน์ ):

10 F     # => [0 1 4 9 16 25 36 49 64 81]

หมายเหตุ: *เป็นลูปไม่ใช่ตัวดำเนินการคูณ

Windows รุ่นที่ 115 ไบต์

setlocal enabledelayedexpansion&for /l %%i in (1 1 %1)do (set a=&for /l %%j in (1 1 %%i)do set /a a+=%%i
echo.!a!)

สิ่งนี้ควรอยู่ในไฟล์แบตช์แทนที่จะถูกเรียกใช้จาก cmd และส่งออกรายการไปยังคอนโซล ใช้จำนวนของช่องสี่เหลี่ยมในการสร้างจากอาร์กิวเมนต์บรรทัดคำสั่งแรก ส่วนใหญ่จะใช้&แทนการขึ้นบรรทัดใหม่ แต่ก็ยังจำเป็นต้องใช้และจะนับเป็นสองไบต์

cmd /v:onมันต้องขยายตัวตัวแปรล่าช้าเปิดใช้งานนี้สามารถทำได้ด้วย สมมติว่ามันไม่setlocal enabledelayedexpansion&จำเป็นต้องมีสิ่งพิเศษในตอนเริ่มต้น (โดยไม่มีสคริปต์คือ 83 ไบต์)

Haskell - 30

f n=scanl1(\x y->x+y+y-1)[1..n]

สิ่งนี้ใช้ความจริงที่ว่า (n+1)^2=n^2+2n+1

Perl, 27 ไบต์

sub{map{$a+=$_+$_-1}1..pop}

คณิตศาสตร์:

สคริปต์สำหรับเรียกใช้ฟังก์ชันเพื่อพิมพ์ 10 กำลังสอง:

#!/usr/bin/env perl
$square = sub{map{$a+=$_+$_-1}1..pop};
use Data::Dumper;
@result = &$square(10);
print Dumper \@result;

ผลลัพธ์:

$VAR1 = [
          1,
          4,
          9,
          16,
          25,
          36,
          49,
          64,
          81,
          100
        ];

การแก้ไข:

• ฟังก์ชั่นไม่ระบุชื่อ (−2 ไบต์ขอบคุณskibrianski )
• popแทนshift(−2 ไบต์ขอบคุณskibiranski )

JavaScript - 32 ตัวอักษร

for(a=[k=i=0];i<x;)a[i]=k+=i+++i

ถือว่าตัวแปรxที่มีอยู่และสร้างอาร์เรย์ของสี่เหลี่ยมสำหรับค่าa1..x

ECMAScript 6 - 27 ตัวอักษร

b=[f=i=>b[i]=i&&i+--i+f(i)]

โทรf(x)จะเติมอาร์เรย์ที่มีสี่เหลี่ยมสำหรับค่าb0..x

Julia - 33

หมายเลขสแควร์ใด ๆ ที่สามารถเขียนโดยการรวมของเลขคี่:

julia> f(x,s=0)=[s+=i for i=1:2:(x+x-1)];f(5)
5-element Array{Int64,1}:
  1
  4
  9
 16
 25

C ++ 99 81 78 80 78

int* f(int x){int a[x],i=1;a[0]=1;while(i<x)a[i++]=a[--i]+(++i)+i+1;return a;}  

ความพยายามครั้งแรกของฉันในการเล่นกอล์ฟ

รหัสนี้ขึ้นอยู่กับ
a = 2 xn - 1
โดยที่nคือจำนวนคำและaคือคำที่nในชุดต่อไปนี้
1, 3, 5, 9, 11, 13, 13, .....
ผลรวมของ 2 เทอมแรก = 2 ยกกำลังสอง

ผลรวมของ 3 เทอมแรก = 3 กำลังสอง
และต่อไป ...

ชุดประกอบ DCPU-16 (90 ไบต์)

ฉันเขียนสิ่งนี้ลงในชุดประกอบสำหรับโปรเซสเซอร์แบบสวมเพราะเหตุใด

:l
ADD I,1
SET B,0
SET J,0
:m
ADD J,1
ADD B,I
IFL J,I
SET PC,m
SET PUSH,B
IFL I,X
SET PC,l

จำนวนที่คาดว่าจะอยู่ในการลงทะเบียน X และการลงทะเบียนอื่น ๆ คาดว่าจะเป็น 0 ผลลัพธ์จะถูกผลักไปยังกองซ้อนมันจะแตกเมื่อถึง 65535 เนื่องจากสถาปัตยกรรม 16 บิต คุณอาจต้องการเพิ่มSUB PC, 1การสิ้นสุดเพื่อทดสอบ คอมไพล์โปรแกรมควรมีขนาด 20 ไบต์ (10 คำ)

Haskell

f x=take x [iterate (+y) 0 !! y | y<- [0..]]

สิ่งนี้เป็นการประดิษฐ์การคูณใช้มันเองและแมปมันกับตัวเลขทั้งหมด f 10= [0,1,4,9,16,25,36,49,64,81]. นอกจากนี้=f 91[0,1,4,9,16,25,36,49,64,81,100,121,144,169,196,225,256,289,324,361,400,441,484,529,576,625,676,729,784,841,900,961,1024,1089,1156,1225,1296,1369,1444,1521,1600,1681,1764,1849,1936,2025,2116,2209,2304,2401,2500,2601,2704,2809,2916,3025,3136,3249,3364,3481,3600,3721,3844,3969,4096,4225,4356,4489,4624,4761,4900,5041,5184,5329,5476,5625,5776,5929,6084,6241,6400,6561,6724,6889,7056,7225,7396,7569,7744,7921,8100]

Haskell, 34/23

n#m=m+n:(n+2)#(m+n)
f n=take n$1#0

หรือถ้าการนำเข้าไม่เป็นไร:

f n=scanl1(+)[1,3..n+n]

เอาท์พุท:

λ> f 8
[1,4,9,16,25,36,49,64]

Javascript 47

function f(n,a){return a[n]=n?f(n-1,a)+n+n-1:0}

r=[];f(12,r);console.log(r) ผลตอบแทน:
[0, 1, 4, 9, 16, 25, 36, 49, 64, 81, 100, 121, 144]

สมอลทอล์ค, 52

f:=[:n||s|(s:=1)to:n collect:[:i|x:=s.s:=s+i+i+1.x]]

ส่งคืนอาร์เรย์ใหม่ (เช่นไม่เติมหรือเพิ่มลงในอาร์เรย์ที่มีอยู่)

โทร:

ค่า f: 10

-> # (1 4 9 16 25 36 49 64 81 100)

หลาม - 39

a=0
for i in range(5):a+=i+i+1;print(a)

แทนที่5ด้วยค่าใด ๆ ข้อเสนอแนะใด ๆ

ทุบตี - 92 85 62 61 59 57

declare -i k=1;for((i=0;i++<$1;k+=i+i+1));do echo $k;done

ผลลัพธ์:

$ ./squares.sh 10
1
4
9
16
25
36
49
64
81
100

แก้ไข: ฉันแทนที่ลูปภายในด้วยอัลกอริทึมจากโซลูชัน Haskell ของ @ mniip

วิธีการเดียวกับข้างต้นใน APL และ J:

APL: F←{+\1+V+V←¯1+⍳⍵}(17 ตัวอักษร) ทำงานได้กับตัวแปร APL ส่วนใหญ่ (ลองที่นี่ )

และแม้แต่น้อย (เพียง 14 ตัวอักษร) ด้วย NGN APL: F←{+\1+V+V←⍳⍵}(ดูที่นี่ )

J: f=:+/\@(>:@+:@:i.)(18 ตัวอักษร)

แก้ไข:ทางออกที่ดีกว่าใน APL: F←{+\¯1+V+V←⍳⍵}(15 ตัวอักษร)

C # (82)

int[] s(int n){int i,p=0;var r=new int[n];while(i<n){p+=i+i+1;r[i++]=p;}return r;}

C # - 93

int[]s(int l){int[]w=new int[l];while(l>=0){int i=0;while(i<l){w[l-1]+=l;i++;}l--;}return w;}

เมื่อถูกเรียกจากเมธอดอื่นของคลาสเดียวกันจะส่งคืนอาร์เรย์ - [1,4,9,16,25,36...]ขึ้นไปจนถึงlองค์ประกอบ th

Fortran II | IV | 66 | 77, 134 122 109 105

  SUBROUTINES(N,M)
  INTEGERM(N)
  K=0
  DO1I=1,N
  K=K+I+I-1
1 M(I)=K
  END

แก้ไข: ลบวงด้านในออกและใช้อัลกอริทึม Haskell ของ @ mniip แทน

แก้ไข: ตรวจสอบว่ารูทีนย่อยและไดรเวอร์เป็น Fortran II และ IV ที่ถูกต้อง

ไดร์เวอร์:

  INTEGER M(100)
  READ(5,3)N
  IF(N)5,5,1
1 IF(N-100)2,2,5
2 CALLS(N,M)
  WRITE(6,4)(M(I),I=1,N)
3 FORMAT(I3)
4 FORMAT(10I6)
  STOP  
5 STOP1
  END

ผลลัพธ์:

$ echo 20 | ./a.out
   1     4     9    16    25    36    49    64    81   100
 121   144   169   196   225   256   289   324   361   400

Python - 51

ที่นี่ฉันกำลังกำหนดหน้าที่ตามกฎที่ร้องขอ

การใช้sumตัวเลขคี่:

f=lambda n:[sum(range(1,i+i+3,2))for i in range(n)]

นี้ใช้เท่านั้นsum(builtin ซึ่งดำเนินการเพิ่ม) และrange(builtin ซึ่งสร้างอาร์เรย์โดยใช้การเพิ่ม) หากคุณคัดค้านsumเราสามารถทำได้ด้วยreduce:

def g(n):v=[];reduce(lambda x,y:v.append(x) or x+y,range(1,i+i+3,2));return v

PHP, 92 ไบต์

สิ่งนี้จำเป็นต้องเปิดใช้งานตัวเลือก "แท็กสั้น" แน่นอน (เพื่อกำจัด 3 ไบต์เมื่อเริ่มต้น)

<? $x=100;$a=1;$r=0;while($r<=$x){if($r){echo"$r ";}for($i=0,$r=0;$i<$a;$i++){$r+=$a;}$a++;}

เอาท์พุท:

1 4 9 16 25 36 49 64 81 100 

Forth - 48 ไบต์

: f 1+ 0 do i 0 i 0 do over + loop . drop loop ;

การใช้งาน:

7 f

เอาท์พุท:

0 1 4 9 16 25 36 49