La UEFA Euro 2016 de este año ha terminado y además de un par de titulares negativos también ha habido una sorpresa muy positiva: el equipo nacional de fútbol de Islandia . Dibujemos su bandera nacional.

Entrada

Bueno, obviamente este desafío no tiene aportes.

Salida

• Dibuje la bandera de Islandia en cualquier formato visual aplicable de al menos 100 x 72 píxeles o 25 x 18 caracteres .
• Guarde el resultado en un archivo o preséntelo al instante: los formatos de ejemplo son: imágenes como png, jpg, etc., gráficos vectoriales, dibujar en lienzo HTML o incluso usar caracteres que no sean espacios en blanco para la visualización.
• Utilizar estos colores : azul : #0048e0, blanco : #ffffffy rojo : #d72828.
• Si su idioma no admite valores de color específicos, use los valores estándar para rojo , azul y blanco de los códigos de color ANSI .
• Dibuje la bandera con las proporciones correctas, como se muestra en la figura a continuación:
  
  

Repetitivo

• Puedes escribir un programa o una función. Si es una función anónima, incluya un ejemplo de cómo invocarla.
• Este es el código de golf, por lo que la respuesta más corta en bytes gana.
• Las lagunas estándar no están permitidas.

Tabla de clasificación

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>

^{Si no puede encontrar su respuesta, el formato de su lenguaje y conteo de bytes como se explica en la "tabla de posiciones de Información de la Sección " .}

^{Este desafío está inspirado en Dibujar la bandera nacional de francia .}

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

Usando PIL versión 1.1.7 que tiene un método de desuso en desuso pero no eliminado.

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

Crea una imagen de 25 * 18 píxeles llena de rojo y luego dibuja un rectángulo de 23 * 16 píxeles lleno de azul con un contorno blanco de un píxel. Luego compensa la imagen en (9,9) que se ajusta en los bordes, cambia su tamaño a 100 * 72 y luego la muestra en una ventana.

Marcar antes de compensar:

(redimensionado a 100 * 72)

Salida:

Animado:

Edit1: Golfed 18 bytes eliminando el recorte creando inicialmente una imagen 25 * 18.

Edit2: Golfed 1 byte usando en #ffflugar de white.

Edit3: Golfed 2 bytes aliasing importaciones.

Edit4: Golfed 2 bytes eliminando el segundo argumento del método offset.

Edit5: Golfed 7 bytes mostrando la imagen en lugar de guardar. (necesita imagemagick instalado en Unix)

Edit6: Golfed 1 byte reescribiendo las importaciones.

Edit7: Golfed 12 bytes reescribiendo las importaciones nuevamente. (gracias por @Dennis)

Edit8: Animación añadida.

Edit9: animación actualizada ya que faltaba el último fotograma.

Edit10: Golfed 4 bytes gracias a Albert Renshaw!

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

El código está destinado a ejecutarse como un ejecutable COM de DOS.

Gracias especiales

• meden , guardado cuatro bytes.
• meden , guardó dos bytes y eliminó el parpadeo.

Código de máquina (en bytes hexadecimales)

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

Fuente de montaje

La fuente es 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 agregando uno @en el #define A
-8 agregando [en#define C

Uso

main(){f();}

Salida

válido basándose en este comentario del OP

Salida de doble tamaño, 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

Realmente no pude encontrar una manera de establecer el tamaño de columna / fila en píxeles (por lo tanto, hacerlos cuadrados) debido a la forma en que Excel lo maneja, así que primero haz que sean bonitos y cuadrados.

Edición 1: RGB reemplazado con valores devueltos para colores, -26 bytes

Edición 2: Intenté agregar tantas sugerencias como pude, -75 bytes. No pude usarlo &48e0como color y no estoy seguro de por qué. Gracias 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

Imagen:

MATL , 57 56 52 49 48 bytes

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

Esto produce la siguiente figura (probada con el compilador que se ejecuta en Matlab y en Octave).

EDITAR: ¡Puedes probar experimentalmente en MATL Online! (es posible que deba volver a cargar la página si no funciona inicialmente).

Cómo 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

Guardado 1 byte gracias a @insertusernamehere.

Ahorró 20 bytes gracias a @ user2428118, al eliminar todos los pxs. Tenga en cuenta que esto requiere que la página se represente en modo peculiar, por lo que no funciona en fragmentos de pila.

Podría copiar el enfoque de Python de envolver una imagen en un desplazamiento, pero no sería interesante.

Sin golf:

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

Esto usa los pseudoelementos (elementos que no están escritos en HTML) ::beforey ::afterpara crear las líneas en la bandera. La razón por la que funciona sin HTML es que en HTML5 los elementos <html>y <body>son opcionales, por lo que los navegadores los crean automáticamente si no están presentes.

Más diversión:

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

Guardado 8 bytes, gracias a @manatwork, y 1 byte, gracias a @ GlennRanders-Pehrson

BASIC del ZX Spectrum, 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

Tamaño determinado como el tamaño del programa BASIC en cinta vía SAVE. Gran parte del crédito de golf para algunos miembros del grupo ZX Spectrum en Facebook , en particular @impomatic y 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

Puede que sean 734 caracteres, ¡pero hasta ahora es la única presentación hecha de lana 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]}]}]}]}

Vaya a aproximadamente -5x -5z, péguelo en un bloque de comando Impulse, configúrelo en "Siempre activo" y presione Listo.

La bandera abarca de 0, 0 a 100, 72; y está a 3 bloques por encima del bloque de comando como se coloca Se proyecta una sombra bastante grande , y los monstruos aparecen debajo de ella. Sin embargo, si esto es exacto para el país de Islandia, nadie lo sabe.

Advertencia justa: matará a todos los MinecartCommandBlocks del mundo para salvar a cuatro personajes. No ejecutes esto en un mundo al que estés demasiado apegado.

Se utiliza combinador de comandos de MrGarretto y ajustado la salida un poco (808 -> 734)

Logotipo, 216 188 bytes

Usando la implementación de Calormen.com . Para ustedes, los puristas, la implementación utiliza un poco de suavizado que distorsiona un poco los bordes. Sin embargo, desperdicié 3 bytes escondiendo la tortuga, así que eso debería compensarlo.

Esto podría reducirse enormemente si la implementación de su logotipo le permite establecer el tamaño de la ventana. Entonces podrías wrapy hacer que la tortuga se extienda para hacer la cruz en cuatro trazos, y evita tener que recortarla con un borde.

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

Una respuesta muy tardía, y también la más larga aquí, aparentemente. Utiliza la java.awt.Graphicsclase para crear y abrir una ventana con la bandera, creada por 5 rectángulos totales que consisten en 1 para los bloques azules, 2 para las rayas blancas y 2 para las rayas rojas. Utiliza 7 píxeles: relación de 1 unidad. En otras palabras, para cada unidad, se utilizan 7 píxeles. Aquí hay una imagen de la salida en un Macintosh con OS X 10.11:

Ahora para encontrar una manera de jugar golf un poco más ...

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

Sangrado, con nuevas líneas y explicaciones:

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 : resulta que frame(), al contrario plot()o plot.new()por defecto, no agrega un borde a la trama, lo que significa que bty="n"aquí no era necesario.

Atari ejecutable de 8 bits, 123 bytes

Otra entrada "solo por diversión", este programa está diseñado para ejecutarse en una computadora o emulador Atari de 8 bits. Por ejemplo, para cargar el programa en Atari800, simplemente ejecute:

atari800 iceland.xex

Código de máquina (en bytes hexadecimales)

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 fuente del ensamblador (se puede compilar con 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

Cómo funciona:

El programa utiliza una lista de visualización personalizada que se basa en el modo ANTIC 8 (40 píxeles por línea, 2 bpp). Las líneas repetidas se cargan desde la misma ubicación de memoria. Después de configurar la pantalla, el programa entra en un bucle infinito.

Captura de pantalla:

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

Intentaremos jugar golf más abajo ... más lejos.

Pitón, 119 118 114 112 bytes

Nada especial, directo:

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

Salida como PPM binario, uso

python golf_iceland.py > iceland.ppm

• Edit1: empujó un byte entre print y las comillas
• Edit2: ligeramente más corto como PPM binario
• Edit3: imaginé que \0se puede usar en lugar de\x00

Si alguien sabe cómo usar el carácter ASCII no imprimible directamente, infórmelo.

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

La función es

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

Y escribe la imagen deseada como f.png, con un tamaño de 100x72

(Tenga en cuenta que esto no es un competidor directo de la Respuesta de R. Kap , porque escribe un archivo y no muestra la imagen en la pantalla)

Aquí está la versión sin golf que se puede compilar y ejecutar:

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

Una nota al margen, con respecto a las preguntas relacionadas: Tal vez uno debería crear un desafío para pintar las banderas de

• Indonesia
• Polonia
• Finlandia
• Francia
• Países Bajos
• Tailandia
• Noruega

al mismo tiempo:

SVG + Javascript, 190 165 164 bytes

No hay ningún experto allí, ¡ repetir una ruta solo para cambiar el color y el ancho de línea se ve tonto 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">`)

Más legible:

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

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

Sin golf

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

Salida:

Mathematica 174157 bytes

Sin construcciones:

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

o 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 del fragmento a continuación. Ejecútalo para probar.

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)

Ensamblaje 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

El enfoque es el mismo que el de @ Gábor Fekete con Python.

El argumento izquierdo colorspara viewmates una matriz de valores RGB, en nuestro caso:

255 255 255
  0  72 224
215  40  40

Y el argumento correcto es una matriz de índices de colors.
(_9 _9 |. matrix)ordena cambiar matrix9 elementos en cada dimensión.
Construcción (border ([,~[,.~[,[,.]) matrix)aterradora envuelve matrixcon número border.
Y (14 21 $ 1)hace 14 × 21 matriz de unos.

La salida se muestra en una ventana de tamaño variable separada, bastante grande por defecto.

Gracias

millas: ahorró 2 bytes al reordenar los colores, usó la función de ,que duplica los números (255) para el acuerdo de forma.

TI-BASIC (no competidor), 323 bytes

El código está escrito para la TI-84, 83 y sus variantes. Espero que no sea un problema que las dimensiones varíen según el dispositivo y que el código no esté coloreado.

Preparar:

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

Dibujo:

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

Golfizado:

: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

Si, la falta de ) es intencional.

Talla:

Line(y todos los comandos como ese ocupan 1 byte, cada número toma un byte. Eso es 323 bytes.

Eso fue absolutamente tedioso. Espero obtener esto en un emulador (tengo que ingresar todo manualmente) pero literalmente son solo líneas en la forma de la bandera.

C#, 384 346 317 292 291 289 bytes

Solución simple con Windows Forms y 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 un nuevo proyecto de consola y coloque el código anterior en el método principal, agregue System.Drawing-Namespace.

Cómo funciona

El código crea una nueva imagen y dibuja algunas líneas sobre ella. Guarda la imagen en el disco. Algunos de los puntos finales de las líneas están fuera del área visible.

Python IDLE, 191 172 156 bytes

IDLE es el IDE estándar de Python. A menos que tenga un tema personalizado, STDOUTes azul, STDERRes rojo y el fondo es blanco. Entonces, el siguiente 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()

Produce esta salida:

Como los caracteres impresos no son cuadrados, esto está ligeramente apagado, pero si consideramos que 1 unidad tiene 2 caracteres de ancho y 1 carácter de alto, entonces las proporciones son exactas.

Esto se puede jugar al golf, reduciendo a la mitad la dimensión del ancho y utilizando un carácter ASCII para los bloques, por ejemplo '#', pero no tiene exactamente el mismo efecto.

Explicación

El código en sí parece bastante descuidado en este momento, y definitivamente se puede jugar, pero la idea básica es:

• Construya una matriz donde 0represente el espacio en blanco, 1represente un bloque azul y 2represente un bloque rojo.
  • La primera mitad se construye (principalmente a través del corte / multiplicación de listas), y se agrega al reverso de sí misma para generar la bandera completa.
• Realice un bucle a través de la matriz, imprimiendo cada valor como espacio en blanco o un bloque a STDERR/ en STDOUTconsecuencia. Imprima una nueva línea después de cada fila.

Tortuga Python, 176 bytes

Otra implementación de Python Turtle pero esta vez basada en estampar en lugar de dibujar :

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

El uso de estampado, y no hacerlo fácilmente escalable, ahorra unos 60 bytes de código.

La parte divertida es que puede reemplazar la "square"opción de polígono con la "turtle"opción de polígono en la shape()llamada y obtener un logotipo ecogroovy:

Perl, 134 bytes

Nota: en \x1brealidad es el carácter de escape ASCII y cuenta 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

Guardar como iceland-flag.ply ejecutar a través de:

perl iceland-flag.pl

Utiliza secuencias de escape ANSI y asume un terminal de Linux para mostrar la bandera. Parece un poco extraño usando las medidas proporcionadas.

Perl, 141 bytes

Esta versión se ve un poco más cerca de las dimensiones genuinas ...

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

Lee el color de la tinta, x, y, ancho y alto y dibuja un rectángulo con esas coordenadas / dimensiones.