Help me compress this song

Question

in my country we have a children's song which goes like this:

Priletela muha na zid, muha na zid, muha na zid.
Priletela muha na zid,
muha na zid.

Pralatala maha na zad, maha na zad, maha na zad.
Pralatala maha na zad,
maha na zad.

Preletele mehe ne zed, mehe ne zed, mehe ne zed.
Preletele mehe ne zed,
mehe ne zed.

Prilitili mihi ni zid, mihi ni zid, mihi ni zid.
Prilitili mihi ni zid,
mihi ni zid.

Prolotolo moho no zod, moho no zod, moho no zod.
Prolotolo moho no zod,
moho no zod.

Prulutulu muhu nu zud, muhu nu zud, muhu nu zud.
Prulutulu muhu nu zud,
muhu nu zud.

As you can see, it contains a bit of redundant information. So I was wondering if it could be compressed a bit.

This is code golf — shortest code wins.

To save curious people the effort: Google Translate detects it as Croatian and says: "A fly landed on the wall, a fly on the wall, a fly on the wall." and obviously the remaining verses are nonsense. Google didn't find a dictionary containing "priletela" so I don't know for sure. Wiktionary has a similar word in Russian and Google finds it in a Slovenian song. — user253751, Dec 16 '20 at 18:20
@user253751 the translation is correct. The first verse is understandable for anyone speaking some slavic language and is more or less valid at least in Serbian, Croatian, Macedonian and some Bulgarian dialects. Zid is masonry, but can mean wall as well. — fraxinus, Dec 16 '20 at 21:58
@user253751 It's Slovene actually, but that's close enough :) — jgosar, Dec 17 '20 at 6:21

ovs · Accepted Answer · 2020-12-16 22:53:45Z

05AB1E, 54 52 bytes

Thanks to Kevin Cruijssen for -2 bytes!

T"ÿ, 0, 0.
ÿ,
0.
"T.•ý‹¨ΣªßˆTδ}vØ#•.ª'x¡‡žMv=žMyÞ‡}?

Try it online!

Commented:

T                         # push 10
 "ÿ, 0, 0.\nÿ,\n0.\n"     # push string literal "10, 0, 0.\n10,\n0.\n"
  T                       # push 10 again
   .•ý‹¨ΣªßˆTδ}vØ#•       # push compressed string "priletela xmuha na zid"
    .ª                    # sentence case => "Priletela xmuha na zid"
      ‛x¡                 # split on 'x'  => ["Priletela ", "muha na zid"]
         ‡                # replace every digit of 10 with the corresponding list entry in the string literal
                          # this is the first verse
          žM              # push the vowels "aeiou"
            v      }      # for y in vowels:
             =            #   print the last verse without removing it from the stack
              žM          #   push the vowels
                yÞ        #   the infinite list of the vowel y
                  ‡       #   replace every vowel with y
                    ?     # print the last verse without a trailing newline

more obfuscated and a lot slower 52-byter:

•nöðrb•ØTz… ,
«ÅвJT.•ý‹¨ΣªßˆTδ}vØ#•.ª'x¡‡žMv=žMyÞ‡}?

Don’t try it online!

•nöðrb•              # push compressed integer 211262272027
       Ø             # push the 211262272028th prime 5996494318979 (slow)
        Tz           # push 1/10
          … ,\n      # push string " ,\n"
               «     # concatenate to "0.1 ,\n"
                Åв   # convert the prime into that custom base
                  J  # join from list of chars into a string
                     # this generates the same string as T"ÿ, 0, 0.\nÿ,\n0.\n" above

Or better: change it to = instead, and then »¨ to ? for -2: 52 bytes — Kevin Cruijssen, Dec 16 '20 at 9:23
@KevinCruijssen thanks a lot. I actually used manual printing before, but didn't think about printing in the next iteration. — ovs, Dec 16 '20 at 9:34
@GregMartin thanks a lot, I just asked WolframAlpha and concluded from the result that it would be too much effort to compute the number, but I guess I was wrong :). The goal of the second program is to generate the verse layout string in the most convoluted way at the same byte count, and this adds another step to it ;) — ovs, Dec 16 '20 at 22:57

vrintle · Accepted Answer · 2020-12-16 13:39:09Z

8

Ruby 2.7, 110 105 104 bytes

Saved five bytes, thanks to Dingus!
Saved a byte using Arnauld's finding.

puts z="#{y="Priletela #{$x='muha na zid'},"} #$x, #$x.
#{y}
#$x.","aeiou".chars.map{z.gsub /[aeiu]/,_1}

Try it online!

TIO uses an older version of Ruby, whereas in Ruby 2.7, we've numbered parameters, which saves two bytes.

edited Dec 16 '20 at 13:39

answered Dec 16 '20 at 7:25

vrintle

2,7306 silver badges33 bronze badges

\$\begingroup\$ @Dingus - Oh thanks! I didn't checked the rules of this challenge.. \$\endgroup\$ – vrintle Dec 16 '20 at 12:39
1

\$\begingroup\$ Credit to @Arnauld: you can save another byte by changing to /[aeiu]/. \$\endgroup\$ – Dingus Dec 16 '20 at 12:51

add a comment |

Arnauld · Accepted Answer · 2020-12-16 15:28:14Z

JavaScript (ES6), 121 120 bytes

_=>["$&",..."aeiou"].map(v=>`${p=`Priletela ${q='muha na zid'},`} ${q}, ${q}.
${p}
${q}.`.replace(/[aeiu]/g,v)).join`

`

Try it online!

Commented

_ =>                            // anonymous function ignoring its input
 [                              //
    "$&",                       // 1st stanza: use "$&" to leave the vowels unchanged
    ..."aeiou"                  // next ones: force all vowels to "a", "e", ..., "u"
  ]                             //
  .map(v =>                     // for each replacement pattern v:
    `${                         //   build the stanza template
      p = `Priletela ${         //     by defining p = "Priletela muha na zid,"
        q = 'muha na zid'       //     and q = "muha na zid"
      },`                       //
    } ${q}, ${q}.\n${p}\n${q}.` //     and using them to build the other parts
    .replace(                   //   update the template:
      /[aeiu]/g,                //     replace each vowel ...
      v                         //     ... with the replacement pattern
                                //     NB: there's no "o" in the template
    )                           //   end of replace()
  ).join`\n\n`                  // join with two line-feeds

\$\begingroup\$ +1, Nice find that there is no o ;-) \$\endgroup\$ – vrintle Dec 16 '20 at 13:30 — vrintle, Dec 16 '20 at 13:30

Imanton1 · Accepted Answer · 2020-12-16 08:28:55Z

5

Wolfram Language (Mathematica), 146 134 bytes

w="muha na zid";a="Priletela ";s=""<>{a,w,", ",w,", ",w,".
",a,w,",
",w,"."};c=Characters@"aeiou";s<>(StringReplace["

"<>s,c->#]&/@c)

Try it online!

edited Dec 16 '20 at 8:28

answered Dec 16 '20 at 8:16

Imanton1

3581 silver badge4 bronze badges

add a comment |

xnor · Accepted Answer · 2020-12-16 15:53:50Z

5

Python 2, 122 bytes

s="Priletela muha na zid,"
v="aeiou_"
for x in v:
 w=s[10:-1]+".\n";print s,s[10:],w+s+"\n"+w
 for y in v:s=s.replace(y,x)

Try it online!

answered Dec 16 '20 at 15:53

xnor

127k21 gold badges236 silver badges565 bronze badges

add a comment |

Nahuel Fouilleul · Accepted Answer · 2020-12-17 06:04:51Z

5

Bash + sed, 98 bytes

sed -ney/{%/\\n,eiu/aaa,a/e,e/i,i/o,o/u}/\;p<<<"${x=Priletela ${y=muha na zid}}, $y, $y.%$x,%$y.%"

Try it online!

edited Dec 17 '20 at 6:04

answered Dec 16 '20 at 19:25

Nahuel Fouilleul

7,0871 gold badge6 silver badges15 bronze badges

add a comment |

xigoi · Accepted Answer · 2020-12-16 13:33:06Z

Jelly, 62 bytes

3,2µ“muha na zid”Wẋjị⁾ ¶ṭ”,Ɗ⁶;“!b^ṙzḳ“)»j)Y
ØẹµØẹW;y¢)¢W¤;j⁾¶¶

Try it online!

Explanation

3,2µ“muha na zid”Wẋjị⁾ ¶ṭ”,Ɗ⁶;“!b^ṙzḳ“)»j)Y   Auxiliary niladic link
3,2                                           [3, 2]
   µ                                     )    For each:
    “muha na zid”W                              ["muha na zid"]
                  ẋ                             Repeat that many times
                   j       Ɗ                    Join with:
                    ị⁾ ¶                          Index with the number into " \n"
                        ṭ”,                       Append that to ","
                            ⁶;                  Prepend a space
                              “!b^ṙzḳ“)»j       Join ["Priletela", "."] with this
                                          Y   Join with a newline

ØẹµØẹW;y¢)¢W¤;j⁾¶¶   Main niladic link
Øẹ                   "aeiou"
  µ      )           For each:
   ØẹW                 ["aeiou"]
      ;                Append the vowel
       y¢              Translate the result of the previous link with this table
          ¢W¤;       Prepend list with result of previous link
              j⁾¶¶   Join with double newlines

Galen Ivanov · Accepted Answer · 2020-12-16 08:13:16Z

2

Red, 150 bytes

e: rejoin[a:"Priletela "b:"muha na zid"c:", "b c b d:".^/"a b c"^/"b d]v:
charset w:"aeiou"foreach u w[print e parse e[any[change v u | skip]]]print e

Try it online!

answered Dec 16 '20 at 8:13

Galen Ivanov

18.2k3 gold badges17 silver badges56 bronze badges

add a comment |

jgosar · Accepted Answer · 2020-12-16 09:47:18Z

2

For a start, this is my attempt in Javascript:

JavaScript (Node.js), 184 bytes

a='aeiou'
x='muha na zid'
y='Priletela'
z=`${y} ${x}, ${x}, ${x}.\n${y} ${x},\n${x}.`
console.log([z].concat(a.split('').map(e=>z.replace(new RegExp('['+a+']', "g"), e))).join('\n\n'))

Try it online!

edited Dec 16 '20 at 9:47

answered Dec 16 '20 at 6:47

jgosar

3991 silver badge7 bronze badges

\$\begingroup\$ It needs a semicolon or a new line before console.log(). It does not compile as it is now. \$\endgroup\$ – axiac Dec 16 '20 at 9:41
\$\begingroup\$ Thanks @axiac, fixed it. \$\endgroup\$ – jgosar Dec 16 '20 at 9:47
\$\begingroup\$ You can save a lot of bytes by using /[aeiou]/g instead of new RegExp('['+a+']', "g"). \$\endgroup\$ – axiac Dec 16 '20 at 10:07
\$\begingroup\$ You can save 2+2 more bytes by squeezing the assignment of x and y into their first usage, like this: z=`${y='Priletela'} ${x='muha na zid'}, ${x}, ${x}.\n${y} ${x},\n${x}.` . \$\endgroup\$ – axiac Dec 16 '20 at 10:38

add a comment |

Jonathan Allan · Accepted Answer · 2020-12-17 00:04:24Z

2

Jelly, 58 bytes

^{I feel like ”u”aØẹe?ṙ1Øẹ,y could be golfed}

”u”aØẹe?ṙ1Øẹ,y
820Dṃ“!b^ṙzḳ“¢ʋỴM$ƊEⱮ/¥ɦ8»K€YF”.0,48¦ÇƬj⁾¶¶

Try it online!

answered Dec 17 '20 at 0:04

Jonathan Allan

78.9k5 gold badges56 silver badges224 bronze badges

add a comment |

Nahuel Fouilleul · Accepted Answer · 2020-12-17 05:57:45Z

2

Perl 5 (`-0777p`), 91 bytes

s//Priletela muha na zid/;/ /;$_.=", $', $'.
$_,
$'.
";for$i(a,e,i,o,u){say;s/[aeiou]/$i/g}

Try it online!

edited Dec 17 '20 at 5:57

answered Dec 16 '20 at 22:06

Nahuel Fouilleul

7,0871 gold badge6 silver badges15 bronze badges

add a comment |

PkmnQ · Accepted Answer · 2020-12-30 03:36:40Z

2

05AB1E, 84 bytes

.•bKÜ2TÐhrŒ°•'b.•[÷‚rµ₃•™:'c.•AΩJεмF‚•:…fgj…,.
‡DžMŽh’‡1'a‡D'a'e‡D'e'i‡D'i'o‡D'o'u‡»

Try it online!

edited Dec 30 '20 at 3:36

answered Dec 16 '20 at 7:59

PkmnQ

2,2555 silver badges19 bronze badges

add a comment |

axiac · Accepted Answer · 2020-12-16 10:43:56Z

PHP 8, 170 166 bytes

This is the JavaScript solution of @jgosar rewritten in PHP and improved.

$a='aeiou';$x='muha na zid';$y="Priletela $x,";echo implode("

",array_merge([$z="$y $x, $x.
$y
$x."],array_map(fn($e)=>preg_replace("/[$a]/",$e,$z),str_split($a))));

The code is not wrapped on multiple lines for readability but because this way a real newline character embedded in a string uses only one byte vs. two bytes used by the escape sequence \n.

Try it online!

Neil · Accepted Answer · 2020-12-16 11:20:59Z

Retina, 70 bytes


Pm, m, m.¶Pm,¶m.¶
P
Priletela 
m
muha na zid
~(K`vaeiou
L$`.
\T`vo`$&

Try it online! Explanation:


Pm, m, m.¶Pm,¶m.¶

Insert placeholders for the first verse.

P
Priletela 
m
muha na zid

Expand the placeholders.

~(`

Compose and execute a Retina script.

K`vaeiou

Create a list of transliteration targets.

L$`.
\T`vo`$&

Expand each target into a transliteration command that transliterates vowels into the given target and outputs the verse after the transliteration. The resulting script is as follows:

\T`vo`v
\T`vo`a
\T`vo`e
\T`vo`i
\T`vo`o
\T`vo`u

Here the v represents the vowels aeiou. The o on its own usually means "insert the other set", however this has no effect on the transliteration as the vowels are already present. The exception is the T`vo`o command, where the presence of o on both sides causes it to be treated as a literal, although this does not affect the expansion either.

axiac · Accepted Answer · 2020-12-16 10:46:14Z

PHP 7.4, 164 bytes

This is the same as my solution for PHP 8 but it does not surround the value of $a (aeiou) in apostrophes or quotes and saves 2 bytes. This exploits the fact that before PHP 8, the undefined constants were reported as warning and converted to strings. This behaviour changed in PHP 8, they are now reported as errors and the code does not work any more.

$a=aeiou;$x='muha na zid';$y="Priletela $x,";echo implode("

",array_merge([$z="$y $x, $x.
$y
$x."],array_map(fn($e)=>preg_replace("/[$a]/",$e,$z),str_split($a))));

In order to hide the warnings, the option -d error_reporting=0 needs to be added to the command line (or set in php.ini).

Stack Exchange Network

current community

your communities

more stack exchange communities

Help me compress this song

15 Answers 15

05AB1E, 54 52 bytes

Ruby 2.7, 110 105 104 bytes

JavaScript (ES6), 121 120 bytes

Commented

Wolfram Language (Mathematica), 146 134 bytes

Python 2, 122 bytes

Bash + sed, 98 bytes

Jelly, 62 bytes

Explanation

Red, 150 bytes

JavaScript (Node.js), 184 bytes

Jelly, 58 bytes

Perl 5 (`-0777p`), 91 bytes

05AB1E, 84 bytes

PHP 8, 170 166 bytes

Retina, 70 bytes

PHP 7.4, 164 bytes

Your Answer

Not the answer you're looking for? Browse other questions tagged code-golf string kolmogorov-complexity or ask your own question.

Hot Network Questions

Help me compress this song

15 Answers 15

05AB1E, 54 52 bytes

Ruby 2.7, 110 105 104 bytes

JavaScript (ES6), 121 120 bytes

Commented

Wolfram Language (Mathematica), 146 134 bytes

Python 2, 122 bytes

Bash + sed, 98 bytes

Jelly, 62 bytes

Explanation

Red, 150 bytes

JavaScript (Node.js), 184 bytes

Jelly, 58 bytes

Perl 5 (-0777p), 91 bytes

05AB1E, 84 bytes

PHP 8, 170 166 bytes

Retina, 70 bytes

PHP 7.4, 164 bytes

Your Answer

Sign up or log in

Post as a guest

Not the answer you're looking for? Browse other questions tagged code-golf string kolmogorov-complexity or ask your own question.

Related

Hot Network Questions

Perl 5 (`-0777p`), 91 bytes