ukmuiik

Question

We've got quite a few national flag challenges already:
AU
CH
FI
FR
GB
GB
IS
KR
NP
US...
Here's another, somewhat more advanced one:

Return or print the decorative pattern from Belarus's national flag as a matrix of two distinct values for red and white.

rushnyk

If your language doesn't support matrices, use a list of lists or the closest equivalent.
Extra whitespace is allowed on all sides.
The matrix can be transposed.
The elements can have a consistent separator, and so can the rows, e.g. output can be JSON.
You must use the 2012 version of the ornament pattern, not the 1951 or 1995 versions.
This is code-golf, so the shortest answer per language wins.

Sample output:

....###....#....###....
#..#####...#...#####..#
..###.###.....###.###..
.###...###...###...###.
###..#..###.###..#..###
.###...###...###...###.
..###.###.....###.###..
#..#####...#...#####..#
....###....#....###....
..#..#..#.....#..#..#..
.###...###...###...###.
##.##.##.##.##.##.##.##
.###...###...###...###.
..#..#..#.....#..#..#..
....###....#....###....
#..#####...#...#####..#
..#######.....#######..
.#########...#########.
#######################
####...#########...####
.#####..#######..#####.
..###....#####....###..
#..#....#######....#..#
.......####.####.......
#.....####...####.....#
##...####..#..####...##
###.####.......####.###
.######..#...#..######.
..####...##.##...####..
...###....###....###...
....##.#...#...#.##....
...###....###....###...
..####...##.##...####..
.######..#...#..######.
###.####.......####.###
##...####..#..####...##
#.....####...####.....#
.......####.####.......
#..#....#######....#..#
..###....#####....###..
.#####..#######..#####.
####...#########...####
#######################
.#########...#########.
..#######.....#######..
#..#####...#...#####..#
....###....#....###....
..#..#..#.....#..#..#..
.###...###...###...###.
##.##.##.##.##.##.##.##
.###...###...###...###.
..#..#..#.....#..#..#..
....###....#....###....
#..#####...#...#####..#
..###.###.....###.###..
.###...###...###...###.
###..#..###.###..#..###
.###...###...###...###.
..###.###.....###.###..
#..#####...#...#####..#
....###....#....###....

wastl 1,884424 · Answer 1 · 2018-08-06 11:44:18Z

Stax, 68 bytes

ÃƒÂ ÃƒÂ‘ÃŽÂ£Ã¢Â–Â’iÃ¢Â•Â•7FF3xÃƒÂ¬Ã‚Â¥Ã¢Â•Â«YbÃ¢Â–ÂŒtÃ¢Â•Â¤yÃ¢Â•Â¡Ã‚ÂµÃƒÂ¥ÃƒÂ¨0Ã¢Â•ÂÃ¢Â†Â•hÃ¢Â•Â—ÃŽÂ”DOÃƒÂ¼Ã¢Â†Â”`Ã¢Â—Â™Ã¢Â–Â ^>Ã¢Â™Â€;Ã¢ÂˆÂŸÃŽÂ“9Ã¢Â†Â’Ã‚Â§ÃƒÂ†Ã‚Â¼$ÃƒÂŸÃ¢ÂŒÂ¡Ã¢Â•Â«ÃƒÂ¨j_Ã¢Â”Â;ÃƒÂ¸;Ã‚Â¡Ã‚Â²ÃŽÂ©Ã¢Â˜ÂºÃ¢Â”Â˜4!PÃ¢Â•Â›

Run and debug it

Outputs vertical version, 1 for white, 0 for red. Naive approach: compress top left quarter, then complete.

score 4 · Answer 2 · 2018-08-06 12:47:33Z

Python 2, 183 181 bytes

S=[bin(int(''.join(w),36))[2:].rjust(31,'0')for w in zip(*[iter("RBRG5FDLAJ2O77MSE012OBJWJUSWDQ464UKNYZIE8JYGS0JRFOCIJY7U5F983X0LYW20WNTE")]*6)]
for s in S[:0:-1]+S:print s[:0:-1]+s

Try it online!

Outputs transposed version, using 0 and 1 for white and red.

score 3 · Answer 3 · 2018-08-06 19:01:46Z

JavaScript (ES6), 164 bytes

Transposed output. Uses 0 for white, 1 for red.

f=(x=y=0)=>y<61?x>22?`
`+f(!++y):(-~'o`xb[FMMf[MM[Fxbo`cCMMZZMMcCo`xbFN~~N}}{[wH?]@NbfvBHimprove this answer

score 3 · Answer 4 · 2018-08-07 00:05:30Z

SOGL V0.12, 61 56 bytes

 Ã¢Â„Â–ÃŽÂ±Ã¢ÂÂ¶U-Ã¢Â”Â¼Ã‚Â°jÃ…ÂIÃŽÂ¤$ÃŽÂ£ÃŽÂ§ÃÂÃ¢Â†ÂFVÃŽÂ¾ÃƒÂ†Ã¢Â…Â{VqMÃ¢Â”Â¼ÃŽÂ¿YÃŽÂ !Ã¢Â†Â•ÃŽÂ¿ÃŽÂ©ÃƒÂ†.ÃÂ‡gÃ‚Â±Ã¢Â”Â”Ã‚Â¶ÃŽÂ£,CyÃ¢Â€Â²Ã¢Â”ÂŒÃ¢Â€Âœ2Ã¢Â”Â€Ã‚Â±6Ã‚Â«nÃ¢Â•Â¬,

Try it Here!

Lynn 47.9k694222 · Answer 5 · 2018-08-06 21:22:22Z

up vote
3
down vote

Charcoal, 93 89 81 bytes

Ã¢Â€ÂÃ¢Â€ÂœÃ¢Â†Â·Ã¯Â¼Â¢Ã¢Â¦ÂƒÃ‚Â¶Ã‚Â¹Ã‚Â¹Ã¯Â½ÂœTQÃ¢ÂŒÂŠÃ¢Â€Â½ÃƒÂ·Ã¢ÂªÂ«Mg+Ã¢Â„Â…Ã‚Â§Ã‚ÂºHÃ‚Â·ÃÂ„Ã¯Â¼Â°Ã¢Â‰Â”Ã¢ÂÂ»Ã¢ÂŠÂ—Ã¯Â½ÂœYÃÂ‰Ã‚Â¤Ã¢ÂÂµÃ¢ÂŠÂ—-ÃŽÂºÃ¯Â¿Â½ÃŽÂºb5AÃÂ‰ÃŽÂ³Ã¢ÂŽÂšI0ÃƒÂªÃ¯Â¹ÂªoÃŽÂ¶Ã¯Â¼ÂÃ¢ÂŸÂ²Ã‚ÂºhÃ¢ÂŸÂ²Ã¢Â®ÂŒ#Ã¢ÂŽÂ‡sÃ¢Â–Â¶Ã¢Â€Â´ÃÂˆÃ¢Â—Â§Ã¢Â‰Â”Ã¢Â—Â¨Ã¢Â—Â§Ã¢ÂÂº4UÃƒÂ—mÃ¢ÂˆÂ§ÃƒÂ¼Ã¯Â¼Â¦Ã¢Â†Â‘Ã¢Â¬Â¤Ã¢Â€ÂÃ¢Â€Â–Ã¯Â¼Â¯Ã‚Â¬

My first charcoal answer! :D

Try it online!

Saved 4 bytes by outputting the design horizontally rather than vertically (fewer newlines).

Thanks to @Neil for saving 8 bytes!

answered Aug 6 at 21:22

Lynn

47.9k694222

answered Aug 6 at 21:22

Lynn

47.9k694222

answered Aug 6 at 21:22

Lynn

47.9k694222

answered Aug 6 at 21:22

Lynn

47.9k694222

add a commentÂ |Â

up vote
2
down vote

Perl 5, 121 bytes

Uses 1 for white pixels and 0 for red.

$_=unpack"B*",'ÃƒÂ±ÃƒÂ¦ÃƒÂ„xÃƒÂ£ÃƒÂ£ÃƒÂ„vÃƒÂ±ÃƒÂÃ‚Â·Ã…Â½2IÃ…Â½=Ã‚Â·ÃƒÂ±ÃƒÂ¦ÃƒÂ€xÃƒÂ Ã†Â’xoÃƒÂ¡|3Ã¢Â€Â ÃƒÂ¸ÃƒÂƒÃ…Â¾<ÃƒÂ²ÃƒÂ ';say for(@a=maps/.$//r.reverse/.12/g),pop@a&&reverse@a

This script contains unprintable characters so a reversible hexdump is included in the verification link below.

Try it online!
Verification of code length.

Explanation

The top quarter of the pattern is stored within the binary blob. This just uses Perl's pack function with the original binary string (after replacing . and # with 1 and 0). This allows us to store 8 bits of the pattern in each byte. Once we've unpacked the data, we have the long binary string, which we break down into sections of length 12, concatenate with the reverse (except for the duplicated middle character) and then loop over the list of sections (concatenated with the reverse of the list, except for the duplicated middle element) and output them all using say, which adds in a newline.

answered Aug 7 at 12:20

Dom Hastings

14.7k33070

add a commentÂ |Â

up vote
2
down vote

Perl 5, 121 bytes

Uses 1 for white pixels and 0 for red.

$_=unpack"B*",'ÃƒÂ±ÃƒÂ¦ÃƒÂ„xÃƒÂ£ÃƒÂ£ÃƒÂ„vÃƒÂ±ÃƒÂÃ‚Â·Ã…Â½2IÃ…Â½=Ã‚Â·ÃƒÂ±ÃƒÂ¦ÃƒÂ€xÃƒÂ Ã†Â’xoÃƒÂ¡|3Ã¢Â€Â ÃƒÂ¸ÃƒÂƒÃ…Â¾<ÃƒÂ²ÃƒÂ ';say for(@a=maps/.$//r.reverse/.12/g),pop@a&&reverse@a

This script contains unprintable characters so a reversible hexdump is included in the verification link below.

Try it online!
Verification of code length.

Explanation

The top quarter of the pattern is stored within the binary blob. This just uses Perl's pack function with the original binary string (after replacing . and # with 1 and 0). This allows us to store 8 bits of the pattern in each byte. Once we've unpacked the data, we have the long binary string, which we break down into sections of length 12, concatenate with the reverse (except for the duplicated middle character) and then loop over the list of sections (concatenated with the reverse of the list, except for the duplicated middle element) and output them all using say, which adds in a newline.

answered Aug 7 at 12:20

Dom Hastings

14.7k33070

add a commentÂ |Â

up vote
2
down vote

Perl 5, 121 bytes

Uses 1 for white pixels and 0 for red.

$_=unpack"B*",'ÃƒÂ±ÃƒÂ¦ÃƒÂ„xÃƒÂ£ÃƒÂ£ÃƒÂ„vÃƒÂ±ÃƒÂÃ‚Â·Ã…Â½2IÃ…Â½=Ã‚Â·ÃƒÂ±ÃƒÂ¦ÃƒÂ€xÃƒÂ Ã†Â’xoÃƒÂ¡|3Ã¢Â€Â ÃƒÂ¸ÃƒÂƒÃ…Â¾<ÃƒÂ²ÃƒÂ ';say for(@a=maps/.$//r.reverse/.12/g),pop@a&&reverse@a

This script contains unprintable characters so a reversible hexdump is included in the verification link below.

Try it online!
Verification of code length.

Explanation

The top quarter of the pattern is stored within the binary blob. This just uses Perl's pack function with the original binary string (after replacing . and # with 1 and 0). This allows us to store 8 bits of the pattern in each byte. Once we've unpacked the data, we have the long binary string, which we break down into sections of length 12, concatenate with the reverse (except for the duplicated middle character) and then loop over the list of sections (concatenated with the reverse of the list, except for the duplicated middle element) and output them all using say, which adds in a newline.

answered Aug 7 at 12:20

Dom Hastings

14.7k33070

Perl 5, 121 bytes

Uses 1 for white pixels and 0 for red.

$_=unpack"B*",'ÃƒÂ±ÃƒÂ¦ÃƒÂ„xÃƒÂ£ÃƒÂ£ÃƒÂ„vÃƒÂ±ÃƒÂÃ‚Â·Ã…Â½2IÃ…Â½=Ã‚Â·ÃƒÂ±ÃƒÂ¦ÃƒÂ€xÃƒÂ Ã†Â’xoÃƒÂ¡|3Ã¢Â€Â ÃƒÂ¸ÃƒÂƒÃ…Â¾<ÃƒÂ²ÃƒÂ ';say for(@a=maps/.$//r.reverse/.12/g),pop@a&&reverse@a

This script contains unprintable characters so a reversible hexdump is included in the verification link below.

Try it online!
Verification of code length.

Explanation

The top quarter of the pattern is stored within the binary blob. This just uses Perl's pack function with the original binary string (after replacing . and # with 1 and 0). This allows us to store 8 bits of the pattern in each byte. Once we've unpacked the data, we have the long binary string, which we break down into sections of length 12, concatenate with the reverse (except for the duplicated middle character) and then loop over the list of sections (concatenated with the reverse of the list, except for the duplicated middle element) and output them all using say, which adds in a newline.

answered Aug 7 at 12:20

Dom Hastings

14.7k33070

answered Aug 7 at 12:20

Dom Hastings

14.7k33070

answered Aug 7 at 12:20

Dom Hastings

14.7k33070

answered Aug 7 at 12:20

Dom Hastings

14.7k33070

add a commentÂ |Â

Â

draft saved

draft discarded

Â

draft saved

draft discarded

StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fcodegolf.stackexchange.com%2fquestions%2f170053%2fbelarus-rushnyk%23new-answer', 'question_page');

);

Post as a guest

Name

Email

Name

Email

Name

Email

Name

Email

Name

Email

Dom Hastings 14.7k33070 · Answer 6 · 2018-08-07 12:20:18Z

Perl 5, 121 bytes

Uses 1 for white pixels and 0 for red.

$_=unpack"B*",'ÃƒÂ±ÃƒÂ¦ÃƒÂ„xÃƒÂ£ÃƒÂ£ÃƒÂ„vÃƒÂ±ÃƒÂÃ‚Â·Ã…Â½2IÃ…Â½=Ã‚Â·ÃƒÂ±ÃƒÂ¦ÃƒÂ€xÃƒÂ Ã†Â’xoÃƒÂ¡|3Ã¢Â€Â ÃƒÂ¸ÃƒÂƒÃ…Â¾<ÃƒÂ²ÃƒÂ ';say for(@a=maps/.$//r.reverse/.12/g),pop@a&&reverse@a

This script contains unprintable characters so a reversible hexdump is included in the verification link below.

Try it online!
Verification of code length.

Explanation

The top quarter of the pattern is stored within the binary blob. This just uses Perl's pack function with the original binary string (after replacing . and # with 1 and 0). This allows us to store 8 bits of the pattern in each byte. Once we've unpacked the data, we have the long binary string, which we break down into sections of length 12, concatenate with the reverse (except for the duplicated middle character) and then loop over the list of sections (concatenated with the reverse of the list, except for the duplicated middle element) and output them all using say, which adds in a newline.

Search This Blog

ukmuiik

Belarus rushnyk

7 Answers
7

Stax, 68 bytes

Python 2, 183 181 bytes

JavaScript (ES6), 164 bytes

SOGL V0.12, 61 56 bytes

SOGL V0.12, 61 56 bytes

SOGL V0.12, 61 56 bytes

SOGL V0.12, 61 56 bytes

Charcoal, 93 89 81 bytes

Perl 5, 121 bytes

Explanation

Perl 5, 121 bytes

Explanation

Perl 5, 121 bytes

Explanation

Perl 5, 121 bytes

Explanation

Post as a guest

Comments

Post a Comment

Popular posts from this blog

What is the equation of a 3D cone with generalised tilt?

Color the edges and diagonals of a regular polygon

Relationship between determinant of matrix and determinant of adjoint?

Category

Random preview

Belarus rushnyk

7 Answers 7

Stax, 68 bytes

Python 2, 183 181 bytes

JavaScript (ES6), 164 bytes

SOGL V0.12, 61 56 bytes

SOGL V0.12, 61 56 bytes

SOGL V0.12, 61 56 bytes

SOGL V0.12, 61 56 bytes

Charcoal, 93 89 81 bytes

Perl 5, 121 bytes

Explanation

Perl 5, 121 bytes

Explanation

Perl 5, 121 bytes

Explanation

Perl 5, 121 bytes

Explanation

Sign up or log in

Post as a guest

Post as a guest

Sign up or log in

Post as a guest

Sign up or log in

Post as a guest

Sign up or log in

Post as a guest

Comments

Post a Comment

Popular posts from this blog

What is the equation of a 3D cone with generalised tilt?

Color the edges and diagonals of a regular polygon

Relationship between determinant of matrix and determinant of adjoint?

7 Answers
7