เด็กชายและเด็กหญิงตื่นเต้นที่จะได้เห็นFifty Shades of Greyบนหน้าจอสีเงินเราแค่ต้องการโค้ดโดยไม่ถูกรบกวนดังนั้นนี่คือความท้าทายในการเลือกสมองของเรา

คุณต้อง:

• พิมพ์บนหน้าจอห้าสิบสี่เหลี่ยมที่เต็มไปด้วยแต่ละสีเทาที่แตกต่างกัน
• หากภาษาที่คุณเลือกไม่มีความสามารถในการประมวลผลภาพคุณสามารถส่งออกไฟล์ภาพได้
• ต้องมองเห็นช่องสี่เหลี่ยมอย่างน้อย 20 x 20 พิกเซล
• คุณไม่สามารถใช้ตัวเลขสุ่มได้เว้นแต่คุณจะตรวจสอบให้แน่ใจว่าแต่ละเฉดสีนั้นไม่ซ้ำกัน
• คุณไม่สามารถเชื่อมต่อกับบริการใด ๆ ผ่านเครือข่ายใด ๆ
• คุณไม่สามารถอ่านไฟล์ใด ๆ ในโปรแกรมของคุณ
• คุณไม่สามารถใช้ไลบรารีใด ๆ จากไลบรารีมาตรฐานของภาษาที่คุณเลือก

รหัสนี้เป็นรหัสกอล์ฟที่สั้นที่สุดที่จะชนะ

MATLAB, 24 ไบต์

ความพยายามครั้งที่สองตอนนี้เป็นจริงตามกฎ

imshow(0:1/49:1,'I',2e3)

'ฉัน' หมายถึง 'InitialMagnification' แต่ Matlab จะเติมข้อความอัตโนมัติในชื่อ / คู่ค่า แน่นอนว่าเป็นเคล็ดลับการเล่นกอล์ฟที่ดี!

Mathematica ขนาด 30 ไบต์

นี่เป็นอีกวิธีการทางคณิตศาสตร์:

ArrayPlot[#+5#2&~Array~{5,10}]

หรือ

ArrayPlot[5#+#2&~Array~{10,5}]

คนแรกเพียงแค่สร้างอาร์เรย์

{{6, 11, 16, 21, 26, 31, 36, 41, 46, 51}, 
 {7, 12, 17, 22, 27, 32, 37, 42, 47, 52}, 
 {8, 13, 18, 23, 28, 33, 38, 43, 48, 53}, 
 {9, 14, 19, 24, 29, 34, 39, 44, 49, 54}, 
 {10, 15, 20, 25, 30, 35, 40, 45, 50, 55}}

และอันที่สอง

{{6, 7, 8, 9, 10},
 {11, 12, 13, 14, 15},
 {16, 17, 18, 19, 20},
 {21, 22, 23, 24, 25},
 {26, 27, 28, 29, 30},
 {31, 32, 33, 34, 35},
 {36, 37, 38, 39, 40},
 {41, 42, 43, 44, 45},
 {46, 47, 48, 49, 50},
 {51, 52, 53, 54, 55}}

จากนั้นทำการArrayPlotแปลงเป็นตารางและโดยค่าเริ่มต้นจะใช้ greyscale เพื่อแสดงค่า

CJam - 23 (ไม่มีเอาต์พุตกราฟิกจริง)

เนื่องจาก CJam วาดภาพบนหน้าจอไม่ได้ (?) ฉันจึงเขียนโปรแกรมที่แสดงผลภาพในรูปแบบpgmธรรมดา
บันทึกผลลัพธ์ไปยังไฟล์ชื่อ 50.pgm และเปิดด้วยโปรแกรมดูรูปภาพ / แก้ไข

"P2"1e3K51_,1>K*$K*~]N*

ลองออนไลน์

ผลลัพธ์จะเป็นดังนี้:

คำอธิบาย:

"P2"     push "P2" (netpbm magic number)
1e3K     push 1000 and K=20 (image size)
51       push 51 (value of white)
_,       duplicate 51 and convert to an array [0 1 2 ... 50]
1>       remove 0 (slice from 1)
K*       repeat the array 20 times
$        sort, to get [(20 1's) (20 2's) ... (20 50's)]
K*       repeat the array 20 times
~        dump the elements on the stack
]        put everything from the stack in an array
N*       join with newlines

Mathematica 72 61 59 43 35 34 ไบต์

รุ่นปัจจุบัน (34 ไบต์)

GrayLevel[#/50]~Style~50 &~Array~50    

รุ่นก่อนหน้า (59 ไบต์) ต้องขอบคุณ Martin Büttner

Graphics[{GrayLevel[#/50],Cuboid@{#~Mod~9,#/9}}&/@Range@50]

เพิ่มเส้นขอบสีน้ำเงินเพื่อเน้นตำแหน่งสี่เหลี่ยม

Graphics[{EdgeForm[Blue], GrayLevel[#/50], Cuboid@{#~Mod~9, #/9}} & /@Range@50]

จำนวนสี่เหลี่ยม:

    Length[%[[1]]]

50

ความพยายามครั้งแรก (72 ไบต์)

หากช่องสี่เหลี่ยมสามารถทับซ้อนกัน ตามที่การ์บกล่าวมีความเป็นไปได้ในระยะไกลที่หนึ่งตารางจะซ่อนอีกส่วน

  Graphics@Table[{GrayLevel@k,Cuboid[{0,15}~RandomReal~2]},{k,.4,.89,.01}]

Sage - 26 24 35 29 ตัวอักษร

matrix(5,10,range(50)).plot()

ดูเหมือนว่านี้:

พยายามก่อนหน้านี้ : ครั้งแรกที่ฉันได้แล้วMatrix([range(50)]).plot() matrix_plot([range(50)])สิ่งเหล่านี้ดูเหมือนว่า:

User @flawr ชี้ให้เห็นว่าสี่เหลี่ยมที่สร้างขึ้นด้วยการตั้งค่าเริ่มต้นนั้นเล็กเกินไป การเพิ่มfigsizeตัวเลือกแก้ไขได้ แต่จะยาวกว่า 5x10 ตัวอักษร 6 ตัวที่ด้านบนของคำตอบนี้:

matrix_plot([range(50)],figsize=20)

R, 47 42 39 38 37 36 35 ไบต์

สมมติว่าพวกเขาได้รับอนุญาตให้ทับซ้อนงานนี้ Symbolsต้องการเวกเตอร์ที่มีขนาดสำหรับแต่ละตารางและฉันกำลังประหยัดพื้นที่ด้วยการนำเวกเตอร์เดียวกันมาใช้ใหม่สำหรับพารามิเตอร์ฟังก์ชันทั้งหมด สี่เหลี่ยมจัตุรัสที่ใหญ่ที่สุดนั้นกว้าง 1 นิ้วเสมอ ด้วย 50:99 เป็นช่วงของจำนวนเต็มสี่เหลี่ยมที่เล็กที่สุดจะกว้างประมาณครึ่งนิ้วดังนั้น 36 พิกเซลที่ 72 dpi

symbols(x,,,x<-50:99,bg=gray(x/99))

ขอบคุณทุกคนสำหรับความคิดเห็นและข้อเสนอแนะฉันค่อนข้างใหม่กับ R ดังนั้นทั้งหมดนี้เป็นเรื่องการศึกษามาก

รุ่นก่อนหน้า:

symbols(x,sq=x<-50:99,bg=gray(x/99))            #36
x=50:99;symbols(x,sq=x,bg=gray(x/99))           #37
x<-50:99;symbols(x,sq=x,bg=gray(x/99))          #38
x<-1:50;symbols(x,sq=x/x,bg=gray(x/50))         #39
x<-1:50/50;symbols(x,sq=x/x,bg=rgb(x,x,x))      #42
x<-1:50/50;symbols(x,squares=x/x,bg=rgb(x,x,x)) #47

ภาพก่อนหน้า:

Java - 180

ตรงไปตรงมาสวยเพียงแค่วาดกล่อง

import java.awt.*;void f(){new Frame(){public void paint(Graphics g){for(int i=1;i<51;g.setColor(new Color(328965*i)),g.fillRect(i%8*20,i++/8*20,20,20))setSize(600,600);}}.show();}

ด้วยตัวแบ่งบรรทัด:

import java.awt.*;
    void f(){
        new Frame(){
            public void paint(Graphics g){
                for(int i=1;
                    i<51;
                    g.setColor(new Color(328965*i)),
                    g.fillRect(i%8*20,i++/8*20,20,20))
                    setSize(600,600);
            }
        }.show();
    }

BBC BASIC, 57

FORn=51TO2STEP-1VDU19;-1,n,n,n:RECTANGLEFILL0,0,n*20NEXT

สี่เหลี่ยมจัตุรัสต้องมีอย่างน้อย 20 พิกเซล แต่ไม่มีอะไรจะบอกว่ามันต้องมีขนาดเท่ากันดังนั้นฉันเดาว่ามันมีคุณสมบัติ

อาจเป็นไปได้ที่จะย่อให้สั้นลงโดยใช้รหัส VDU ระดับต่ำมากขึ้น แต่การเปลี่ยนจากรูปแบบนี้เป็นสิ่งที่น่าสนใจน้อยกว่านั้นไม่น่าจะทำให้สั้นลง

ipython 2, 54 ไบต์

สิ่งที่ดีที่สุดที่ฉันทำได้คือใช้โปรแกรม ipython การเริ่มต้น ipython ด้วยipython -pylabและเรียกใช้งานโปรแกรมนี้จะแสดงกราฟที่มีสีเทา 50 เฉดใน 50 สี่เหลี่ยม:

t=arange(50);c=t/50.;scatter(t%5,t,500,zip(c,c,c),'s')

เอาท์พุท:

โซลูชันที่ 2:

นี่คือโปรแกรมอื่น (61 ไบต์):

imshow(arange(50).reshape(5,10)*.02,'Greys',None,1,'nearest')

ที่แสดงหน้าต่างต่อไปนี้:

JavaScript ( 72 , 70 , 67 ไบต์)

72: ต้นฉบับ (ยืมการ■ใช้งานที่ชาญฉลาดจากคำตอบของ Sphinxxx ):

for(i=90;i>40;)document.write('<font color=#'+i+i+i--+' size=7>&#9632;')

70: ขโมยอย่างไร้ความปราณีจากIsmael Miguel (ผู้สมควรได้รับคะแนน), สั้นลงสำหรับลูปและอนุญาตให้เบราว์เซอร์แก้ไขให้ถูกต้องเนื่องจากไม่มี # ดำเนินการตามรหัสสี ...

for(i=60;--i>9;)document.write('<font color='+i+i+i+' size=7>&#9632;')

67 ไบต์ (65 ตัวอักษร): การสลับเอนทิตีสำหรับอักขระ Unicode:

for(i=60;--i>9;)document.write('<font color='+i+i+i+' size=7>■')

C ++, 98 83 ตัวอักษร

โอเคคุณจะต้องมีเทอร์มินัลอีมูเลเตอร์ที่รองรับสีจริง สำหรับ mac os นั้นมีการสร้าง iTerm2 ทุกค่ำคืน สำหรับยูนิกซ์ฉันเชื่อว่า konsole รองรับ นี่คือรายการในกรณี: https://gist.github.com/XVilka/8346728#now-supporting-truecolor

คอมไพล์ด้วย g ++ (\ e ขึ้นอยู่กับคอมไพเลอร์)

เพื่อให้สี่เหลี่ยมมีพื้นที่เพียงพอคุณจะต้องเปลี่ยนขนาดฟอนต์เทอร์มินัล

#include <cstdio>
int main(){for(int i=51;i--;)printf("\e[48;2;%i;%i;%im ",i,i,i);}

การใช้ไลบรารี C แทน C ++ ช่วยให้สามารถโกนอักขระบางตัวได้

C, 61 58 ตัวอักษร

นี่เป็นโปรแกรมเดียวกัน แต่ใน C ซึ่งถือว่าการประกาศฟังก์ชันที่ไม่ได้พิมพ์เพื่อคืนค่า int และไม่จำเป็นต้องมีสำหรับฟังก์ชันไลบรารีมาตรฐานบางอย่างเช่นในกรณีนี้ printf แนะนำโดย @cartographer น้อยกว่าสามตัวอักษรด้วย @ user3601420

main(i){for(i=51;i--;)printf("\e[48;2;%i;%i;%im ",i,i,i);}

คอมไพล์ด้วยคำเตือนสองสามข้อ (สำหรับการสมมติว่าชนิดการส่งคืนของ main เป็น int และสำหรับปริยายรวมถึงการประกาศ printf)

Python 2, 125 115 104 bytes

from turtle import*
shape("square")
bk(500)
ht()
pu()
exec'color((xcor()/2e3+.5,)*3);stamp();fd(21);'*50

ตัวอย่างผลลัพธ์:

ดีเต่าเก่า นี่เป็นวิธีเดียวที่ฉันนึกได้ใน Python ที่พิมพ์รูปภาพไปยังหน้าจอโดยใช้ไลบรารีมาตรฐานเท่านั้น

รูปทรงเต่าสี่เหลี่ยมนั้นมีขนาด 21 คูณ 21 ซึ่งสะดวกมาก สิ่งนี้สามารถเห็นได้โดยการขุดผ่านturtle.py:

"square" : Shape("polygon", ((10,-10), (10,10), (-10,10), (-10,-10)))

หากคุณมีมอนิเตอร์ความละเอียดสูงหรือไม่สนใจว่ากำลังออกนอกจอสองสามสี่เหลี่ยมนี่คือ93 ไบต์:

from turtle import*
shape("square")
ht()
pu()
exec'color((xcor()/2e3,)*3);stamp();fd(21);'*50

การสาธิต

(ตัวอย่างนี้ใช้Skulptโดยปรับตัวอย่างที่พบที่นี่มันรวมไว้เพื่อให้แนวคิดว่าโค้ดทำอะไร - ฉันต้องแก้ไขสองสามบิตเพื่อให้มันทำงานได้)

function out(a){var b=document.getElementById("output");b.innerHTML+=a}function builtinRead(a){if(void 0===Sk.builtinFiles||void 0===Sk.builtinFiles.files[a])throw"File not found: '"+a+"'";return Sk.builtinFiles.files[a]}
$(document).ready(function run(){Sk.canvas="canvas";Sk.configure({output:out,read:builtinRead});try{Sk.importMainWithBody("<stdin>",!1,'import turtle\nt=turtle.Turtle()\nt.speed(9)\nt.shape("square")\n\nt.bk(500)\nt.ht()\nt.pu()\nfor i in range(50):t.color(64+2*i,64+2*i,64+2*i);t.stamp();t.fd(21)')}catch(a){throw Error(a.toString());}})

<script type="text/javascript" src="http://ajax.googleapis.com/ajax/libs/jquery/1.6.2/jquery.min.js"></script><script src="http://www.skulpt.org/static/skulpt.min.js" type="text/javascript"></script><script src="http://www.skulpt.org/static/skulpt-stdlib.js" type="text/javascript"></script>
<canvas height="100" width="1200" id="canvas" style="border:1px solid gray">Your browser does not support HTML5 Canvas!</canvas>

J ( 43 41 40 38 33 29 ตัวอักษร)

หลังจากที่ข้อเสนอแนะจากrandomra

1!:2&4'P2 ',":(,*:,],*:#?~)50

วิธีนี้ไม่ได้แสดงอะไรเลยเพราะไลบรารีมาตรฐานของ J ไม่มี GUI ประจำ แต่ฉันสร้างภาพและเขียนลงในเอาต์พุตมาตรฐานแทน ผลลัพธ์จะถูกสุ่มทำให้มั่นใจได้ว่าเฉดสีทั้งหมดนั้นแตกต่างกัน นี่คือเอาต์พุตตัวอย่างบางส่วนและภาพที่ถูกแปลงเป็น png และหมุนได้ 90 °เพื่อการดูที่ง่ายขึ้น:

Excel vba, 81

ในหน้าต่างทันที:

for i=1 to 9:for j=1 to 9:k=i+j*10:cells(i,j).interior.color=rgb(k,k,k):next:next

บนแผ่นงานที่ใช้งานอยู่:

^{{81 เฉดเป็นโค้ดมากเท่ากับ 50}}

R ,3732 ตัวอักษร¹ :

image(t(1:50),c=gray.colors(50))

อย่างไรก็ตามหน้าจอสำหรับสิ่งนี้ดู… meh (ภาพหมุน 90 °เพื่อให้พอดีกับข้อความได้ดียิ่งขึ้นความยาวของสี่เหลี่ยมจัตุรัสดั้งเดิม> 20px):

ต่อไปนี้เป็นเวอร์ชันที่ดีกว่าซึ่งจะแปลงสี่เหลี่ยมตามลำดับแบบสุ่มภายในเมทริกซ์ (50 ตัวอักษร):

image(matrix(sample(1:50),10),c=gray.colors(50))

(และใช่สี่เหลี่ยมสามสีที่อยู่ติดกันซึ่งดูเหมือนกันจะเป็นสีเทาสามเฉดสีที่ต่างกัน)

¹ใช่อีกคำตอบ Rและไม่ใช่แม้แต่ที่สั้นที่สุด(ตอนนี้สั้นที่สุดสำหรับ R) - ขอโทษ ฉันขาดการแสดงผลที่สวยงามในอาร์

Matlab 35 ต้องขอบคุณ sanchises

imshow(int8(ones(20,1)*(0:.05:51)))

Matlab 36

imshow(uint8(ones(20,1)*(0:.05:51)))

แสดง 50 สี่เหลี่ยมที่เต็มไปด้วยค่าสีเทา 1 ถึง 50 และ 2 สี่เหลี่ยมเพิ่มเติมที่เติมด้วยค่าสีเทา 0 และ 51:

Matlab, 45

imshow(uint8(ones(20,1)*floor(1:0.05:50.95)))

JavaScript, 87 90ไบต์

for(i=90;i>40;)document.write('<p style=background:#'+i+i+i--+';height:9ex;width:9ex>')

เอาต์พุตนี้จะยกกำลังสองไปยัง HTML เนื่องจากเป็นวิธีการแสดงผลกราฟิกของ JavaScript เท่านั้น ขอบคุณ edc65 สำหรับการโกนขนาด 3 ไบต์

PHP, 96 88 74 ไบต์

ขอบคุณ Ismael Miguel ที่ช่วยประหยัด 22 ไบต์!

for($i=60;--$i>9;)echo"<p style=background:#$i$i$i;height:9mm;width:9mm>";

เขียน 50 <p>วินาทีด้วยความสูงและความกว้าง 9 มม. (ซึ่งควรใหญ่กว่า 20px ในหน้าจอส่วนใหญ่) ซ้อนกันซึ่งทั้งหมดมีความแตกต่างเล็กน้อยในที่ร่ม

ผลลัพธ์ที่สร้างขึ้น (รูปภาพถูกย่อและหมุน 90 °):

Matlab - 33 ไบต์

surf(meshgrid(1:7)),colormap gray

แม้จะมีคำสั่ง verbose ผลลัพธ์ก็ยังค่อนข้างกะทัดรัด มันดูดีขึ้นเล็กน้อยถ้าคุณแทนที่surfด้วยsurfaceแต่มีค่าใช้จ่าย 3 ตัวอักษร

หากคุณไม่สังเกตสี่เหลี่ยมสีเทาที่ 50 นั่นเป็นเพราะมันใหญ่กว่าจัตุรัสอื่นเล็กน้อย!

Javascript (77 71 ไบต์):

คำตอบนี้ไม่ได้อยู่กับ IE11 อีกต่อไป มันทำงานได้เพราะเบราว์เซอร์แปลงรหัสสีที่ไม่ดีเป็นรหัสที่ใช้งานได้ (โดยการเพิ่ม#หมายเลข)

นี่คือรหัส:

for(i=59;i-->9;)document.write("<hr color="+i+i+i+" size=20 width=20>")

Firefox ยังมีมุมมองที่แปลกประหลาดในการสร้างแวดวง

(แก้ไขเล็กน้อย: เปลี่ยนfor(i=61;i-->9;)เป็นfor(i=59;i-->9;)เพราะมันสร้าง 52 สี่เหลี่ยม)

คำตอบเก่า:

สิ่งนี้ขึ้นอยู่กับคำตอบ PHP ของฉันและใช้วิธีเดียวกันในการสร้างสแควร์ส:

for(i=51;i--;)document.write("<hr color=rgb("+[i,i,i]+") size=20 width=20>");

ไม่ใช่คำตอบที่สั้นที่สุด แต่ควรเพิ่มที่นี่

โซลูชันนี้ไม่สามารถใช้งานร่วมกับ Chrome (สร้างสีเขียวหลายสี) และ Firefox (ผลลัพธ์เดียวกัน แต่สร้างแวดวง? oO WTH?)

ตั้งแต่นี้เป็นรหัสกอล์ฟโซลูชั่นที่ทำงานกับรุ่นเฉพาะหรือซอฟต์แวร์เฉพาะเป็นที่ยอมรับ

Piet- 2 * 103 = 206

สิ่งนี้ไม่เหมือนกันในที่ซอร์สโค้ดและผลลัพธ์ที่ตอบสนองความท้าทาย:

ส่วนใหญ่เป็นของตกแต่งฉันเลยนับแค่สองแถวบนสุดเท่านั้น แสดงผล ppm ระดับสีเทาเหมือนที่บางคนทำไว้

JavaScript - 70 ไบต์

for(i=51;i-=1;)document.write('<a style=opacity:'+i/50+'>&#9632;</a>')

กำลังประมวลผล 66 ตัวอักษร:

size(1000,20);for(int i=0;i<981;i+=20){fill(i/4);rect(i,0,20,20);}

PHP (62 60 63 72 71 62 59 ไบต์):

ฉันทำสั้นที่สุดที่ฉันสามารถหา:

for($i=59;$i-->9;)echo"<hr color=$i$i$i size=20 width=20>";

นี่คือว่ารหัสเดียวกับคำตอบของฉัน Javascript (71 bytes)

แต่มากสั้น!

นี้มีมุมแหลมใน Firefox A: แทนสี่เหลี่ยม, Firefox ทำให้วงการ ! (ไปบ้า!)
Othen กว่าที่เบราว์เซอร์ทั้งหมดที่ผลิตสีขวา (แม้จะมีการขาดหายไป#ในcolorแอตทริบิวต์)

การส่งและการเปลี่ยนแปลงไม่ถูกต้อง :

คำตอบเก่าด้วย 62 ไบต์

while($i++<51)echo"<hr color=rgb($i,$i,$i) size=20 width=20>";

เฉดสีทั้งหมดจัดเรียงอย่างสมบูรณ์แบบ

โซลูชันนี้ใช้ไม่ได้กับ Chrome (จะสร้างสี่เหลี่ยมที่มีหลายสี) และ Firefox (ซึ่งทำให้แวดวง oO ใช่แวดวงที่มี<hr>! ไม้บรรทัดแนวนอนคือวงกลมบน Firefox!)
คุณสามารถทดสอบบน IE11 และควรจะดี

(ลบออกจากด้านบน)

ฉันสังเกตเห็นบางสิ่งที่น่ากลัว: มันกำลังแสดงผล#111แทน#010101บางสี

นี่หมายความว่าบางสีกำลังทำซ้ำ

ดังนั้นฉันต้องเสียสละไม่กี่ไบต์:

<?while(f>$c=dechex(65-$i++))echo"<hr color=#$c$c$c size=20 width=20>";

แสดงผล 50 เฉดสีในรูปแบบที่สมบูรณ์แบบตั้งแต่สีอ่อนไปจนถึงสีเข้ม

เนื่องจากเป็นจุดที่ถูกต้องทำโดย@ edc65ผมต้องเพิ่มwidth=20การผลิตสแควร์ที่สมบูรณ์แบบ

ลดหนึ่งไบต์อีกครั้งโดยแทนที่f!=$cด้วยf>$cซึ่งทำงานได้อย่างสมบูรณ์

รุ่นสุดท้ายโดยไม่มีwidth=20:

<?while(f!=$c=dechex(65-$i++))echo"<hr color=#$c$c$c size=20>";

สิ่งนี้ไม่ถูกต้องเพราะมันเป็นสิ่งจำเป็นในการส่งออกกำลังสอง
วิธีนี้จะทำให้เฉดสีอ่อนลงไปถึงเข้มขึ้น

ลดลง 1 ไบต์โดยเปลี่ยนเป็นwhileลูปดังนี้:

<?while($c=dechex(50-$i++))echo"<hr color=#$c$c$c size=20>";

วิธีแก้ปัญหาแรก:

<?for($i=50;$c=dechex($i--);)echo"<hr color=#$c$c$c size=20>";

นี่ไม่ใช่เฉดสีที่สั่งอย่างเรียบร้อย แต่มี 50 เฉดสีที่แตกต่างกัน

ไม่มีอะไรที่ระบุว่าพวกเขาจะต้องสั่ง แต่มีข้อกำหนดเกี่ยวกับขนาด

ฉันหวังว่าฉันสามารถลดได้มากขึ้น

คุณสามารถทดสอบได้ที่http://writecodeonline.com/php/ (คลิกที่ "Display as HTML")

CSS (87 ตัวอักษร)

ใช้ภาพเคลื่อนไหว;)

:after{content:'\25A0';font:9em z;animation:g 8s steps(50)}@keyframes g{to{color:#fff}}

เวอร์ชันที่รันได้นานกว่าเนื่องจาก Webkit ยังคงต้องการคำนำหน้าของผู้จัดจำหน่าย :(

:after{content:'\25A0';font:9em z;-webkit-animation:g 8s steps(50);animation:g 8s steps(50)}@-webkit-keyframes g{to{color:#fff}}@keyframes g{to{color:#fff}}

หากเราอนุญาตให้ใช้<a>องค์ประกอบแบบสุ่มและว่างเปล่าเราสามารถทำให้มันเป็น 72 ตัวอักษร:

a{padding:3em;animation:g 8s steps(50)}@keyframes g{to{background:#000}}

ดู? CSS เป็นภาษาโปรแกรมที่ถูกต้อง!

R, 36 ไบต์

ฉันสามารถทำให้คำตอบของ freekvd สั้นลงเล็กน้อย

x=9:59/59;symbols(x,sq=x,bg=gray(x))

(ขออภัยที่ไม่ได้แสดงความคิดเห็นภายใต้วิธีแก้ปัญหาของเขา Stackexchange ยังไม่อนุญาตให้ฉันแสดงความคิดเห็นลงคะแนน ฯลฯ )

PostScript ขนาด 34 ไบต์

ในการเข้ารหัส ISO-Latin-1:

20’›‡üˆì0{’81e3’6’–10’k0ˆ                   (note, this is a Line Feed)
’c’§}’H

นี่คือไบนารีเทียบเท่ากับ:

20 setlinewidth 1020 -20 0 { dup 1e3 div setgray 10 moveto 0 10 lineto stroke } for

(ซึ่งถือว่าคุณใช้งานบนอุปกรณ์ที่มีความกว้างอย่างน้อย 1,000 คะแนน [= 10 นิ้ว = 25.4 ซม.])

DrRacket - 83

เพียงเพื่อจะได้ยิง DrRacket 1 ปีหลังจาก "รู้เบื้องต้นเกี่ยวกับการออกแบบโปรแกรมอย่างเป็นระบบ"

แก้ไข :

(require htdp/image)(map(λ(i)(rectangle 50 50'solid(make-color i i i)))(range 50))

C # - 173

ใช้ LINQPAD

var b=new Bitmap(1000,20);var g=Graphics.FromImage(b);for(int i=0;i<50;i++)g.FillRectangle(new SolidBrush(Color.FromArgb(i*5,i*5,i*5)),new Rectangle(i*20,0,20,20));b.Dump();

ขยาย :

var b = new Bitmap(1000, 20);
var g = Graphics.FromImage(b);
for (int i = 0; i < 50; i++)
    g.FillRectangle(new SolidBrush(Color.FromArgb(i * 5, i * 5, i * 5)), new Rectangle(i * 20, 0, 20, 20));
b.Dump();

ผลผลิต :

จาวาสคริปต์, 152 ไบต์

โอเคบางทีนี่อาจไม่ใช่ทางออกที่ดีที่สุด แต่นี่เป็นของฉัน

function b(a){c=document
e=c.createElement('p')
with(e.style){background="rgb("+[a,a,a]+")"
width=height="20px"}c.body.appendChild(e)
a<245&&b(a+5)}b(0)

นี่คือเอาต์พุตที่มี css float left (เพื่อให้ง่ายต่อการนับกำลังสอง) และไม่มี: