Tegoroczny UEFA Euro 2016 się skończył, a oprócz kilku negatywnych nagłówków pojawiła się również bardzo pozytywna niespodzianka - reprezentacja Islandii w piłce nożnej . Narysujmy ich flagę narodową.

Wejście

Cóż, oczywiście to wyzwanie nie ma wkładu.

Wynik

• Narysuj flagę Islandii w dowolnym odpowiednim formacie wizualnym o wielkości co najmniej 100 x 72 pikseli lub 25 x 18 znaków .
• Zapisz dane wyjściowe w pliku lub wyświetl je natychmiast - przykładowe formaty to: obrazy takie jak png, jpg itp., Grafika wektorowa, rysuj na płótnie HTML, a nawet używaj znaków spacji do wizualizacji.
• Korzystać z tych kolorów : niebieski : #0048e0, biały : #ffffffa czerwony : #d72828.
• Jeśli twój język nie obsługuje określonych wartości kolorów, użyj standardowych wartości dla czerwonego , niebieskiego i białego z kodów kolorów ANSI .
• Narysuj flagę w odpowiednich proporcjach, jak pokazano na poniższym rysunku:
  
  

Płyta grzewcza

• Możesz napisać program lub funkcję. Jeśli jest to funkcja anonimowa, podaj przykład jej wywołania.
• To jest golf golfowy, więc wygrywa najkrótsza odpowiedź w bajtach.
• Standardowe luki są niedozwolone.

Tabela liderów

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>

^{Jeśli nie możesz znaleźć odpowiedzi, sformatuj swój język i liczbę bajtów, jak wyjaśniono w sekcji „ Informacje ” na tablicy wyników .}

^{To wyzwanie jest inspirowane przez Narysuj flagę narodową Francji .}

Python 3, 190 172 171 169 167 160 159 147 143 bajtów

Korzystanie z PIL w wersji 1.1.7, która ma przestarzałą, ale nie usuniętą metodę przesunięcia.

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

Tworzy obraz 25 * 18 pikseli wypełniony czerwonym, a następnie rysuje prostokąt 23 * 16 pikseli wypełniony niebieskim z białym konturem jednego piksela. Następnie przesuwa obraz o (9,9), który owija się na krawędziach, zmienia rozmiar na 100 * 72, a następnie pokazuje w oknie.

Flaga przed przesunięciem:

(zmieniono na 100 * 72)

Wynik:

Ożywiony:

Edycja1: Gra w golfa 18 bajtów, usuwając kadrowanie, początkowo tworząc obraz 25 * 18.

Edycja2: Grał w golfa 1 bajt, używając #fffzamiast white.

Edycja3: Gra w golfa 2 bajty, aliasingując import.

Edycja4: Gra w golfa 2 bajty, usuwając drugi argument metody offset.

Edycja5: Grał w golfa 7 bajtów, pokazując obraz zamiast zapisywać. (wymaga zainstalowanego imagemagick na Uniksie)

Edycja6: 1 bajt w golfa, przepisując import.

Edycja7: Gra w golfa 12 bajtów, ponownie przepisując import. (dzięki @Dennis)

Edycja8: Dodano animację.

Edycja9: Zaktualizowano animację, ponieważ brakowało ostatniej klatki.

Edycja10: Grał w golfa 4 bajty dzięki Albertowi Renshawowi!

Kod maszynowy trybu rzeczywistego x86 dla DOS COM, 69 65 63 62 bajtów

Kod ma być wykonywany jako plik wykonywalny COM systemu DOS.

Szczególne podziękowania

• meden , zapisane cztery bajty.
• meden , zapisał dwa bajty i usunął migotanie.

Kod maszynowy (w bajtach szesnastkowych)

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

Źródło zestawu

Źródło jest dla 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 bajtów

#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 dodanie jednego @NA #define A
-8 dodanie [na#define C

Stosowanie

main(){f();}

Wynik

ważny na podstawie tego komentarza z PO

Wyjście podwójnej wielkości, 204 bajty

#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 bajtów

Naprawdę nie mogłem znaleźć sposobu, aby ustawić rozmiar kolumny / wiersza na piksele (tym samym czyniąc je kwadratowymi) ze względu na sposób, w jaki Excel to obsługuje, więc najpierw powinny być ładne i kwadratowe.

Edycja 1: Zamieniono RGB na zwracane wartości kolorów, -26 bajtów

Edycja 2: Próbowałem dodać tyle sugestii, ile mogłem, -75 bajtów. Nie mogłem użyć &48e0jako koloru i nie jestem pewien, dlaczego. Dziękuję wszystkim

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

Obrazek:

MATL , 57 56 52 49 48 bajtów

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

Daje to następujący rysunek (testowany z kompilatorem działającym na Matlabie i Octave).

EDYCJA: Możesz eksperymentalnie wypróbować w MATL Online! (może być konieczne ponowne załadowanie strony, jeśli początkowo nie działa).

Jak to działa

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 bajtów

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

Zapisano 1 bajt dzięki @insertusernameherehere.

Zaoszczędzono 20 bajtów dzięki @ user2428118, usuwając wszystkie pxs. Pamiętaj, że wymaga to renderowania strony w trybie dziwactw, więc nie działa w urywkach stosu.

Mógłbym skopiować podejście Pythona do zawijania obrazu z przesunięciem, ale nie byłoby to interesujące.

Nie golfowany:

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

Wykorzystuje pseudoelementy (elementy, które nie są napisane w HTML) ::beforei ::aftertworzy linie na fladze. Powodem, dla którego działa bez HTML, jest to, że w HTML5 elementy <html>i <body>są opcjonalne, więc przeglądarki automatycznie je tworzą, jeśli nie są obecne.

Więcej zabawy:

*, *::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 bajtów

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

Zaoszczędzono 8 bajtów dzięki @manatwork i 1 bajt dzięki @ GlennRanders-Pehrson

ZX Spectrum BASIC, 210 141 92 bajtów

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

Rozmiar określony jako rozmiar programu BASIC na taśmie przez SAVE. Wiele zasług golfowych dla niektórych członków grupy ZX Spectrum na Facebooku , w szczególności @impomatic i Johan Koelman.

Zespół ZX Spectrum Z80, 65 bajtów

    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 znaków

Może to być 734 znaków, ale jak dotąd jest to jedyne zgłoszenie wykonane z prawdziwej wełny!

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

Przejdź do około -5x -5z, wklej do bloku poleceń Impulse, ustaw na „Always Active” i naciśnij Gotowe.

Rozpiętość flag od 0, 0 do 100, 72; i znajduje się 3 bloki powyżej bloku poleceń, jak umieszczony. To rzuca cień dość duży , a potwory tarło pod nią. Jednak, czy jest to dokładne w przypadku Islandii, nie wiadomo.

Uczciwe ostrzeżenie - zabije wszystkich MinecartCommandBlockna świecie w celu uratowania czterech postaci. Nie uruchamiaj tego w świecie, do którego jesteś zbyt przywiązany.

Używane polecenia sumator MrGarretto za i tweaked wyjście A trochę (808 -> 734)

Logo, 216 188 bajtów

Korzystanie z implementacji Calormen.com . Dla was, purystów, implementacja wykorzystuje pewne wygładzanie krawędzi, które nieco wtapia krawędzie. Zmarnowałem 3 bajty, chowając żółwia, więc to powinno to nadrobić.

Można to znacznie zmniejszyć, jeśli implementacja Logo pozwala ustawić rozmiar okna. Następnie możesz wrapi zmusić żółwia pługiem, aby wykonał krzyż w czterech pociągnięciach, i pomiń konieczność przycinania go ramką.

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 bajtów:

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

Odpowiedź bardzo późna, a zarazem najdłuższa tutaj. Wykorzystuje java.awt.Graphicsklasę do utworzenia i otwarcia okna z flagą, która jest utworzona przez 5 całkowitych prostokątów składających się z 1 dla niebieskich bloków, 2 dla białych pasków i 2 dla czerwonych pasków. Wykorzystuje stosunek 7 pikseli: 1. Innymi słowy, dla każdej jednostki używa się 7 pikseli. Oto obraz danych wyjściowych na komputerze Macintosh z systemem OS X 10.11:

Teraz, aby znaleźć sposób na odrobinę golfa ...

R, 197 195 187 bajtów

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

Wcięte, z nowymi liniami i objaśnieniami:

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

Edycja : okazuje się frame(), w przeciwieństwie do plot()lub plot.new()domyślnie nie dodaje obramowania do fabuły, co oznacza, że bty="n"tutaj nie było to konieczne.

8-bitowy plik wykonywalny Atari, 123 bajty

Kolejny wpis „tylko dla zabawy”, ten program jest przeznaczony do uruchamiania na 8-bitowym komputerze lub emulatorze Atari. Na przykład, aby załadować program na Atari800, po prostu uruchom:

atari800 iceland.xex

Kod maszynowy (w bajtach szesnastkowych)

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

Kod źródłowy asemblera (można skompilować za pomocą 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

Jak to działa:

Program wykorzystuje niestandardową listę wyświetlania opartą na trybie ANTIC 8 (40 pikseli na linię, 2 bpp). Powtarzające się linie są ładowane z tego samego miejsca w pamięci. Po skonfigurowaniu wyświetlacza program wchodzi w nieskończoną pętlę.

Zrzut ekranu:

FFmpeg, 339 184 bajtów

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

Spróbuję zagrać w golfa w dół .. dalej.

Python, 119 118 114 112 bajtów

Nic specjalnego, proste:

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

Wyjście jako binarny PPM, użycie

python golf_iceland.py > iceland.ppm

• Edycja1: przesunął bajt między printznak cudzysłowu i
• Edycja2: nieco krótszy jako binarny PPM
• Edycja3: Wymyślono, że \0można go użyć zamiast\x00

Jeśli ktoś wie, jak bezpośrednio użyć niedrukowalnego znaku ASCII, prosimy o informację.

JavaScript, 267 bajtów

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 bajtów

Ta funkcja to

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

I zapisuje pożądany obraz jako f.pngo rozmiarze 100 x 72

(Pamiętaj, że nie jest to bezpośredni konkurent w stosunku do odpowiedzi R. Kapa , ponieważ zapisuje plik i nie wyświetla obrazu na ekranie)

Oto wersja bez golfa, którą można skompilować i uruchomić:

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

Uwaga dodatkowa dotycząca pokrewnych pytań: Może należy stworzyć wyzwanie, aby pomalować flagi

• Indonezja
• Polska
• Finlandia
• Francja
• Holandia
• Tajlandia
• Norwegia

w tym samym czasie:

SVG + JavaScript, 190 165 164 bajtów

Żaden ekspert, powtarzanie jednej ścieżki tylko w celu zmiany koloru i szerokości linii wygląda głupio 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">`)

Bardziej czytelny:

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

Przetwarzanie , 136 bajtów

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

Nie golfił

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

Wynik:

Mathematica 174 157 bajtów

Bez wbudowanych:

157 bajtów

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

lub alternatywnie

232 bajty

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

Kod we fragmencie poniżej. Uruchom go, aby przetestować.

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)

Zespół ZX Spectrum Z80, 51 bajtów

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 bajtów

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

Podejście jest takie samo jak @ Gábor Fekete's z Pythonem.

Lewy argument colorsza viewmatto tablica wartości RGB, w naszym przypadku:

255 255 255
  0  72 224
215  40  40

Właściwym argumentem jest macierz wskaźników colors.
(_9 _9 |. matrix)nakazuje przesunięcie matrix9 elementów w każdym wymiarze.
Straszna konstrukcja (border ([,~[,.~[,[,.]) matrix)owija matrixsię liczbą border.
I (14 21 $ 1)tworzy matrycę 14 × 21 z nich.

Dane wyjściowe są wyświetlane w osobnym oknie o zmiennym rozmiarze, domyślnie dość dużym.

Dzięki

mile - zapisano 2 bajty przy zmianie kolejności kolorów, wykorzystano funkcję ,powielania liczb (255) do uzgodnienia kształtu.

TI-BASIC (niekonkurencyjny), 323 bajty

Kod jest napisany dla TI-84, 83 i wariantów. Mam nadzieję, że nie jest problemem, że wymiary różnią się w zależności od urządzenia i że kod nie jest kolorowy.

Ustawiać:

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

Rysunek:

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

Gra w golfa:

: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

Tak, brak )jest celowy.

Rozmiar:

Line(i wszystkie takie polecenia zajmują 1 bajt, każda liczba zajmuje bajt. To 323 bajty.

To było absolutnie nudne. Mam nadzieję, że dostanę to na emulatorze (muszę ręcznie wprowadzić wszystko), ale to dosłownie tylko linie w kształcie flagi.

DO#, 384 346 317 292 291 289 bajtów

Proste rozwiązanie z Windows Forms i 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");

Stosowanie

Uruchom nowy projekt konsoli i umieść powyższy kod w metodzie głównej, dodaj System.Drawing-Namespace.

Jak to działa

Kod tworzy nowy obraz i rysuje na nim kilka linii. Zapisuje obraz na dysku. Niektóre punkty końcowe linii znajdują się poza widocznym obszarem.

Python IDLE, 191 172 156 bajtów

IDLE to standardowe IDE Pythona. Chyba że ma niestandardowy motyw, STDOUTjest niebieski, STDERRjest czerwony, a tło jest białe. Tak więc następujący 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()

Daje to wyjście:

Ponieważ drukowane znaki nie są kwadratowe, jest to nieco wyłączone, ale jeśli weźmiemy 1 jednostkę na 2 znaki w poprzek i 1 znak wysokości, wówczas proporcje są dokładne.

Można to pograć w golfa, zmniejszając o połowę wymiar szerokości i używając znaku ASCII dla bloków takich jak '#', ale nie ma to dokładnie takiego samego efektu.

Wyjaśnienie

Sam kod wydaje się w tej chwili dość niechlujny i można go z pewnością zagrać w golfa, ale podstawową ideą jest:

• Skonstruuj macierz, w której 0reprezentuje białe znaki, 1reprezentuje niebieski blok i 2reprezentuje czerwony blok.
  • Pierwsza połowa jest konstruowana (głównie poprzez dzielenie / pomnażanie list) i dodawana do rewersu w celu wygenerowania pełnej flagi.
• Pętlę przez matrycę, drukując każdą wartość jako białą spację lub blok do STDERR/ STDOUTodpowiednio. Wydrukuj nowy wiersz po każdym wierszu.

Python Turtle, 176 bajtów

Kolejna implementacja Python Turtle, ale tym razem oparta na stemplowaniu zamiast rysowania :

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

Użycie stemplowania, a nie uczynienie go łatwo skalowalnym, pozwala zaoszczędzić około 60 bajtów kodu.

Zabawne jest to, że możesz zastąpić "square"opcję "turtle"wielokąta opcją wielokąta w shape()zaproszeniu i uzyskać logo ecogroovy:

Perl, 134 bajty

Uwaga: w \x1brzeczywistości jest to znak ucieczki ASCII i liczy się jako 1 bajt

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

Stosowanie

Zapisz jako iceland-flag.pli uruchom przez:

perl iceland-flag.pl

Wykorzystuje sekwencje specjalne ANSI i zakłada terminal Linux do wyświetlenia flagi. Wygląda trochę dziwnie na podstawie dostarczonych pomiarów.

Perl, 141 bajtów

Ta wersja wygląda nieco bliżej oryginalnych wymiarów ...

($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 bajtów

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

Odczytuje kolor atramentu, x, y, szerokość i wysokość i rysuje prostokąt z tymi współrzędnymi / wymiarami.