A UEFA Euro 2016 deste ano terminou e, além de algumas manchetes negativas, houve uma surpresa muito positiva - a seleção nacional de futebol da Islândia . Vamos desenhar sua bandeira nacional.

Entrada

Bem, obviamente esse desafio não tem entrada.

Resultado

• Desenhe a bandeira da Islândia em qualquer formato visual aplicável de pelo menos 100 x 72 pixels ou 25 x 18 caracteres .
• Salve a saída em um arquivo ou apresente-a instantaneamente - os formatos de exemplo são: imagens como png, jpg etc., gráficos vetoriais, desenhe na tela HTML ou use caracteres que não sejam espaços em branco para visualização.
• Use estas cores : azul : #0048e0, branco : #ffffffe vermelho : #d72828.
• Se o seu idioma não suportar valores de cores específicos, use os valores padrão para vermelho , azul e branco nos códigos de cores ANSI .
• Desenhe a bandeira com as proporções corretas, como mostra a figura abaixo:
  
  

Chapa de ebulição

• Você pode escrever um programa ou uma função. Se for uma função anônima, inclua um exemplo de como invocá-la.
• Este é o código-golfe, pelo que a resposta mais curta em bytes vence.
• As brechas padrão não são permitidas.

Entre os melhores

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>

^{Se você não pode encontrar a sua resposta, formatar o seu idioma e contagem de bytes conforme explicado no "do Leaderboard Informações Seção " .}

^{Este desafio é inspirado no Draw the flag of france .}

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

Usando o PIL versão 1.1.7, que possui um método de deslocamento obsoleto, mas não removido.

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

Cria uma imagem de 25 * 18 pixels preenchida com vermelho e desenha um retângulo de 23 * 16 pixels preenchido com azul com contorno branco de um pixel. Em seguida, compensa a imagem (9,9), que envolve as bordas, redimensiona para 100 * 72 e a mostra em uma janela.

Sinalizar antes da compensação:

(redimensionado para 100 * 72)

Resultado:

Animado:

Edit1: Golpeou 18 bytes removendo o corte criando inicialmente uma imagem 25 * 18.

Edit2: Golf 1 byte usando em #fffvez de white.

Edit3: Golfed 2 bytes por aliasing importações.

Edit4: Golfou 2 bytes removendo o segundo argumento do método de deslocamento.

Edit5: Golfou 7 bytes mostrando a imagem em vez de salvar. (precisa do imagemagick instalado no Unix)

Edit6: Golf 1 byte reescrevendo importações.

Edit7: Golfou 12 bytes reescrevendo as importações novamente. (obrigado por @Dennis)

Edit8: Adicionado animação.

Edit9: Animação atualizada, pois estava faltando o último quadro.

Edit10: Golfed 4 bytes graças a Albert Renshaw!

código de máquina em modo real x86 para DOS COM, 69 65 63 62 bytes

O código deve ser executado como um executável COM do DOS.

Agradecimentos especiais

• meden , salvou quatro bytes.
• meden , salvou dois bytes e removeu a tremulação.

Código da máquina (em bytes hexadecimais)

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

Fonte de montagem

A fonte é para NASM.

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 Bytes

#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 adicionando um @no #define A
-8 adicionando [sobre#define C

Uso

main(){f();}

Resultado

válido com base neste comentário do OP

Saída de tamanho duplo, 204 bytes

#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 bytes

Não foi possível encontrar uma maneira de definir o tamanho da coluna / linha para pixels (tornando-os quadrados), devido à maneira como o Excel lida com isso, para torná-los agradáveis ​​e quadrados primeiro.

Editar 1: RGB substituído com valores retornados para cores, -26 bytes

Edit 2: Tentei adicionar o máximo de sugestões possível, -75 bytes. Não pude usar &48e0como cor e não sei por que. Obrigado a todos

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

Cenário:

MATL , 57 56 52 49 48 bytes

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

Isso produz a seguinte figura (testada com o compilador em execução no Matlab e no Octave).

EDIT: Você pode experimentar experimentalmente o MATL Online! (pode ser necessário recarregar a página se ela não funcionar inicialmente).

Como funciona

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 bytes

*,: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

Guardou 1 byte graças a @insertusernamehere.

Economizou 20 bytes graças a @ user2428118, removendo todos os pxs. Observe que isso requer que a página seja renderizada no modo quirks, para que não funcione nos snippets de pilha.

Eu poderia copiar a abordagem Python de agrupar uma imagem em um deslocamento, mas não seria interessante.

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 }

Isso usa os pseudoelementos (elementos que não são escritos em HTML) ::beforee ::afterpara criar as linhas no sinalizador. O motivo pelo qual ele funciona sem HTML é que, no HTML5, os elementos <html>e <body>são opcionais; portanto, os navegadores os criam automaticamente se não estiverem presentes.

Mais divertido:

*, *::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 bytes

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

Economizou 8 bytes, graças a @manatwork, e 1 byte, graças a @ GlennRanders-Pehrson

ZX Spectrum BASIC, 210 141 92 bytes

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

Tamanho determinado como o tamanho do programa BASIC em fita via SAVE. Muito do crédito do golfe para alguns membros do grupo ZX Spectrum no Facebook , em particular @impomatic e Johan Koelman.

Conjunto ZX Spectrum Z80, 65 bytes

    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 caracteres

Pode ter 734 caracteres, mas é a única submissão feita até agora de lã real!

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

Vá para -5x -5z, cole em um bloco de comando Impulse, defina-o como "Sempre ativo" e pressione Concluído.

A extensão da bandeira varia de 0, 0 a 100, 72; e fica 3 quarteirões acima do bloco de comando, conforme colocado. Ele lança uma bastante grande sombra , e monstros desovar sob ele. Se isso é exato para o país da Islândia, no entanto, é uma incógnita.

Aviso justo - matará todos os MinecartCommandBlocks no mundo, com o objetivo de salvar quatro caracteres. Não execute isso em um mundo ao qual você esteja excessivamente apegado.

Usado combinador de comando do MrGarretto e ajustados a saída um pouco (808 -> 734)

Logotipo, 216 188 bytes

Usando a implementação do Calormen.com . Para você, purista, a implementação usa alguns antialiasing que cobrem um pouco as bordas. Eu desperdicei 3 bytes escondendo a tartaruga, então isso deve compensar isso.

Isso pode ser bastante reduzido se a implementação do seu logotipo permitir definir o tamanho da janela. Então você poderia wrape fazer a tartaruga passar para fazer a cruz em quatro tacadas, e pular a necessidade de apará-la com uma borda.

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

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

Uma resposta muito tardia, e também a mais longa aqui, aparentemente. Usa a java.awt.Graphicsclasse para criar e abrir uma janela com a bandeira, criada por 5 retângulos totais, consistindo em 1 para os blocos azuis, 2 para as listras brancas e 2 para as listras vermelhas. Usa 7 pixels: 1 unidade de proporção. Em outras palavras, para cada unidade, 7 pixels são usados. Aqui está uma imagem da saída em um Macintosh com OS X 10.11:

Agora, para encontrar uma maneira de jogar isso um pouco mais ...

R, 197 195 187 bytes

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

Recuado, com novas linhas e explicações:

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

Editar : ao frame()contrário, ao contrário de plot()ou plot.new()não adiciona uma borda à plotagem, o significado bty="n"era desnecessário aqui.

Atari executável de 8 bits, 123 bytes

Outra entrada "just for fun", este programa deve ser executada em um computador ou emulador de 8 bits da Atari. Por exemplo, para carregar o programa no Atari800, basta executar:

atari800 iceland.xex

Código da máquina (em bytes hexadecimais)

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

Código fonte do assembler (pode ser compilado com o MADS ):

        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

Como funciona:

O programa usa uma lista de exibição personalizada baseada no modo ANTIC 8 (40 pixels por linha, 2 bpp). Linhas repetidas são carregadas a partir do mesmo local de memória. Após configurar o display, o programa entra em um loop infinito.

Captura de tela:

FFmpeg, 339 184 bytes

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

Vou tentar jogar isso para baixo .. ainda mais.

Python, 119 118 114 112 bytes

Nada de especial, direto:

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

Saída como PPM binário, uso

python golf_iceland.py > iceland.ppm

• Edit1: empurrou um byte entre printe as aspas
• Edit2: ligeiramente mais curto como PPM binário
• Edit3: Figurado que \0pode ser usado em vez de\x00

Se alguém souber usar diretamente o caractere ASCII não imprimível, informe-o.

JavaScript, 267 bytes

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 bytes

A função é

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

E grava a imagem desejada como f.png, com um tamanho de 100x72

(Observe que este não é um concorrente direto da resposta de R. Kap , porque grava um arquivo e não exibe a imagem na tela)

Aqui está a versão não destruída que pode ser compilada e executada:

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

Uma observação lateral, sobre as questões relacionadas: Talvez alguém deva criar um desafio para pintar as bandeiras dos

• Indonésia
• Polônia
• Finlândia
• França
• Países Baixos
• Tailândia
• Noruega

ao mesmo tempo:

SVG + Javascript, 190 165 164 bytes

Nenhum especialista por lá, repetir um caminho apenas para alterar a cor e a largura da linha parece bobo javascript ftw!

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">`)

Mais legível:

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">`)

Processando , 136 bytes

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

Resultado:

Mathematica 174 157 bytes

Sem builtins:

157 bytes

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

ou alternativamente

232 bytes

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

Código dentro do snippet abaixo. Execute-o para testar.

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)

Conjunto ZX Spectrum Z80, 51 bytes

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 bytes

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

A abordagem é a mesma de @ Gábor Fekete's com Python.

O argumento esquerdo colorspara viewmaté uma matriz de valores RGB, no nosso caso:

255 255 255
  0  72 224
215  40  40

E o argumento certo é uma matriz de índices de colors.
(_9 _9 |. matrix)instrui a mudar matrix9 itens em cada dimensão.
Construção assustadora (border ([,~[,.~[,[,.]) matrix)envolve o matrixnúmero border.
E (14 21 $ 1)faz 14 × 21 matriz de uns.

A saída é exibida em uma janela redimensionável separada, bastante grande por padrão.

obrigado

miles - economizou 2 bytes ao reordenar as cores, usou o recurso ,que duplica os números (255) para o acordo de forma.

TI-BASIC (não concorrente), 323 bytes

O código foi escrito para a TI-84, 83 e variantes. Espero que não seja um problema que as dimensões variem por dispositivo e que o código não seja colorido.

Configuração:

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

Desenhando:

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

Golfe:

: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

Sim, a falta de )é intencional.

Tamanho:

Line(e todos os comandos como esse ocupam 1 byte, cada número recebe um byte. Isso é 323 bytes.

Isso foi absolutamente entediante. Espero que isso aconteça em um emulador (eu tenho que inserir tudo manualmente), mas literalmente são apenas linhas no formato da bandeira.

C #, 384 346 317 292 291 289 bytes

Solução simples com Windows Forms e GDI

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

Uso

Inicie um novo projeto de console e coloque o código acima no método principal, adicione System.Drawing-Namespace.

Como funciona

O código cria uma nova imagem e desenha algumas linhas nela. Ele salva a imagem em disco. Alguns dos pontos finais das linhas estão fora da área visível.

Python IDLE, 191 172 156 bytes

IDLE é o IDE padrão do Python. A menos que tenha um tema personalizado, STDOUTseja azul, STDERRvermelho e o fundo seja branco. Então, o seguinte código:

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

Produz esta saída:

Como caracteres impressos e não quadrados, isso está um pouco desligado, mas se considerarmos 1 unidade com 2 caracteres e 1 caractere de altura, as proporções são exatas.

Isso pode ser jogado ao meio pela metade da dimensão da largura e usando um caractere ASCII para blocos como '#', mas não tem exatamente o mesmo efeito.

Explicação

O código em si parece bastante desleixado no momento e pode ser definitivamente jogado, mas a idéia básica é:

• Construa uma matriz em que 0represente espaço em branco, 1represente um bloco azul e 2represente um bloco vermelho.
  • A primeira metade é construída (principalmente através de fatias / multiplicação de listas) e adicionada ao reverso de si mesma para gerar o sinalizador completo.
• Faça um loop pela matriz, imprimindo cada valor como espaço em branco ou bloco para STDERR/ de STDOUTacordo. Imprima uma nova linha após cada linha.

Tartaruga Python, 176 bytes

Outra implementação do Python Turtle, mas desta vez com base no carimbo em vez de no desenho :

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

Usar o carimbo e não torná-lo facilmente escalável, economiza cerca de 60 bytes de código.

A parte divertida é que você pode substituir a "square"opção de "turtle"polígono pela opção de polígono na shape()chamada e obter um logotipo ecogroovy:

Perl, 134 bytes

Nota: \x1bé realmente o caractere de escape ASCII e conta como 1 byte

($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

Uso

Salvar como iceland-flag.ple executar por:

perl iceland-flag.pl

Usa seqüências de escape ANSI e assume um terminal Linux para exibir o sinalizador. Parece um pouco estranho usando as medidas fornecidas.

Perl, 141 bytes

Esta versão parece um pouco mais próxima das dimensões genuínas ...

($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 bytes

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

Lê a cor da tinta, x, y, largura e altura e desenha um retângulo com essas coordenadas / dimensões.