UEFA Euro 2016 năm nay đã kết thúc và bên cạnh một vài tiêu đề tiêu cực, đã có một bất ngờ rất tích cực - đội tuyển bóng đá quốc gia Iceland . Hãy vẽ quốc kỳ của họ.

Đầu vào

Chà, rõ ràng thử thách này không có đầu vào.

Đầu ra

• Vẽ cờ của Iceland ở bất kỳ định dạng hình ảnh có thể áp dụng nào ít nhất 100 x 72 pixel hoặc 25 x 18 ký tự .
• Lưu kết quả đầu ra vào một tệp hoặc trình bày nó ngay lập tức - các định dạng ví dụ là: hình ảnh như png, jpg, v.v., đồ họa vector, vẽ trên khung vẽ HTML hoặc thậm chí sử dụng các ký tự không phải khoảng trắng để hiển thị.
• Sử dụng các màu này : xanh : #0048e0, trắng : #ffffffvà đỏ : #d72828.
• Nếu ngôn ngữ của bạn không hỗ trợ các giá trị màu cụ thể, hãy sử dụng các giá trị tiêu chuẩn cho màu đỏ , xanh và trắng từ mã màu ANSI .
• Vẽ cờ với tỷ lệ chính xác, như trong hình dưới đây:
  
  

bản mẫu

• Bạn có thể viết một chương trình hoặc một chức năng. Nếu đó là một hàm ẩn danh, vui lòng bao gồm một ví dụ về cách gọi nó.
• Đây là mã golf để câu trả lời ngắn nhất trong byte thắng.
• Sơ hở tiêu chuẩn là không được phép.

Bảng xếp hạng

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>

^{Nếu bạn không thể tìm thấy câu trả lời của bạn, định dạng ngôn ngữ của bạn và số byte như được giải thích trong của Leaderboard " Thông tin Mục " .}

^{Thử thách này được lấy cảm hứng từ Vẽ cờ quốc gia Pháp .}

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

Sử dụng PIL phiên bản 1.1.7 có phương pháp bù trừ nhưng không được loại bỏ.

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

Tạo hình ảnh 25 * 18 pixel chứa đầy màu đỏ sau đó vẽ hình chữ nhật 23 * 16 pixel chứa đầy màu xanh với viền trắng của một pixel. Sau đó, nó bù đắp hình ảnh bằng (9,9) bao bọc trên các cạnh, thay đổi kích thước của nó thành 100 * 72 sau đó hiển thị nó trong một cửa sổ.

Cờ trước khi bù đắp:

(thay đổi kích thước thành 100 * 72)

Đầu ra:

Hoạt hình:

Edit1: Golfed 18 byte bằng cách xóa xén bằng cách ban đầu tạo hình ảnh 25 * 18.

Edit2: Golfed 1 byte bằng cách sử dụng #fffthay vì white.

Edit3: Golfed 2 byte bằng cách nhập bí danh.

Edit4: Golfed 2 byte bằng cách loại bỏ đối số thứ hai của phương thức offset.

Edit5: Golfed 7 byte bằng cách hiển thị hình ảnh thay vì lưu. (cần cài đặt hình ảnh trên Unix)

Chỉnh sửa 6: Đánh gôn 1 byte bằng cách viết lại nhập.

Chỉnh sửa7: Đánh gôn 12 byte bằng cách viết lại nhập. (cảm ơn bởi @Dennis)

Edit8: Đã thêm hình ảnh động.

Edit9: Cập nhật hình ảnh động vì nó bị thiếu khung hình cuối cùng.

Chỉnh sửa10: Chơi gôn 4 byte nhờ Albert Renshaw!

Mã máy chế độ thực x86 cho DOS COM, 69 65 63 62 byte

Mã này có nghĩa là được thực thi dưới dạng thực thi COM COM của DOS.

Cảm tạ

• trung gian , lưu bốn byte.
• trung gian , lưu hai byte và loại bỏ nhấp nháy.

Mã máy (tính theo byte hex)

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

Nguồn hội

Nguồn là cho 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 byte

#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 thêm một @trên #define A
-8 thêm [vào#define C

Sử dụng

main(){f();}

Đầu ra

dựa trên nhận xét này từ OP

Đầu ra kích thước gấp đôi, 204 byte

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

VBA Excel, 254 228 153 byte

Thực sự không thể tìm cách đặt kích thước cột / hàng thành pixel (do đó làm cho chúng vuông) vì cách Excel xử lý nó để làm cho chúng đẹp và vuông trước.

Chỉnh sửa 1: RGB thay thế bằng các giá trị được trả về cho màu sắc, -26 byte

Chỉnh sửa 2: Đã thử thêm nhiều đề xuất nhất có thể, -75 byte. Tôi đã không thể sử dụng &48e0như một màu sắc và tôi không chắc tại sao. Cảm ơn mọi người

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

Hình ảnh:

MATL , 57 56 52 49 48 byte

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

Điều này tạo ra hình dưới đây (được thử nghiệm với trình biên dịch chạy trên Matlab và trên Octave).

EDIT: Bạn có thể thử nghiệm tại MATL Online!(bạn có thể cần tải lại trang nếu nó không hoạt động ban đầu).

Làm thế nào nó hoạt động

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 byte

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

Đã lưu 1 byte nhờ @insertusernamehere.

Đã lưu 20 byte nhờ @ user2428118, bằng cách xóa tất cả các pxs. Lưu ý rằng điều này yêu cầu trang phải được hiển thị ở chế độ quirks, vì vậy nó không hoạt động trong Stack Snippets.

Tôi có thể sao chép cách tiếp cận Python của việc bọc một hình ảnh xung quanh ở phần bù, nhưng nó sẽ không thú vị.

Ung dung:

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

Điều này sử dụng các phần tử giả (các phần tử không được viết bằng HTML) ::beforevà ::afterđể tạo các dòng trên cờ. Lý do nó hoạt động không có HTML là vì trong HTML5 <html>, <body>các phần tử là tùy chọn, vì vậy các trình duyệt sẽ tự động tạo chúng nếu chúng không có mặt.

Vui hơ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 byte

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

Đã lưu 8 byte, nhờ @manatwork và 1 byte, nhờ @ GlennRanders-Pehrson

ZX Spectrum BASIC, 210 141 92 byte

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

Kích thước được xác định là kích thước của chương trình BASIC trên băng thông qua SAVE. Rất nhiều tín dụng chơi golf cho một số thành viên của nhóm ZX Spectrum trên Facebook , đặc biệt là @impomatic và Johan Koelman.

ZX Spectrum Z80 hội, 65 byte

    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 ký tự

Nó có thể là 734 ký tự, nhưng đó là bản đệ trình duy nhất cho đến nay được làm bằng len thật!

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

Chuyển đến khoảng -5x -5z, dán vào khối lệnh Impulse, đặt thành "Luôn hoạt động" và nhấn Xong.

Cờ kéo dài từ 0, 0 đến 100, 72; và là 3 khối phía trên khối lệnh như đã đặt. Nó tạo ra một cái bóng khá lớn và quái vật sinh ra dưới nó. Dù điều này có chính xác với đất nước Iceland hay không, là phỏng đoán của bất kỳ ai.

Cảnh báo công bằng - sẽ / giết tất cả mọi MinecartCommandBlockngười trên thế giới vì lợi ích cứu bốn nhân vật. Đừng chạy nó trong một thế giới mà bạn quá gắn bó.

Bộ kết hợp lệnh của MrGarretto đã sử dụng và điều chỉnh đầu ra một chút (808 -> 734)

Logo, 216 188 byte

Sử dụng triển khai của Calormen.com . Đối với những người theo chủ nghĩa thuần túy, việc thực hiện sử dụng một số khử răng cưa có lông một chút. Tuy nhiên, tôi đã lãng phí 3 byte để giấu con rùa, vì vậy nó sẽ bù đắp cho nó.

Điều này có thể được giảm đáng kể nếu việc triển khai Logo của bạn cho phép bạn đặt kích thước của cửa sổ. Sau đó, bạn có thể wrapvà làm cho con rùa cày qua để tạo ra cây thánh giá trong bốn nét, và bỏ qua việc phải cắt nó với một đường viền.

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

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

Một câu trả lời rất muộn, và cũng là câu trả lời dài nhất ở đây, rõ ràng. Sử dụng java.awt.Graphicslớp để tạo và mở một cửa sổ với cờ trong đó, được tạo bởi 5 tổng hình chữ nhật bao gồm 1 cho các khối màu xanh, 2 cho các sọc trắng và 2 cho các sọc đỏ. Sử dụng tỷ lệ 7 pixel: 1 đơn vị. Nói cách khác, đối với mỗi đơn vị, 7 pixel được sử dụng. Dưới đây là hình ảnh đầu ra trên Macintosh với OS X 10.11:

Bây giờ để tìm cách chơi golf này xuống một chút nữa ...

R, 197 195 187 byte

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

Được thụt lề, với các dòng và giải thích mới:

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

Chỉnh sửa : hóa ra frame(), trái với plot()hoặc plot.new()không theo mặc định thêm một đường viền vào cốt truyện, có nghĩa bty="n"là không cần thiết ở đây.

Atari 8 bit thực thi, 123 byte

Một mục "chỉ để giải trí" khác, chương trình này có nghĩa là được chạy trên máy tính hoặc trình giả lập 8 bit Atari. Ví dụ: để tải chương trình trên Atari800, chỉ cần chạy:

atari800 iceland.xex

Mã máy (tính theo byte hex)

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

Mã nguồn của trình biên dịch chương trình (có thể được biên dịch bằng 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

Làm thế nào nó hoạt động:

Chương trình sử dụng danh sách hiển thị tùy chỉnh dựa trên Chế độ ANTIC 8 (40 pixel mỗi dòng, 2 bpp). Các dòng lặp lại được tải từ cùng một vị trí bộ nhớ. Sau khi thiết lập màn hình, chương trình đi vào một vòng lặp vô hạn.

Ảnh chụp màn hình:

FFmpeg, 339 184 byte

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

Sẽ cố gắng để chơi golf này xuống .. khác.

Con trăn, 119 118 114 112 byte

Không có gì đặc biệt, đơn giản:

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

Đầu ra dưới dạng PPM nhị phân, sử dụng

python golf_iceland.py > iceland.ppm

• Edit1: chuyển một byte giữa print và dấu ngoặc kép
• Edit2: ngắn hơn một chút như PPM nhị phân
• Edit3: Hình \0có thể được sử dụng thay vì\x00

Nếu ai đó biết cách sử dụng trực tiếp ký tự ASCII không in được, vui lòng cho biết.

JavaScript, 267 byte

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 byte

Chức năng là

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

Và nó viết hình ảnh mong muốn như f.png , với kích thước 100x72

(Lưu ý rằng đây không phải là đối thủ cạnh tranh trực tiếp với Câu trả lời của R. Kap , vì nó ghi một tệp và không hiển thị hình ảnh trên màn hình)

Đây là phiên bản chưa được chỉnh sửa có thể được biên dịch và chạy:

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

Một lưu ý phụ, liên quan đến các câu hỏi liên quan: Có lẽ người ta nên tạo ra một thử thách để vẽ cờ của

• Indonesia
• Ba Lan
• Phần Lan
• Pháp
• nước Hà Lan
• nước Thái Lan
• Na Uy

cùng lúc, cùng thời điểm:

SVG + Javascript, 190 165 164 byte

Không có chuyên gia ở đó, lặp đi lặp lại một con đường chỉ để thay đổi màu sắc và độ rộng dòng trông có vẻ ngớ ngẩn 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">`)

Dễ đọc hơn:

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

Đang xử lý , 136 byte

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

Bị đánh cắp

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

Đầu ra:

Toán học 174 157 byte

Không có nội dung:

157 byte

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

Hay cách khác

232 byte

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

Mã bên trong đoạn trích dưới đây. Chạy nó để kiểm tra.

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

ZX Spectrum Z80 hội, 51 byte

https://github.com/ralphbecket/Z80/blob/master/ItubFlag/IedomFlag.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 byte

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

Cách tiếp cận tương tự như @ Gábor Fekete's với Python.

Lập luận trái colorscho viewmatlà một mảng các giá trị RGB, trong trường hợp của chúng tôi:

255 255 255
  0  72 224
215  40  40

Và đối số đúng là một ma trận các chỉ số của colors.
(_9 _9 |. matrix)hướng dẫn chuyển matrix9 mục theo từng chiều.
Xây dựng đáng sợ (border ([,~[,.~[,[,.]) matrix)kết thúc tốt đẹp matrixvới số border.
Và (14 21 $ 1)tạo ma trận 14 × 21 của những người.

Đầu ra được hiển thị trong cửa sổ có thể thay đổi kích thước riêng biệt, khá lớn theo mặc định.

Cảm ơn

dặm - lưu 2 byte với sắp xếp lại các màu sắc, sử dụng các tính năng của ,rằng bản sao những con số (255) đối với thỏa thuận hình thành.

TI-BASIC (không cạnh tranh), 323 byte

Mã được viết cho TI-84, 83 và các biến thể. Tôi chắc chắn hy vọng đó không phải là vấn đề mà kích thước thay đổi tùy theo thiết bị và mã không được tô màu.

Thiết lập:

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

Đang vẽ:

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

Chơi gôn

: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

Vâng, thiếu )là cố ý.

Kích thước:

Line(và tất cả các lệnh như thế chiếm 1 byte, mỗi số mất một byte. Đó là 323 byte.

Điều đó hoàn toàn tẻ nhạt. Hy vọng tôi sẽ nhận được điều này trên một trình giả lập (tôi phải nhập thủ công mọi thứ) nhưng thực ra nó chỉ là những đường kẻ trong hình cờ.

C #, 384 346 317 292 29 289 byte

Giải pháp đơn giản với Windows Forms và 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");

Sử dụng

Bắt đầu một dự án giao diện điều khiển mới và đặt mã ở trên vào phương thức chính, thêm System.Drawing-Namespace.

Làm thế nào nó hoạt động

Mã này tạo ra một hình ảnh mới và vẽ một số dòng trên đó. Nó lưu hình ảnh vào đĩa. Một số điểm kết thúc của các dòng nằm ngoài vùng nhìn thấy.

Python IDLE, 191 172 156 byte

IDLE là IDE tiêu chuẩn của Python. Trừ khi nó có một chủ đề tùy chỉnh, STDOUTlà màu xanh, STDERRmàu đỏ và nền là màu trắng. Vì vậy, mã sau đây:

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

Sản xuất đầu ra này:

Khi các ký tự được in không phải là hình vuông, điều này hơi bị tắt, nhưng nếu chúng ta lấy 1 đơn vị là 2 ký tự ngang và 1 char, thì tỷ lệ là chính xác.

Điều này có thể được đánh gôn, bằng cách giảm một nửa kích thước chiều rộng và sử dụng ký tự ASCII cho các khối như '#', nhưng nó không thực sự có tác dụng tương tự.

Giải trình

Bản thân mã có vẻ khá cẩu thả vào lúc này và chắc chắn có thể bị đánh gôn, nhưng ý tưởng cơ bản là:

• Xây dựng một ma trận trong đó 0đại diện cho khoảng trắng, 1đại diện cho một khối màu xanh và 2đại diện cho một khối màu đỏ.
  • Nửa đầu được xây dựng (chủ yếu thông qua việc cắt / nhân danh sách) và được thêm vào mặt sau của chính nó để tạo ra cờ đầy đủ.
• Lặp lại qua ma trận, in từng giá trị dưới dạng khoảng trắng hoặc khối tới STDERR/ STDOUTtương ứng. In một dòng mới sau mỗi hàng.

Rùa Python, 176 byte

Một triển khai Python Python khác nhưng lần này dựa trên dập thay vì vẽ :

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

Sử dụng dập và không làm cho nó dễ dàng mở rộng, tiết kiệm khoảng 60 byte mã.

Điều thú vị là bạn có thể thay thế "square"tùy chọn đa giác bằng "turtle"tùy chọn đa giác trong shape()cuộc gọi và nhận logo ecogroovy:

Perl, 134 byte

Lưu ý: \x1bthực sự là ký tự thoát ASCII và được tính là 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

Sử dụng

Lưu dưới dạng iceland-flag.plvà chạy qua:

perl iceland-flag.pl

Sử dụng các chuỗi thoát ANSI và giả sử một thiết bị đầu cuối Linux để hiển thị cờ. Có vẻ hơi lạ khi sử dụng các phép đo được cung cấp.

Perl, 141 byte

Phiên bản này trông gần hơn một chút so với kích thước chính hãng ...

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

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

Đọc màu mực, x, y, chiều rộng và chiều cao và vẽ một hình chữ nhật với các tọa độ / kích thước đó.