İzlanda milli futbol takımı - Bu yılki UEFA Euro 2016 sona erdi ve birkaç olumsuz manşetin yanı sıra çok olumlu bir sürpriz oldu . Ulusal bayraklarını çizelim.

Giriş

Belli ki bu zorluğun girişi yok.

Çıktı

• İzlanda bayrağını en az 100 x 72 piksel veya 25 x 18 karakterden oluşan herhangi bir görsel biçimde çizin .
• Çıktıyı bir dosyaya kaydedin veya anında sunun - örnek biçimler: png, jpg vb. Görüntüler, vektör grafikleri, HTML tuvalinde çizim veya hatta görselleştirme için boşluk olmayan karakterler kullanın.
• Bu renkleri kullanın : mavi : #0048e0, beyaz : #ffffffve kırmızı : #d72828.
• Diliniz belirli renk değerlerini desteklemiyorsa , ANSI renk kodlarından kırmızı , mavi ve beyaz için standart değerleri kullanın .
• Aşağıdaki şekilde gösterildiği gibi, bayrağı doğru oranlarda çizin:
  
  

Basmakalıp

• Bir program veya işlev yazabilirsiniz. Adsız bir işlevse, lütfen onu nasıl çağıracağınıza dair bir örnek ekleyin.
• Bu kod golf , bayt cinsinden kazanılan cevapların çok kısa olması
• Standart boşluklara izin verilmez.

Liderler Sıralaması

var QUESTION_ID = 85141; // Obtain this from the url
// It will be like https://XYZ.stackexchange.com/questions/QUESTION_ID/... on any question page
var ANSWER_FILTER = "!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe";
var COMMENT_FILTER = "!)Q2B_A2kjfAiU78X(md6BoYk";
var OVERRIDE_USER = 41859; // This should be the user ID of the challenge author.
var answers = [], answers_hash, answer_ids, answer_page = 1, more_answers = true, comment_page;function answersUrl(index) {return "https://api.stackexchange.com/2.2/questions/" +  QUESTION_ID + "/answers?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + ANSWER_FILTER;}function commentUrl(index, answers) {return "https://api.stackexchange.com/2.2/answers/" + answers.join(';') + "/comments?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + COMMENT_FILTER;}function getAnswers() {jQuery.ajax({url: answersUrl(answer_page++),method: "get",dataType: "jsonp",crossDomain: true,success: function (data) {answers.push.apply(answers, data.items);answers_hash = [];answer_ids = [];data.items.forEach(function(a) {a.comments = [];var id = +a.share_link.match(/\d+/);answer_ids.push(id);answers_hash[id] = a;});if (!data.has_more) more_answers = false;comment_page = 1;getComments();}});}function getComments() {jQuery.ajax({url: commentUrl(comment_page++, answer_ids),method: "get",dataType: "jsonp",crossDomain: true,success: function (data) {data.items.forEach(function(c) {if (c.owner.user_id === OVERRIDE_USER)answers_hash[c.post_id].comments.push(c);});if (data.has_more) getComments();else if (more_answers) getAnswers();else process();}});}getAnswers();var SCORE_REG = /<h\d>\s*([^\n,]*[^\s,]),.*?(-?\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/;var OVERRIDE_REG = /^Override\s*header:\s*/i;function getAuthorName(a) {return a.owner.display_name;}function process() {var valid = [];answers.forEach(function(a) {var body = a.body;a.comments.forEach(function(c) {if(OVERRIDE_REG.test(c.body))body = '<h1>' + c.body.replace(OVERRIDE_REG, '') + '</h1>';});var match = body.match(SCORE_REG);if (match)valid.push({user: getAuthorName(a),size: +match[2],language: match[1],link: a.share_link,});});valid.sort(function (a, b) {var aB = a.size,bB = b.size;return aB - bB});var languages = {};var place = 1;var lastSize = null;var lastPlace = 1;valid.forEach(function (a) {if (a.size != lastSize)lastPlace = place;lastSize = a.size;++place;var answer = jQuery("#answer-template").html();answer = answer.replace("{{PLACE}}", lastPlace + ".").replace("{{NAME}}", a.user).replace("{{LANGUAGE}}", a.language).replace("{{SIZE}}", a.size).replace("{{LINK}}", a.link);answer = jQuery(answer);jQuery("#answers").append(answer);var lang = a.language;if (! /<a/.test(lang)) lang = '<i>' + lang + '</i>';lang = jQuery(lang).text().toLowerCase();languages[lang] = languages[lang] || {lang: a.language, user: a.user, size: a.size, link: a.link, uniq: lang};});var langs = [];for (var lang in languages)if (languages.hasOwnProperty(lang))langs.push(languages[lang]);langs.sort(function (a, b) {if (a.uniq > b.uniq) return 1;if (a.uniq < b.uniq) return -1;return 0;});for (var i = 0; i < langs.length; ++i){var language = jQuery("#language-template").html();var lang = langs[i];language = language.replace("{{LANGUAGE}}", lang.lang).replace("{{NAME}}", lang.user).replace("{{SIZE}}", lang.size).replace("{{LINK}}", lang.link);language = jQuery(language);jQuery("#languages").append(language);}}

body { text-align: left !important}#answer-list {padding: 10px;width: 290px;float: left;}#language-list {padding: 10px;width: 290px;float: left;}table thead {font-weight: bold;}table td {padding: 5px;}

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script><link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/Sites/codegolf/all.css?v=617d0685f6f3"><div id="answer-list"><h2>Leaderboard</h2><table class="answer-list"><thead><tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr></thead><tbody id="answers"></tbody></table></div><div id="language-list"><h2>Winners by Language</h2><table class="language-list"><thead><tr><td>Language</td><td>User</td><td>Score</td></tr></thead><tbody id="languages"></tbody></table></div><table style="display: none"><tbody id="answer-template"><tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td><a href="{{LINK}}">{{SIZE}}</a></td></tr></tbody></table><table style="display: none"><tbody id="language-template"><tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td><a href="{{LINK}}">{{SIZE}}</a></td></tr></tbody></table>

^{Cevabınızı bulamıyorsanız, dilinizi ve bayt sayınızı Lider Tablosunun " Bilgi Bölümünde " açıklandığı şekilde biçimlendirin .}

^{Bu zorluk, Fransa'nın ulusal bayrağını çizmekten esinlenmiştir .}

Python 3, 190 172 171 169 167 160 159 147 143 bayt

Kullanılmayan ancak kaldırılmayan bir offset yöntemi olan PIL sürüm 1.1.7'nin kullanılması.

from PIL.ImageDraw import*
i=Image.new('RGB',(25,18),'#d72828')
Draw(i).rectangle((1,1,23,16),'#0048e0',~0)
i.offset(9).resize((100,72)).show()

Kırmızı ile doldurulmuş 25 * 18 piksel bir görüntü oluşturur, ardından bir pikselin beyaz dış çizgisiyle mavi ile doldurulmuş 23 * 16 piksel bir dikdörtgen çizer. Sonra görüntüyü kenarları saran (9,9) ile dengeler, 100 * 72 olarak yeniden boyutlandırır ve daha sonra bir pencerede gösterir.

Dengelemeden önce işaretle:

(100 * 72 olarak yeniden boyutlandırıldı)

Çıktı:

animasyon:

Düzenleme1: Başlangıçta 25 * 18 görüntü oluşturarak kırpmayı kaldırarak 18 bayt golf yaptı.

Edit2: #fffyerine 1 baytla Golfed white.

Düzen3: İçe aktarma takma adıyla 2 bayt golf oynadı.

Edit4: ofset yönteminin ikinci argümanı kaldırarak Golf 2 bayt.

Düzen5: Golfed 7 bayt kaydetmek yerine görüntüyü göstererek. (Unix'te yüklü imagemagick gerekiyor)

Düzenleme6: İthalleri yeniden yazarak Golf 1 bayt.

Düzenleme7: Golf tekrar tekrar yazarak 12 bayt aldı. (@Dennis tarafından teşekkürler)

Düzen8: Eklenen animasyon.

Düzen 9: Son karede eksik olan animasyon güncellendi.

Edit10: Albert Renshaw sayesinde 4 bayt golf oynadı!

DOS COM, 69 65 63 62 bayt için x86 gerçek mod makine kodu

Kod, DOS COM çalıştırılabilir olarak çalıştırılmak içindir.

Özel teşekkür

• meden , dört bayt kurtardı.
• meden , iki byte kurtardı ve titreyen kaldırıldı.

Makine kodu (onaltılık bayt cinsinden)

68 00 A0 07 B8 13 00 CD      10 BE 23 01 AD 91 AD 91 
AC E3 FE 60 30 ED F3 AA      61 81 C7 40 01 FE CD 75 
F2 EB E9 FA B4 00 00 09      28 B4 46 00 0F FA 28 80 
57 0F 14 B4 0C 50 00 FA      14 0C 00 64 00 00

Derleme kaynağı

Kaynak NASM içindir.

ORG 100h

push 0a000h
pop es

mov ax, 13h
int 10h

mov si, data


_draw:
 lodsw
 xchg ax, cx

 lodsw
 xchg ax, di

 lodsb

_cycle:
 jcxz _cycle

 ;al = color
 ;cl = col
 ;ch = row

rect:
 pusha
 xor ch, ch
 rep stosb
 popa
 add di, 320
 dec ch
 jnz SHORT rect

jmp SHORT _draw


data: 

        db 250d
        db 180d
        dw 0000h
        db 09h


        db 40d
        db 180d
        dw 0070d
        db 0fh


        db 250d
        db 40d
        dw 22400d
        db 0fh

        db 20d
        db 180d
        dw 80d
        db 0ch


        db 250
        db 20
        dw 25600d 
        db 0ch


        dw 0000h

C, 194 191 183 Bayt

#define C "\x1b["
#define A "@@@@@@"
y;f(){for(;y++<14;)printf(y>5&&y<10?y>6&&y<9?C"31m"A A A A"@\n":C"0m"A"@@"C"31m@@"C"0m"A A"@@@\n":C"34m"A"@"C"0m@"C"31m@@"C"0m@"C"34m"A A"@@\n");}

-3 bir ekleme @ile #define A
-8 ekleme [ile#define C

kullanım

main(){f();}

Çıktı

OP’nin bu yorumuna dayanarak

Çift Boyutlu Çıkış, 204 Bayt

#define C "\x1b["
#define B "████"
#define A B B B
y;f(){for(;y++<28;)printf(y>10&&y<19?y>12&&y<17?C"31m"A A A A"██\n":C"0m"A B C"31m"B C"0m"A A B"██\n":C"34m"A"██"C"0m██"C"31m"B C"0m██"C"34m"A A B"\n");}

Excel VBA, 254 228 153 bayt

Excel'in işleme biçimi nedeniyle sütun / satır boyutunu piksel olarak ayarlayabilen bir yol bulunamadı (bu nedenle onları kare yapar), bu nedenle ilk önce onları güzel ve kare yapın.

Düzenleme 1: RGB, renkler için döndürülen değerlerle değiştirildi, -26 bayt

Düzenleme 2: Olabildiğince çok öneri eklemeye çalıştım, -75 bayt. &48e0Renk olarak kullanamadım ve neden olduğundan emin değilim. Herkese teşekkürler

Sub e()
c "A1:CV72", rgbBlue
c "AC1:AR72", -1
c "A29:CV44", -1
c "AG1:AN72", 255
c "A33:CV40", 255
End Sub

Sub c(d, f)
Range(d).Interior.Color = f
End Sub

Resim:

MATL , 57 56 52 49 48 bayt

7:g2IvtPvt!9Mh2$X>2YG[0E28]8*255/7B[43DD]51/v2ZG

Bu, aşağıdaki şekli üretmektedir (Matlab ve Octave üzerinde çalışan derleyici ile test edilmiştir).

EDIT: Deneysel olarak MATL Online'da deneyebilirsiniz ! (başlangıçta çalışmazsa sayfayı yeniden yüklemeniz gerekebilir).

Nasıl çalışır

7:g         % Range from 1 to 7 converted to logical: push array [1 1 1 1 1 1 1]
2           % Push 2
I           % Push 3
v           % Concatenate vertically into a 9×1 array
tPv         % Duplicate, flip vertically, concatenate. Gives a 18×1 array
t!          % Duplicate, transpose: 1×18 array
9M          % Push [1 1 1 1 1 1 1] again
h           % Concatenate horizontally: gives 1×25 array
2$X>        % Maximum of the two arrays, with broadcast. Gives a 18×25 array
            % with 1 for blue, 2 for white, 3 for red
2YG         % Show image with default colormap
[0E28]8*    % Push array [0 72 224] (blue)
255/        % Divide each entry by 255. Colors are normalized between 0 and 1
7B          % 7 converted into binary: push array [1 1 1] (white, normalized)
[43DD]51/   % Push array [215/255 40/255 40/255] (red, normalized)
v           % Concatenate vertically. Gives a 3×3 array
2ZG         % Use as colormap

CSS, 285 284 264 bayt

*,:before,:after{background:#fff;width:100;height:72}body{background:#0048e0;margin:0}:before,:after{content:"";position:fixed}:after{background:#d72828}html:before{top:28;height:16}body:before{left:28;width:16}html:after{top:32;height:8}body:after{left:32;width:8

@İnsertusernamehere sayesinde 1 bayt kaydedildi.

Tüm kullanıcıları kaldırarak @ user2428118 sayesinde 20 bayt kaydedildi px . Bunun sayfanın tuhaflar modunda oluşturulmasını gerektirdiğini ve Yığın Parçacıklarında çalışmadığını unutmayın.

Python'un bir resmi bir ofsette sarmalama yaklaşımını kopyalayabilirdim, ama ilginç olmazdı.

Ungolfed:

*, *::before, *::after {
  background: #fff;
  width: 100px;
  height: 72px;
}

body {
  background: #0048e0;
  margin: 0;
}

*::before, *::after {
  content: "";
  position: fixed;
}

*::after { background: #d72828 }

html::before { top: 28px; height: 16px }
body::before { left: 28px; width: 16px }
html::after { top: 32px; height: 8px }
body::after { left: 32px; width: 8px }

Bu, sözde unsurları (HTML'de yazılmayan öğeler) ::beforeve ::afterbayrakta çizgiler oluşturmak için kullanır. HTML'siz çalışmasının nedeni, HTML5'te <html>ve <body>öğelerinin isteğe bağlı olmasıdır, bu nedenle tarayıcılar yoksa, otomatik olarak onları oluşturur.

Daha fazla eğlence:

*, *::before, *::after {
  background: white;
  width: 100px;
  height: 72px;
}

body {
  background: #0048e0;
  margin: 0;
}

*::before, *::after {
  content: "";
  position: fixed;
}

*::after { background: #d72828 }

html::before { top: 28px; height: 16px }
body::before { left: 28px; width: 16px }
html::after { top: 32px; height: 8px }
body::after { left: 32px; width: 8px }

@keyframes change-color {
  from { filter: none }
  50% { filter: hue-rotate(360deg) }
  to { filter: none }
}

@keyframes transformations {
  from { transform: translate(150%, 100%) rotateZ(0deg) scale(0.7) }
  15% { transform: translate(150%, 100%) rotateZ(54deg) scale(1.8) }
  to { transform: translate(150%, 100%) rotateZ(360deg) scale(0.7) }
}

html {
  animation:
    0.7s linear infinite change-color,
    1s linear infinite transformations;
}

Bash + Imagemagick 7, 94 90 86 85 bayt

magick -size 84x56 xc:#0048e0 ${s=-splice 8x8}+28+28 -background \#d72828 $s+32+32 x:

@ GlennRanders-Pehrson sayesinde @manatwork ve 1 byte sayesinde 8 bayt kaydedildi

ZX Spektrumu BASIC, 210 141 92 bayt

1 LET n=-VAL "8.5": FOR y=n TO -n: FOR x=n TO VAL "16": LET p=VAL "271"(PI-(ABS x<SQR PI OR ABS y>SQR PI)-NOT INT ABS x*INT ABS y): PRINT PAPER p; BRIGHT p>PI;" ";: NEXT x: PRINT : NEXT y

Boyut, bant üzerindeki BASIC programının boyutu olarak belirlenir SAVE. Facebook'ta ZX Spectrum grubunun bazı üyelerine, özellikle @impomatic ve Johan Koelman'a golf kredisi kazandı.

ZX Spectrum Z80 Düzeneği, 65 bayt

    ld hl,22528
    ld b,7
    ld de,120*256+8 ; white, blue
    ld a,16         ; red

; create the first row

blueleft:
    ld (hl),e
    inc hl
    djnz blueleft

    ld (hl),d
    inc hl
    ld (hl),a
    inc hl
    ld (hl),a
    inc hl
    ld (hl),d
    inc hl

    ld b,14
blueright:
    ld (hl),e
    inc hl
    djnz blueright

; copy the first row to the next 17 rows

    ld l,b
    ld de,22528+32
    ld bc,17*32
    ldir

; add the horizontal stripe

    ld hl,22528+7*32
    dec d
    ld e,b
    ld c,2
midrep:
    ld b,25
midstripe:
    cp (hl)
    jr z,red
    ld (hl),120
red:
    ld (de),a
    inc hl
    inc de
    djnz midstripe

    ld hl,22528+10*32
    ld e,9*32
    dec c
    jr nz,midrep
    ret

Minecraft 1.10.2, 734 karakter

734 karakter olabilir, ancak şimdiye kadar gerçek yünden yapılmış tek başvuru !

summon FallingSand ~ ~1 ~ {Block:log,Time:1,Passengers:[{id:FallingSand,Block:redstone_block,Time:1,Passengers:[{id:FallingSand,Block:activator_rail,Time:1,Passengers:[{id:MinecartCommandBlock,Command:"fill 0 ~ 0 100 ~ 72 wool 11"},{id:MinecartCommandBlock,Command:"fill 28 ~ 0 44 ~ 72 wool"},{id:MinecartCommandBlock,Command:"fill 0 ~ 28 100 ~ 44 wool"},{id:MinecartCommandBlock,Command:"fill 32 ~ 0 40 ~ 72 wool 14"},{id:MinecartCommandBlock,Command:"fill 0 ~ 32 100 ~ 40 wool 14"},{id:MinecartCommandBlock,Command:setblock ~ ~ ~1 command_block 0 replace {Command:fill ~ ~-3 ~-1 ~ ~ ~ air}},{id:MinecartCommandBlock,Command:setblock ~ ~-1 ~1 redstone_block},{id:MinecartCommandBlock,Command:kill @e[type=MinecartCommandBlock]}]}]}]}

Yaklaşık -5x -5z'ye gidin, bir Impulse komut bloğuna yapıştırın, "Always Active" olarak ayarlayın ve Tamam'a basın.

Bayrak 0, 0 ila 100, 72; ve yerleştirildiği gibi komut bloğunun 3 blok üzerindedir. Bu oldukça büyük bir gölge ve canavarlar altında yumurtlamaya. Bununla birlikte, bunun İzlanda ülkesi için doğru olup olmadığı herkesin tahmininde bulunuyor.

Adil uyarı - MinecartCommandBlockdört karakterden tasarruf etmek amacıyla dünyadaki herkesi öldürecek / öldürecek . Bunu fazla bağlı olduğunuz bir dünyada yönetmeyin.

Kullanılan MrGarretto komuta birleştiricisi ve çıktı üretmesi biraz tweaked (808 -> 734)

Logo, 216 188 bayt

Calormen.com'un uygulamasını kullanarak . Sizin temizleyicileriniz için uygulama, kenarları birazcık hafifleten bir miktar antialiasing kullanıyor. Yine de, bunun için telafi etmesi gereken 3 baytı kaplumbağayı gizleyerek boşa harcadım.

Logo uygulamanız pencerenin boyutunu ayarlamanıza izin veriyorsa, bu büyük oranda azaltılabilir. Ardından wrap, dört vuruşta haç yapmak için kaplumbağayı sürtünebilir ve bir kenarlıkla kesmek zorunda kalmadan atlayabilirsiniz.

TO X :C :S
setpc :C
setpensize :S
home
pd
setx 100
setx 36
bk 36
fd 72
pu
END
setpc "#48e0
fill
X 7 16
X "#d72828 8
fd 4
pe
pd
setx -4
bk 80
setx 104
fd 80
setx 0
ht

Java 8, 449 447 bayt:

import java.awt.*;import javax.swing.*;class A extends JPanel{public void paintComponent(Graphics G){super.paintComponent(G);G.setColor(new Color(0,72,224));G.fillRect(0,0,175,126);G.setColor(Color.WHITE);G.fillRect(49,0,28,126);G.fillRect(0,49,175,28);G.setColor(new Color(215,40,40));G.fillRect(56,0,14,126);G.fillRect(0,56,175,14);}public static void main(String[]a){JFrame J=new JFrame();J.add(new A());J.setSize(175,147);J.setVisible(true);}}

Çok geç bir cevap ve aynı zamanda burada en uzun cevap. java.awt.GraphicsMavi bloklar için 1, beyaz çizgiler için 2 ve kırmızı çizgiler için 2 olmak üzere toplam 5 dikdörtgen tarafından oluşturulan, içinde bayrak bulunan bir pencere oluşturmak ve açmak için sınıfı kullanır . 7 piksel kullanır: 1 birim oran. Başka bir deyişle, her birim için 7 piksel kullanılır. İşte çıktının bir Macintosh'ta OS X 10.11 ile bir görüntüsü:

Şimdi bunu biraz daha aşağıya atmanın bir yolunu bulmak için ...

R, 197, 195 187 bayt

w="white";r="#d72828";png(w=100,h=72);par(mar=rep(0,4),bg="#0048e0",xaxs="i",yaxs="i");frame();rect(c(0,7,0,8)/25,c(7,0,8,0)/18,c(1,.44,1,.4),c(11/18,1,5/9,1),c=c(w,w,r,r),b=NA);dev.off()

Yeni satırlar ve açıklamalarla girintili:

w="white"
r="#d72828"
png(w=100,h=72) #Creates in working directory a png called Rplot001.png 
                #with a width and a height of 120 and 72 pixels respectively.
par(mar=rep(0,4), #No margin around the plot
    bg="#0048e0", #Blue background
    xaxs="i",yaxs="i") #Axes fits range exactly
frame() #Creates an empty plot which range is xlim=c(0,1) & ylim=c(0,1)
rect(c(0,7,0,8)/25, #Because rect is vectorized
     c(7,0,8,0)/18,
     c(1,.44,1,.4), #i. e. c(25,11,25,10)/25
     c(11/18,1,5/9,1), #i. e. c(11,18,10,18)/18
     c=c(w,w,r,r), # c= is the same as col=, thanks to argument name completion
     b=NA)#No borders
dev.off()

Düzenleme : varsayılan olarak frame(), aksine plot()veya plot.new()arsa değil arsa bir kenarlık eklemek, anlamı bty="n"burada gereksiz.

Atari 8 bit çalıştırılabilir, 123 bayt

Başka bir "sadece eğlence amaçlı" giriş, bu program Atari 8 bit bilgisayar veya emülatörde çalıştırılmak içindir. Örneğin, programı Atari800'e yüklemek için çalıştırmanız yeterlidir:

atari800 iceland.xex

Makine kodu (onaltılık bayt cinsinden)

ff ff 00 06 74 06 a9 1b 8d 30 02 a9 06 8d 31 02
a9 44 8d c4 02 a9 0f 8d c5 02 a9 84 8d c6 02 d0
fe 70 70 70 48 57 06 48 57 06 48 57 06 48 57 06
48 57 06 48 57 06 48 57 06 48 61 06 48 6b 06 48
6b 06 48 61 06 48 57 06 48 57 06 48 57 06 48 57
06 48 57 06 48 57 06 48 57 06 41 1b 06 ff fe 5b
ff ff ff c0 00 00 00 aa aa 5a aa aa aa 80 00 00
00 55 55 55 55 55 55 40 00 00 00

Assembler kaynak kodu ( MADS ile derlenebilir ):

        org $0600
        lda <dlist
        sta $0230
        lda >dlist
        sta $0231
        lda #$44
        sta $02c4
        lda #$0f
        sta $02c5
        lda #$84
        sta $02c6
loop    bne loop
dlist   dta $70, $70, $70
        dta $48, a(line1), $48, a(line1), $48, a(line1), $48, a(line1), $48, a(line1), $48, a(line1), $48, a(line1)
        dta $48, a(line2)
        dta $48, a(line3), $48, a(line3)
        dta $48, a(line2)
        dta $48, a(line1), $48, a(line1), $48, a(line1), $48, a(line1), $48, a(line1), $48, a(line1), $48, a(line1)
        dta $41, a(dlist)
line1   dta $ff, $fe, $5b, $ff, $ff, $ff, $c0, $00, $00, $00
line2   dta $aa, $aa, $5a, $aa, $aa, $aa, $80, $00, $00, $00
line3   dta $55, $55, $55, $55, $55, $55, $40, $00, $00, $00

Nasıl çalışır:

Program, ANTIC Mode 8'e (satır başına 40 piksel, 2 bpp) dayanan özel bir ekran listesi kullanır. Tekrarlanan çizgiler aynı hafıza konumundan yüklenir. Ekranı kurduktan sonra, program sonsuz bir döngüye girer.

Ekran görüntüsü:

FFmpeg, 339 184 bayt

ffplay -f lavfi color=d72828:100x36[r];color=white:64x32[w];color=0048e0:56x28[b];[w][b]overlay=4,split[x][y];[r][x]overlay=-32[d];[d][y]overlay=40,split[t][m];[m]vflip[n];[t][n]vstack

Bu golf oynamaya çalışacağım .. daha fazla.

Python, 119 118 114 112 bayt

Özel bir şey yok, anlaşılır:

b,w,r="\0H\xe0"*28,"\xff"*12,"\xd7(("*8
A,B=28*(b+w+r+w+2*b),4*(8*w+r+15*w)
print"P6 100 72 255 "+A+B+100*r+B+A

İkili PPM olarak çıktı, kullanım

python golf_iceland.py > iceland.ppm

• Edit1: printtırnak işareti arasında bir bayt attı
• Edit2: ikili PPM olarak biraz daha kısa
• Düzen3: \0Bunun yerine kullanılabilecek figür\x00

Birisi yazdırılamayan ASCII karakterini doğrudan nasıl kullanacağını biliyorsa, lütfen bildirin.

JavaScript, 267 bayt

document.write("<div style='width:250px;height:180px;background:"+[[b="bottom",44.4,d="d72828",55.6],[r="right",32,d,40],[b,38.9,e="fff",61.1],[r,28,e,44]].map(([d,a,c,o])=>`linear-gradient(to ${d+(t=",transparent ")+a}%,#${c} ${a}%,#${c} ${o}%${t+o}%)`)+",#003897'")

Java, 335 bayt

İşlev

void w()throws Exception{int w=100,h=72;BufferedImage i=new BufferedImage(w,h,1);Graphics g=i.getGraphics();g.setColor(new Color(18656));g.fillRect(0,0,w,h);g.setColor(WHITE);g.fillRect(0,28,w,16);g.fillRect(28,0,16,h);g.setColor(new Color(14100520));g.fillRect(0,32,w,8);g.fillRect(32,0,8,h);ImageIO.write(i,"png",new File("f.png"));}

Ve istenen görüntüyü şöyle yazar: f.png 100x72 boyutunda yazar.

(Bu notun doğrudan bir rakip olmadığını unutmayın. Cevap R. Kap tarafından , çünkü bir dosyayı yazdığını ve görüntüyü ekranda göstermediğini unutmayın)

İşte derlenip çalıştırılabilen ungolfed versiyonu:

import static java.awt.Color.WHITE;

import java.awt.Color;
import java.awt.Graphics;
import java.awt.image.BufferedImage;
import java.io.File;

import javax.imageio.ImageIO;

public class Iceland
{
    public static void main(String[] args) throws Exception
    {
        Iceland i = new Iceland();
        i.w();
    }

    void w() throws Exception
    {
        int B=0x0048e0,R=0xd72828,w=100,h=72;
        BufferedImage i=new BufferedImage(w,h,1);
        Graphics g=i.getGraphics();
        g.setColor(new Color(B));
        g.fillRect(0,0,w,h);
        g.setColor(WHITE);
        g.fillRect(0,28,w,16);
        g.fillRect(28,0,16,h);
        g.setColor(new Color(R));
        g.fillRect(0,32,w,8);
        g.fillRect(32,0,8,h);
        ImageIO.write(i,"png",new File("f.png"));
    }
}

İlgili sorularla ilgili bir not: Belki birisinin bayraklarını boyamak için bir meydan okuma yaratması gerekir.

• Endonezya
• Polonya
• Finlandiya
• Fransa
• Hollanda
• Tayland
• Norveç

aynı zamanda:

SVG + Javascript, 190 165 164 bayt

Orada hiçbir uzman, sadece renk ve çizgi genişliğini değiştirmek için bir yolu tekrarlamak aptalca javascript ftw görünüyor !

document.write(`<svg><rect width=100 height=72 fill="#0048e0"/>${a='<path d="M0 36L100 36M36 0L36 72"style="stroke-width:'}16;stroke:#fff"/>${a}8;stroke:#d72828">`)

Daha okunabilir:

document.write(`<svg><rect width=100 height=72 fill="#0048e0"/>
${a='<path d="M0 36L100 36M36 0L36 72"style="stroke-width:'}16;stroke:#fff"/>
${a}8;stroke:#d72828">`)

İşleme , 136 bayt

size(100,72);noStroke();background(#0048e0);fill(255);rect(28,0,16,72);rect(0,28,100,16);fill(#d72828);rect(0,32,100,8);rect(32,0,8,72);

Ungolfed

//open the window
size(100,72);
//turn off borders that surround shapes by default
noStroke();
//draw blue as the background
background(#0048e0);
//set color to white
fill(255);
//draw 2 white bars
rect(28,0,16,72);
rect(0,28,100,16);
//set color to red
fill(#d72828);
//draw 2 red bars
rect(0,32,100,8);
rect(32,0,8,72);

Çıktı:

Mathematica 174 157 bayt

Yerleşik olmayanlar:

157 bayt

r=Rectangle;c=RGBColor;Graphics@{c[{0,72,224}/255],r[{0,0},{25,18}],White,r[{7,0},{11,18}],r[{0,7},{25,11}],c[{43,8,8}/51],r[{8,0},{10,18}],r[{0,8},{25,10}]}

Veya alternatif olarak

232 bayt

x=Join[Unitize/@Range@7,{0},{2,2},{0},Unitize/@Range@14]&/@Range@7;y=Join[ConstantArray[0,8],{2,2},ConstantArray[0,15]];z=ConstantArray[2,25];ArrayPlot[Join[x,{y},{z,z},{y},x]/.{2->RGBColor[{43,8,8}/51],1->RGBColor[{0,72,224}/255]}]

JavaScript (ES6), 231 240

Aşağıdaki kod parçasının içindeki kodu. Test etmek için çalıştırın.

d=(w,h,c)=>`<div style=float:left;width:${w}em;height:${h}em;background:#${['0048e0','fff','d72828'][~~c]}>`;document.write(d(25)+(a=[252,61,94,61,476]).concat(b=[261,70,485],810,b,a).map(v=>d(v>>5,v/4&7,v&3)).join(e='</div>')+e+e)

ZX Spektrumu Z80 Düzeneği, 51 bayt

https://github.com/ralphbecket/Z80/blob/master/IcelandFlag/IcelandFlag.asm

                zeusemulate "48K", "ULA+"
ZeusEmulate_PC  equ Main
ZeusEmulate_SP  equ $FF40

                org $8000

MinWhite        equ 7
MinRed          equ MinWhite + 1
TopRed          equ MinRed + 2
TopWhite        equ TopRed + 1
Height          equ TopWhite + MinWhite - 2
Width           equ TopWhite + 2 * MinWhite - 1

White           equ %01111000
Red             equ %01010000
Blue            equ %01001000

Main            ld hl, $5800 + ((Height - 1) * 32) + (Width - 1)
                ld c, Height

YLoop           ld b, Width

XLoop           ld (hl), Red
                ld de, MinRed * $100 + TopRed
                call Test
                jr c, Next

                ld (hl), White
                ld de, MinWhite * $100 + TopWhite
                call Test
                jr c, Next

                ld (hl), Blue

Next            dec hl
                djnz XLoop
                ld de, -(32 - Width)
                add hl, de
                dec c
                jr nz, YLoop
                ret

Test            equ *
TestX           ld a, b
                cp d
                jr c, TestY
                cp e
                ret c
TestY           ld a, c
                cp d
                ccf
                ret nc
                cp e
                ret

J, 86 84 83 bayt

   load'viewmat'
   (255,0 72 224,:215,2#40)viewmat _9 _9|.2(b=.[,~[,.~[,[,.])0 b 14 21$1

Yaklaşım @ Gábor Fekete Python ile aynıdır.

Sol argüman colorsiçinviewmat bizim durumumuzda RGB değerlerinin bir dizidir:

255 255 255
  0  72 224
215  40  40

Ve doğru argüman bir indeks matrisidir colors. Her boyutta 9 öğe
(_9 _9 |. matrix)değiştirmeyi matrixsöyler.
Korkunç inşaat numarası ile (border ([,~[,.~[,[,.]) matrix)tamamladımatrixborder .
Ve (14 21 $ 1)14 × 21 olanların matrisini yapar.

Çıktı, yeniden boyutlandırılabilir ayrı bir pencerede görüntülenir, varsayılan olarak oldukça büyüktür.

Teşekkürler

mil - renkleri yeniden sıralayarak 2 bayt kurtardı, bu özelliği ,, şekil anlaşması için sayıları (255) çoğaltan özelliğini kullandı .

TI-BASIC (rekabet etmeyen), 323 bayt

TI-84, 83 ve çeşitleri için kod yazılmıştır. Umarım boyutların cihaza göre değişmesi ve kodun renkli olmaması sorun değildir.

Kurmak:

:18→Xmax:¯18→Xmin
:10→Ymin:¯10→Ymin
:AxesOff

Çizim:

:Line(¯15,9,¯8,9)
:Line(¯8,9,¯8,2)
:Line(¯8,2,¯15,2)
:Line(¯15,2,¯15,9)

:Line(¯15,¯9,¯8,¯9)
:Line(¯8,¯9,¯8,¯2)
:Line(¯8,¯2,¯15,¯2)
:Line(¯15,¯2,¯15,¯9)

:Line(¯4,9,10,9)
:Line(¯4,2,10,2)
:Line(¯4,9,¯4,2)
:Line(10,9,19,2)

:Line(¯4,¯9,10,¯9)
:Line(¯4,¯2,10,¯2)
:Line(¯4,¯9,¯4,¯2)
:Line(10,¯9,19,¯2)

:Line(¯15,1,¯7,1)
:Line(¯15,¯1,¯7,¯1)
:Line(¯5,1,20,1)
:Line(¯5,¯1,¯20,¯1)
:Line(¯7,¯1,¯7,¯9)
:Line(¯5,¯1,¯5,¯9)
:Line(¯7,1,¯7,9)
:Line(¯5,1,¯5,9)

golfed:

:18→Xmax:¯18→Xmin:10→Ymin:¯10→Ymin:AxesOff:Line(¯15,9,¯8,9:Line(¯8,9,¯8,2:Line(¯8,2,¯15,2:Line(¯15,2,¯15,9:Line(¯15,¯9,¯8,¯9:Line(¯8,¯9,¯8,¯2:Line(¯8,¯2,¯15,¯2:Line(¯15,¯2,¯15,¯9:Line(¯4,9,10,9:Line(¯4,2,10,2:Line(¯4,9,¯4,2:Line(10,9,19,2:Line(¯4,¯9,10,¯9:Line(¯4,¯2,10,¯2:Line(¯4,¯9,¯4,¯2:Line(10,¯9,19,¯2:Line(¯15,1,¯7,1:Line(¯15,¯1,¯7,¯1:Line(¯5,1,20,1:Line(¯5,¯1,¯20,¯1:Line(¯7,¯1,¯7,¯9:Line(¯5,¯1,¯5,¯9:Line(¯7,1,¯7,9:Line(¯5,1,¯5,9

Evet, eksikliği )kasıtlı.

Boyut:

Line(ve bunun gibi tüm komutlar 1 bayt alır, her sayı bir bayt alır. Bu 323 bayt.

Bu kesinlikle sıkıcıydı. Umarım bir emülatöre bunu alacağım (her şeyi el ile girmek zorundayım) ancak kelimenin tam anlamıyla bayrak şeklindeki satırlar.

C #, 384 346 317 292 291 289 Bayt

Windows Formları ve GDI ile basit çözüm

Func<int,int,Point>p=(x,y)=>new Point(x*10,y*10);var b=new Bitmap(250,180);var g=Graphics.FromImage(b);g.Clear(Color.Blue);g.DrawLines(new Pen(Color.White,40),new[]{p(0,9),p(50,9),p(9,-20),p(9,18)});g.DrawLines(new Pen(Color.Red,20),new[]{p(0,9),p(50,9),p(9,-20),p(9,18)});b.Save("b.png");

kullanım

Yeni bir konsol projesi başlatın ve yukarıdaki kodu ana yönteme koyun, System.Drawing-Namespace öğesini ekleyin.

Nasıl çalışır

Kod yeni bir görüntü oluşturur ve üzerine bazı çizgiler çizer. Görüntüyü diske kaydeder. Çizgilerin bitiş noktalarından bazıları görünür alanın dışında.

Python IDLE, 191 172 156 bayt

IDLE, Python'un standart IDE'sidir. Özel bir teması yoksa STDOUT, mavi, STDERRkırmızı ve arka plan beyazdır. Yani, aşağıdaki kod:

from sys import*
x=[1]*7;y=[0]*7;z=[0,2,2,0]
f=[x+z+x*2]*4+[y+z+y*2,[2]*25]
for s in f+f[::-1]:[[stderr,stdout][-x].write(' █'[x>0]*2)for x in s];print()

Bu çıktıyı üretir:

Basılı olmayan karakterler kare gibi, bu biraz kapalıdır, ancak 1 birimi 2 karakter ve 1 karakter yüksekliğinde alırsak, oranlar kesindir.

Bu, genişlik boyutunun yarısı alınarak ve bloklar için bir ASCII karakteri kullanarak golf oynayabilir '#', ancak tam olarak aynı etkiye sahip değildir.

açıklama

Kod şu anda oldukça özensiz görünüyor ve kesinlikle golf olabilir, ancak temel fikir şudur:

• 0Beyaz boşluğu 1temsil eden, mavi bloğu 2temsil eden ve kırmızı bloğu temsil eden bir matris oluşturun .
  • İlk yarı (esas olarak liste dilimleme / çarpma yoluyla) oluşturulur ve tam bayrağı oluşturmak için kendisinin tersine eklenir.
• Matris boyunca döngü, boşluk ya da bir blok ya da her değer baskı STDERR/ STDOUTbuna göre. Her satırdan sonra yeni bir satır yazdırın.

Python Kaplumbağa, 176 bayt

Başka bir Python Kaplumbağa uygulaması, ancak bu kez çizim yapmak yerine damgalamaya dayanıyor :

from turtle import*
shape("square")
c=color
c("navy")
z=shapesize
z(18,25)
s=stamp
s()
c("white")
z(4,25)
s()
bk(70)
seth(90)
s()
c("#d72828")
z(2,18)
s()
home()
z(2,25)
done()

Damgalamayı kullanmak ve kolayca ölçeklenebilir hale getirmek, yaklaşık 60 baytlık kod tasarrufu sağlar.

Eğlenceli kısmı yerini alabilir olduğu "square"ile poligon seçeneği "turtle"çokgen seçeneği shape()çağrısı ve bir ecogroovy logo olsun:

Perl, 134 bayt

Not: \x1bAslında ASCII çıkış karakteridir ve 1 bayt olarak sayılır.

($b,$w,$r)=map"\x1b[48;5;${_}m",18,15,1;print@l=("$b "x7,"$w $r  $w $b",$"x14,$/)x7,@m=("$w "x8,"$r  ","$w "x15,$/),("$r "x25,$/)x2,@m,@l

kullanım

Farklı kaydet iceland-flag.plve çalıştır:

perl iceland-flag.pl

ANSI kaçış dizilerini kullanır ve bayrağı görüntülemek için bir Linux terminali varsayar. Verilen ölçümleri kullanarak biraz garip görünüyor.

Perl, 141 bayt

Bu sürüm orijinal boyutlara biraz daha yakın görünüyor ...

($b,$w,$r)=map"\x1b[48;5;${_}m",18,15,1;print@l=("$b "x14,"$w  $r    $w  $b",$"x28,$/)x7,@m=("$w "x16,"$r "x4,"$w "x30,$/),("$r "x50,$/)x2,@m,@l

SpecaBAS - 150 bayt

1 a=15,b=250,c=180: FOR i=1 TO 5: READ k,x,y,w,h: RECTANGLE INK k;x,y,w,h FILL: NEXT i
2 DATA 1,0,0,b,c,a,71,0,40,c,a,0,71,b,40,2,81,0,20,c,2,0,81,b,20

Mürekkep rengini, x, y, genişlik ve yüksekliği okur ve bu koordinatlara / boyutlara sahip bir dikdörtgen çizer.