Erkekler ve kızlar, Fifty Shades of Grey'i gümüş ekranda görmek için heyecanlı , biz sadece rahatsız olmadan kodlamak istiyoruz, işte beynimizi seçmek için bir zorluk.

Yapman gerek:

• Ekrana, her biri farklı gri bir gölgeyle dolu elli kare yazdırın
• Tercih ettiğiniz dilde görüntü işleme özelliği yoksa, bir görüntü dosyası çıktısı alabilirsiniz.
• Kareler görünür olmalı, en az 20 x 20 piksel
• Her gölgenin benzersiz olduğundan emin olmadıkça rasgele sayılar kullanamazsınız.
• Sen herhangi bir ağ üzerinden herhangi bir hizmet bağlanamıyorum
• Sen Programda herhangi bir dosya okuyamaz.
• Seçtiğiniz dilin standart kütüphanelerinden hiçbir kütüphaneyi kullanamazsınız.

Bu kod golf, bu yüzden en kısa kod kazanır.

MATLAB, 24 bayt

İkinci deneme, şimdi aslında kurallara uygun.

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

'I' 'InitialMagnification' anlamına geliyor, ancak görünüşe göre Matlab isim / değer çiftlerinde isimleri otomatik olarak tamamlayacak. Tabii ki iyi bir golf hilesi!

Mathematica, 30 bayt

İşte başka bir Mathematica yaklaşımı:

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

veya

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

İlki basitçe bir dizi oluşturur

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

ve ikincisi

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

Ardından, ArrayPlotbunları bir ızgara olarak çizer ve varsayılan olarak değerleri görüntülemek için gri tonlama kullanır.

CJam - 23 (gerçek grafik çıktı yok)

CJam ekranda çizim yapamadığından (henüz?), Görüntüyü sade pgm biçiminde çıkaran bir program yazdım .
Çıktıyı 50.pgm adlı bir dosyaya kaydedin ve bir resim görüntüleyici / düzenleyici ile açın.

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

Çevrimiçi deneyin

Sonuç şöyle görünür:

Açıklama:

"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 bayt

Geçerli sürüm (34 bayt)

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

Martin Büttner sayesinde önceki sürüm (59 byte).

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

Karelerin konumunu vurgulamak için mavi kenarlıklar eklendi.

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

Kare sayısı:

    Length[%[[1]]]

50

İlk deneme (72 bayt)

Kareler üst üste gelebilirse. Zgarb'ın belirttiği gibi, bir karenin bir başkasını gizlemesinin uzak bir olasılığı vardır.

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

Adaçayı - 26 24 35 29 karakter

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

Bu gibi görünüyor:

Önceki denemeler : Önce Matrix([range(50)]).plot()o zaman oldu matrix_plot([range(50)]). Bunlar şuna benziyordu:

@Flawr kullanıcısı, varsayılan ayarlarla üretilen karelerin çok küçük olduğunu belirtti. Bir figsizeseçenek eklemek onu düzeltir, ancak bu cevabın başındaki 5x10 sürümünden 6 karakter daha uzundur:

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

R, 47 42 39 38 37 36 35 bayt

Üst üste gelmelerine izin verildiğini varsayarsak, bu işe yarar. Symbolsher kare için boyutu tutan bir vektör gerektirir ve aynı işlevi tüm işlev parametreleri için yeniden kullanarak yer tasarrufu yapıyorum. En büyük kare her zaman 1 inç genişliğindedir. Tam sayı aralığı olarak 50:99 ile en küçük kare yarım inç genişliğinde olacaktır, yani 72 dpi'de 36 piksel.

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

Yorumlarınız ve önerileriniz için herkese teşekkürler, ben R için oldukça yeniyim, bu yüzden hepsi çok eğitici.

Önceki sürümler:

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

Önceki Resim:

Java - 180

Oldukça basit, sadece çizim kutuları.

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

Satır sonları ile:

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 TEMEL, 57

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

Karelerin en az 20 piksel olması gerekir , ancak aynı boyutta olmaları gerektiğini söyleyecek hiçbir şey yoktur, bu yüzden sanırım bu uygun.

Daha düşük seviye VDU kodları kullanarak bunu kısaltmak mümkün olabilir. Ancak bu kalıptan daha az ilginç olana geçmek, onu daha kısa yapmak pek mümkün değildir.

ipython 2, 54 bayt

Yapabileceğimin en iyisi bir ipython programındaydı. ipython -pylabBu programla ipython'u başlatmak ve yürütmek, 50 karede 50 gri tonu içeren bir grafik gösterecektir:

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

Çıktı:

2. Çözüm:

İşte başka bir program (61 bayt):

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

aşağıdaki pencereyi görüntüler:

JavaScript ( 72 , 70 , 67 bayt)

72: orijinal ( Sphinxxx'in cevabından zekice ■kullanımı ödünç almak ):

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

70: döngüden daha kısa olan ve tarayıcının renk kodunun ilerlememesi eksikliğini düzeltmek için izin veren Ismael Miguel'den (oyları hak eden) utanmadan çalmak ...

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

67 bayt (65 karakter): unicode karakterinin varlığının değiştirilmesi:

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

C ++, 98 83 karakter

Tamam, gerçek renkleri destekleyen bir terminal emülatörüne ihtiyacınız olacak. Örneğin, işletim sistemleri için, örneğin iTerm2'nin gece yapıları vardır. Unix için konsole'nin desteklediğine inanıyorum. İşte durumda, sadece bir liste: https://gist.github.com/XVilka/8346728#now-supporting-truecolor

G ++ ile derleyin (\ e derleyiciye bağımlıdır).

Karelerin yeterli alana sahip olması için terminal font boyutunu değiştirmeniz gerekecektir.

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

C ++ yerine C kütüphanelerinin kullanılması bazı karakterlerin tıraş edilmesine izin verir.

C, 61 58 karakter

Bu aynı programdır, fakat int döndürülmeyen işlev bildirimlerini int döndürmek için kabul eden ve bu örnekte, printf gibi bazı standart kütüphane işlevlerini içermesi gerekmeyen C'de. @Cartographer tarafından önerildi. @ User3601420 sayesinde üç karakter daha az

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

Birkaç uyarıyla derlenir (ana geri dönüş tipinin int olduğu varsayılır ve dolaylı olarak da printf bildirgesi dahil).

Python 2, 125 115 104 bayt

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

Örnek çıktı:

Eski güzel kaplumbağa. Bu, yalnızca standart kütüphaneleri kullanarak görüntüleri bir ekrana basan Python'da düşünebildiğim tek yöntemdi.

Kare kaplumbağa şekli sadece 21'e 21'dir, bu da çok uygundur. Bu kazarak görülebilir turtle.py:

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

Yüksek çözünürlüklü bir monitörünüz varsa veya birkaç karenin ekran dışı olmasına aldırış etmiyorsanız, bu 93 bayttır:

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

gösteri

(Bu demo, burada bulunan snippet'i uyarlayarak Skulpt'u kullanıyor . Yalnızca kodun ne yaptığı hakkında bir fikir vermek için dahil edildi - çalışmasını sağlamak için birkaç bit değiştirmek zorunda kaldım.)

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

Öneri için sonra randomra .

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

Bu çözüm, standart J kütüphanesi GUI yordamları içermediğinden hiçbir şey göstermez. Bunun yerine bir görüntü oluşturup standart çıktıya yazarım. Çıktı rastgeledir, tüm gölgelerin farklı olmasını sağlar. İşte bazı örnek çıktılar ve görüntü png'ye dönüştürülür ve daha kolay görüntüleme için 90 ° döndürülür:

Excel vba, 81

Hemen pencerede:

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

aktif sayfada:

^{{81 renk, en az 50 kadar koddur}}

R ,3732 karakter ¹ :

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

Bununla birlikte, bu görünüm… meh (görüntü metne daha iyi sığacak şekilde 90 ° döndürülmüş; sıkıştırılmış, orijinal kare kenar uzunluğu> 20 piksel

Kareleri bir matrisin içinde (50 karakter) rasgele sırada çizen daha hoş bir sürüm:

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

(Ve evet, aynı renkteki üç bitişik kare aslında üç farklı gri tonudur.)

¹ Evet, başka bir R cevap,ve en kısa zamanda bile(şimdi R için en kısa) - özür dilerim. R'de güzel bir render eksikti .

Matlab 35 sanchise sayesinde

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

Matlab 36

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

1 - 50 gri değerleriyle dolu 50 kare ve 0 ve 51 gri değerleriyle dolu 2 ek dikdörtgen gösterir:

Matlab, 45

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

JavaScript, 87 90 bayt

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

Bu, HTML'ye kareleri çıkarır, çünkü gerçekten JavaScript'in tek grafiksel çıktı yöntemidir. 3 byte'lık tıraş için edc65'e teşekkürler.

PHP, 96 88 74 bayt

22 bayt'ı kurtardığı için Ismael Miguel'e teşekkürler!

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

<p>Yüksekliği ve genişliği 9 mm olan (ekranların çoğunda 20 pikselden büyük olmalıdır), tümü birbirinden gölgede küçük bir fark olacak şekilde 50 s yazar .

Oluşturulan sonuç (görüntü uzaklaştırılır ve 90 ° döndürülür):

Matlab - 33 bayt

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

Ayrıntılı komutlara rağmen, sonuç hala oldukça kompakt. Değiştirmek eğer biraz daha iyi görünüyor surfile surfaceancak 3 karakter mal olur.

50. gri kareyi farketmezseniz, bunun nedeni diğerlerinden biraz daha büyük olmasıdır!

Javascript (77 71 bayt):

Bu cevap artık IE11 tabanlı değil. Tarayıcı çalışır, çünkü kötü renk kodlarını kullanılabilir kodlara dönüştürür ( #sayıya ekleyerek ).

İşte kod:

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

Firefox hala daireler çizme tuhaflığına sahip.

(Küçük düzenleme: 52 kare ürettiği for(i=61;i-->9;)için değiştirildi for(i=59;i-->9;))

Eski cevap:

Bu benim PHP cevabıma dayanıyor ve kareleri yapmak için neredeyse aynı yöntemleri kullanıyor:

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

En kısa cevap değil, ama buraya eklemeye değer.

Bu çözüm Chrome (birden fazla yeşil renk üretir) ve Firefox (aynı sonuç, ancak daireler üretir? OO WTH?) İle uyumlu değildir

Bu kod golf olduğundan, belirli bir sürümle veya belirli bir yazılımla çalışan bir çözüm kabul edilebilir.

Piet-2 * 103 = 206

Bu, kaynak kod ve çıktının mücadeleyi yerine getirmesi bakımından benzersizdir:

Çoğu dekoratif, bu yüzden sadece tek başına iyi duran iki sırayı saydım. Bazılarının yaptığı gibi gri tonlamalı bir ppm çıktısı alır.

JavaScript - 70 bayt

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

İşlem, 66 karakter:

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 bayt):

Bulabildiğim kadarını yaptım:

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

Bu tamamen Javascript cevabımdaki kodun aynısıdır (71 bayt ile) .

Ama çok daha kısa!

Bu Firefox'ta bir tuhaflık var: kareler yerine, Firefox çevreler ! (Delilik Go!)
Bunun dışında Othen, tüm tarayıcılar (hatta eksik Doğru rengi üretmek #üzerine colorözniteliği).

Geçersiz gönderimler ve değişiklik listesi :

62 byte ile eski cevap.

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

Tüm gölgeler mükemmel şekilde hizalanır.

Bu çözüm, Chrome (birden çok renkli kareler üretecek) ve Firefox (daireler yapan o Evet, daireler olan <hr>! Yatay cetvel, Firefox'ta bir dairedir!) İçin çalışmaz .
IE11'de test edebilirsiniz ve iyi olması gerekir.

(sadece yukarıdan kaldırıldı)

Berbat bir şey fark ettim: Bazı renkler #111yerine çıktı #010101.

Bu, bazı renklerin tekrarlandığı anlamına geliyordu.

Bu nedenle, birkaç bayt feda etmek zorunda kaldım:

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

50 renk tonunu, daha açık renkliden koyu renkli olana kadar mükemmel sırayla verir.

@ Edc65 tarafından yapılan doğru nokta nedeniyle width=20, mükemmel kareler elde etmek için eklemek zorunda kaldım .

Değiştirerek bir byte daha Azaltılmış f!=$cile f>$cmükemmel çalışıyor, hangi.

Son versiyon, olmadan width=20:

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

Bu geçersiz, çünkü karelerin çıkması için gerekli.
Bu, tonları daha açıktan daha koyuya çıkarır.

Aşağıdaki whilegibi bir döngüye geçerek azaltılmış 1 bayt :

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

İlk çözüm:

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

Bu düzgünce sipariş tonları yoktur, ancak 50 farklı vardır.

Sipariş edilmeleri gerektiğini belirten hiçbir şey yok, ancak boyutta bir gereklilik var.

Umarım daha fazla azaltabilirim.

Bunu http://writecodeonline.com/php/ adresinde test edebilirsiniz ("HTML olarak görüntüle" ye tıklayın).

CSS (87 karakter)

Animasyon kullanır;)

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

Çalıştırılabilir sürüm, Webkit'in satıcı önekine hala ihtiyacı olduğu için daha uzun. :(

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

Eğer rastgele, boş bir <a>elemente izin verilirse, onu sadece 72 karaktere indirebiliriz:

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

Görmek? CSS okunaklı bir programlama dilidir!

R, 36 bayt

Freekvd'ın cevabını önemsizce kısaltabilirim.

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

(Çözümünde yorum yapmadığım için üzgünüm. Stackexchange henüz yorum yapmama, oy kullanmama izin vermiyor).

PostScript, 34 bayt

ISO-Latin-1 kodlamasında:

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

Bu ikili eşdeğerdir:

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

(Bu, en az 1000 punto [= 10 inç = 25,4 cm] genişliğinde bir cihazda kullandığınızı varsayar.)

DrRacket - 83

Sadece "Sistematik Program Tasarımına Giriş" den 1 yıl sonra DrRacket'i ateşlemek adına.

EDIT :

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

C # - 173

LINQPAD'i Kullanma

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

Genişletilmiş :

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

Çıktı :

JavaScript, 152 bayt.

Tamam, belki de bu en iyi çözüm değil ama işte benim.

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 (sadece kareleri saymak daha kolay) ve olmayanlar: