Роу, грести, грести свою лодку

26

Все, вероятно, знакомы со следующей песней , которая является музыкальным туром :

Песня.

Задний план

Меньше людей могут вспомнить, как они пытались спеть версию из четырех человек с несколькими друзьями и потерпели неудачу. Смещение текста песни с разными гармоничными высотами известно как пение «раунда», и это то, что мы сегодня должны моделировать, используя статический вывод. Вот пример кого-то, кто фактически исполняет произведение (ссылка на аудио / видео будет иметь звук) .

Соревнование

Эта задача состоит в том, чтобы вывести текст следующим образом:

Row, row, row your boat,           |-----------------------------------|-----------------------------------|-----------------------------------
Gently down the stream.            |Row, row, row your boat,           |-----------------------------------|-----------------------------------
Merrily, merrily, merrily, merrily,|Gently down the stream.            |Row, row, row your boat,           |-----------------------------------
Life is but a dream.               |Merrily, merrily, merrily, merrily,|Gently down the stream.            |Row, row, row your boat,           
-----------------------------------|Life is but a dream.               |Merrily, merrily, merrily, merrily,|Gently down the stream.            
-----------------------------------|-----------------------------------|Life is but a dream.               |Merrily, merrily, merrily, merrily,
-----------------------------------|-----------------------------------|-----------------------------------|Life is but a dream.

правила

  • Конечный пробел допустим, но не обязателен, включая новые строки.
  • Да, дефисы и столбцы являются частью требуемого вывода.
  • Запятые, точки, заглавные буквы и все синтаксические элементы, связанные с грамматикой, обязательны.

Это код-гольф , победителем является код с самым низким количеством байтов без использования стандартных лазеек.

code-golf kolmogorov-complexity Урна волшебного осьминога
источник
2
Я просто хочу сказать, я очень наслаждаюсь вашими большими колмогоровскими сложностями и вызовами ascii-art ! И эта клавиатура, и такая настоящая клавиатура были чрезвычайно интересны для написания решений. :)
DJMcMayhem
2
@DJMcMayhem С тех пор, как я нашла этот сайт, я случайно сталкиваюсь с трудностями в своей повседневной жизни и держу небольшой блокнот для идей, которые у меня появляются, я буду стараться делать забавные!
Волшебная Урна Осьминога

Ответы:

12

05AB1E , 80 77 байтов

“¢ã,¢ã,¢ã€žžÄ,““èî„‹€€šæ.“"merrily, "4ר“‚쀈€³€…žâ.“'-35×Ð)€ª.B3FDÁ})øvy'|ý,

Попробуйте онлайн!

Работа в процессе.

Emigna
источник
Кстати, меня не впечатлил словарь, в котором не было "05AB1E". Это сделало практически невозможным эффективно петь 05AB1E с днем ​​рождения. Классный ответ, хотя, надеялся увидеть словарь на основе словаря 05AB1E, ха-ха. Также DJMcMayhem правильно, это так.
Волшебная Урна Осьминога
Подожди, что это ª? Неважно, приговор, блестящий.
Волшебная Урна Осьминога
@carusocomputing: Да, я только недавно заметил, что он существует. Нужно было это несколько раз в прошлом: P
Emigna
vyможно ʒсохранить байт.
Кевин Круйссен
10

V , 139 , 128 байт

iLife is but a dream ±µ |4amerrily, x7b~A|Gently down the stream.±² |3arow, X5b~Ayour boat,±± |3I³µ-|3AòÄó.û-}|ò5DÎ4f|C|

Однострочник! (sortof: P)

Попробуйте онлайн!

HexDump:

00000000: 694c 6966 6520 6973 2062 7574 2061 2064  iLife is but a d
00000010: 7265 616d 20b1 b520 7c1b 3461 6d65 7272  ream .. |.4amerr
00000020: 696c 792c 201b 7837 627e 417c 4765 6e74  ily, .x7b~A|Gent
00000030: 6c79 2064 6f77 6e20 7468 6520 7374 7265  ly down the stre
00000040: 616d 2eb1 b220 7c1b 3361 726f 772c 201b  am... |.3arow, .
00000050: 5835 627e 4179 6f75 7220 626f 6174 2cb1  X5b~Ayour boat,.
00000060: b120 7c1b 3349 b3b5 2d7c 1b33 4101 1bf2  . |.3I..-|.3A...
00000070: c4f3 2efb 2d7d 7cf2 3544 ce34 667c 437c  ....-}|.5D.4f|C|

Получу ли я бонусные баллы за приземление 2^7?

Это заняло некоторое время, чтобы выяснить. Я надеюсь, что смогу сыграть в тонны, как мой ответ ASCII на клавиатуре, но я не уверен. Посмотрим. Это очень похожие задачи (и оба очень веселые: D)

Первоначально я попробовал это (180):

3irow, ch your boat,±± ||"rCLife is but a dream.±µ ||"lD4imerrily, r||"mCGently down the stream.±² ||"gC³µ-|B"dCR³D
GRDD
MGRD
LMGR
DLMG
DDLM
³DLÍR/r
ÍG/g
ÍM/m
ÍL/l
ÍD/d

Попробуйте онлайн!

Который вставляет это:

RDDD
GRDD
MGRD
LMGR
DLMG
DDLM
DDDL

а затем делает замену, чтобы расширить его. Но строить его в стиле ascii-art намного короче (и веселее, TBH)

DJMcMayhem
источник
Вы получаете 0^(2^7)бонусные баллы за посадку на 2^7хаха. Интересная первая мысль, хотя о версии 180.
Волшебная Урна Осьминога
1
@carusocomputing Aww, почему бы не дать ему (2 ^ 7) / 0 бонусных баллов?
Мэтью Ро,
6

Пакет, 292 288 275 байт

@set d=-------
@set "d=%d%%d%%d%%d%%d%^|
@set "m=M_ m_ m_ m_^|
@set "s=           ^|
@set "s=Life is but a dream.    %s%%m:_=errily,%Gently down the stream. %s%Row, row, row your boat,%s%%d%%d%%d%"
@for /l %%i in (1,1,6)do @call:c
:c
@echo %s:~111,146%
@set "s=%d%%s%

Изменить: 13 байтов сохранены, переписав код, чтобы использовать версию трюк подстроки, которую я использовал в своем ответе Retina. Для удобства я могу выполнить цикл шесть раз, а затем выполнить седьмую итерацию тела цикла, что означает, что цитирование, необходимое для вывода |s, не становится слишком обременительным, однако я должен быть осторожен, чтобы учитывать ^s при выборе подстроки ,

Нил
источник
6

Python 3, 252 235 208 206 205 байт

Хорошо хорошо. Вот менее скучный ответ:

w=' '*11
t=["Row, row, row your boat,"+w,"Gently down the stream. "+w,"Merrily,"+" merrily,"*3,"Life is but a dream.    "+w,*['-'*35]*3]
for a in zip(*[t[z:]+t[:z]for z in range(7,3,-1)]):print(*a,sep='|')

Старый ответ, 252 байта:

Скучный ответ, а другой ответ Python короче, но я подумал, что попробую, если этот подход будет короче. Python 3, несмотря на экономию в байтах / строках 2-3, отличается тем, что и то gzipи base64другое в Python 2 более хреновое.

from base64 import*
from gzip import*
print(decompress(b85decode('ABzY8Fgf~I0{;ujFV|5hf)Waq`K3h)N%@H-ItmC-qe~c2OAVKMYF<fBr9w)6d7eT^Myf(_Nl|KIuATz2dxGfaW-i~<qN2>4N*#q<oQxVex|z!-Gc8pivsfXiv_v6MAqB%CkU6w=GZ!&|OJj#}Q7chW$(>wu%p_Rd3;?AKH=M}>000')).decode())
L3viathan
источник
25% от первоначальной длины, довольно внушительно, но вы могли бы быть намного умнее и сжать только первую итерацию, разбить на новые строки и выполнить 4 смены. Это, вероятно, побьет другую реализацию python. Мысли, чтобы рассмотреть. Я был не один, чтобы -1, не знаю, кто это сделал.
Волшебная урна осьминога
@carusocomputing Правда. Меня действительно интересовало, насколько хорошо работает обычное сжатие для такой сильно избыточной задачи с фиксированным выводом. Тем не менее, мой ответ был преобразован в более короткий и менее тупой.
L3viathan
Вы также можете редактировать обратно в сжатый? Мне лично этот подход тоже показался интересным. А именно, насколько низко подсчитано число байтов с помощью простого gzip. Он должен использовать Хаффмана или что-то ... +1 независимо от усилий.
Волшебная Урна Осьминога
1
@carusocomputing Я добавлю это внизу, я думаю. Кроме того, я думаю, что это не часть Хаффмана из Deflate, которая делает это относительно большим, а часть LZ.
L3viathan
1
@JonathanAllan Действительно, я пропустил это. Исправлено, потерян байт.
L3viathan
5

PowerShell , 224 207 202 байта

$a=' '*11;0..6|%{((0..4+4+4)[($_,($_+=6),--$_,--$_|%{$_%7})]|%{("Row, row, row your boat,$a","Gently down the stream.$a ","Merrily,$(' merrily,'*3)","Life is but a dream.$a    ",('-'*35))[$_]})-join'|'}

Попробуйте онлайн! (вывод оборачивается, если ваш экран недостаточно широк)

Боже мой, эта штука генерации массива ужасна, но она сэкономила 17 байт, так что ...

0..6|%{((0..4+4+4)[($_,($_+=6),--$_,--$_|%{$_%7})]

Цикл от 0до 6. Каждую итерацию мы индексируем в массив (0,1,2,3,4,4,4). Индексирование основывается на текущей цифре, текущей цифре +6, той -1, а затем той -1 . Каждый из них затем подается через цикл, где мы по модулю %7. Например, если мы находимся 0во внешнем 0..6цикле, то это будет 0,6,5,4, тогда каждый %7, так 0,6,5,4. Это индексируется в (0,1,2,3,4,4,4)массиве, поэтому вывод 0,4,4,4. Для ввода 1мы получаем 1,7,6,5то, 1,0,6,5что дает 1,0,4,4. И так далее. (все было бы намного проще, если бы у нас была .clampфункция)

Это одноразовый плевок в петлю |%{}. На каждой итерации мы индексируем правильное место в массиве song-lyrics-array и оставляем эту строку в конвейере. Эти строки затем -joinредактируются вместе с |форматированием строки вывода. Эти строки остаются в конвейере и вывод неявный.

Сохранено несколько байтов благодаря Value Ink.

AdmBorkBork
источник
Учитывая, что вы уже $aсохранили 11 пробелов, вы можете изменить четвертую строку на $aплюс 4 пробела вместо $(' '*15)-3 байта, да?
Value Ink
4

JavaScript (ES8), 285 256 240 231 229 217 214 213 211 210 байт

_=>"0444104421043210432144324443".replace(/./g,(x,y)=>a[x].padEnd(35)+`
|||`[++y&3],a=["Row, row, row your boat,","Gently down the stream.","Merrily,"+(m=" merrily,")+m+m,"Life is but a dream.","-".repeat(35)])

Спас несколько байтов, позаимствовав трюк из ответа Арно

Попытайся

f=

_=>"0444104421043210432144324443".replace(/./g,(x,y)=>a[x].padEnd(35)+`
|||`[++y&3],a=["Row, row, row your boat,","Gently down the stream.","Merrily,"+(m=" merrily,")+m+m,"Life is but a dream.","-".repeat(35)])

o.innerText=f()
<pre id=o>
Развернуть фрагмент

мохнатый
источник
1
'0444,1044,2104,3210,4321,4432,4443'.split, .mapэкономит 10 байт. Кроме того, padEndне является частью ES6 или даже ES7.
Нил
Ой, значит обновить это до ES8 - спасибо, @Neil. И спасибо за совет, но я находился в процессе работы над другим решением, которое позволило мне сэкономить 12 байт.
Лохматый
4

PHP, 191 байт

for(;$n<7;$n++)for($m=0;$m<4;)echo $m?"|":"\n",str_pad($i=["Row, row, row your boat,","Gently down the stream.",M.($t="errily,")." m$t m$t m$t","Life is but a dream."][$n-$m++],35," -"[!$i]);

Попробуйте онлайн!

расширенный

for(;$n<7;$n++)
  for($m=0;$m<4;)
    echo $m?"|":"\n"
     ,str_pad($i=["Row, row, row your boat,","Gently down the stream."
       ,M.($t="errily,")." m$t m$t m$t","Life is but a dream."][$n-$m++]
       ,35," -"[!$i]);
Йорг Хюльсерманн
источник
Вы можете сохранить персонажа, убрав скобки с эха (это не функция)
Робби Аверилл,
@RobbieAverill Я знаю, но в скобках указан троичный оператор, и я могу удалить его только в том случае, если я заменяю точку через запятую
Jörg Hülsermann
3

Python 2 , 199 байт

w=' '
s=['-'*35]
t=['Row, row, row your boat,'+w*11,'Gently down the stream.'+w*12,'Merrily,'+' merrily,'*3,'Life is but a dream.'+w*15]
print'\n'.join(map('|'.join,zip(t+s*3,s+t+s+s,s+s+t+s,s*3+t)))

Попробуйте онлайн!

Спасибо @mathjunkie за сохранение 14 байтов

овс
источник
'Merrily, merrily, merrily, merrily,'может быть ('merrily, '*4).capitalize()прав? Или это не Питон?
Волшебная урна осьминога
2
Или даже короче,'Merrily,'+' merrily,'*3
математик наркоман
2

CJam , 128 122 байта

"Row, row, row your boat,""gently down the stream."'M" merrily,"4*2>+"Life is but a dream."'-35*__]{35Se]}%a4*4,.m>z'|f*N*

Попробуйте онлайн!

объяснение

"Row, row, row your boat,"  e# Push this string.
"gently down the stream."   e# Push this string.
'M                          e# Push the character 'M'.
" merrily,"4*               e# Push the string " merrily, merrily, merrily, merrily,".
2>+                         e# Remove the first two letters of it, and append it to 'M',
                            e#   fixing the capitalization.
"Life is but a dream."      e# Push this string.
'-35*__                     e# Push a string containing 35 hyphens and make two copies of it.
]                           e# Collect all these strings in an array.
{35Se]}%                    e# Pad each of them to length 35 by adding spaces to the right.
a4*                         e# Repeat the array 4 times.
4,                          e# The range [0 1 2 3].
.m>                         e# Rotate each subarray of strings rightward by the corresponding
                            e#   number in the range.
z                           e# Transpose the array.
'|f*                        e# Join the strings on each row with '|' characters.
N*                          e# Join the rows together with newlines.
Бизнес Кот
источник
2

СОГЛ , 83 байта

┌׀0ρMVxDrž|⁷ΨB≈π93|↑D~Νķ‰¤t╤▼ΣΗ⁶⅔¾№⁷Ζ÷│²╥Ν9°‘-”)0ΔH«‘4*jŗ"ΣΨ¬¹‘4*;+7{’⁄{»}⁽:’∞n1wpX

Первая часть ┌׀0ρMVxDrž|⁷ΨB≈π93|↑D~Νķ‰¤t╤▼ΣΗ⁶⅔¾№⁷Ζ÷│²╥Ν9°‘представляет собой сжатую строку, в результате чего

`life is but a dream.               |-|gently down the stream.            |row, row, row your boat,           |`

Эти строки перевернуты (так как они печатают их построчно), с «веселой» частью, вырезанной для замены в программе.
Остальная часть программы:

...‘                                        Push the compressed string
      )0ΔH«‘                                push "merrily, "
            4*                              repeat it 4 times
              j                             take the last letter off
    -”         ŗ                            replace "-" with the merrily line
                "ΣΨ¬¹‘                      push 35 dashes with an appending "|"
                      4*                    repeat it 4 times
                        ;+                  add inverted ("---|---..."+"Life is but a dream  ...")
                                            The resulting string of above is "-----------------------------------|-----------------------------------|-----------------------------------|-----------------------------------|life is but a dream.               |merrily, merrily, merrily, merrily,|gently down the stream.            |row, row, row your boat,           |"
                          7{                repeat 7 times
                            ’⁄{»}            rotate right 35 times
                                 ⁽           uppercase the 1st letter
                                  :          duplicate
                                   ’∞n       split into parts of length 135
                                      1w     get the 1st one
                                        p    output that
                                         X   delete the splat array
dzaima
источник
2

/// , 200 байт

/_/     //&/errily,//*/ m&//+/-------//@/Row, row, row your boat, __//#/Gently down the stream.  __//$/M&***//%/Life is but a dream.___//~/+++++/@|~|~|~
#|@|~|~
$|#|@|~
%|$|#|@
~|%|$|#
~|~|%|$
~|~|~|%

Попробуйте онлайн!

Простой, использует общие случаи в качестве замены.

Товарищ Спаркл Пони
источник
2

PHP, 179 байт:

for($m="errily,";$i<28;)echo str_pad($s=["Row, row, row your boat,","Gently down the stream.","M$m m$m m$m m$m","Life is but a dream."][($i>>2)-$i%4],35," -"[!$s]),"
|||"[++$i%4];

ungolfed

for($i=0;$i<28;$i++)
{
    $x=$i%4;
    $y=$i>>2;

    $s=["Row, row, row your boat,",
        "Gently down the stream.",
        M.($m="errily,")." m$m m$m m$m",
        "Life is but a dream."
    ][$y-$x];

    $pad_string = $s ? " ":"-";
    $postfix = $x<3 ? "|" : "\n";
    echo str_pad($s,35,$pad_string),$postfix;
}
Titus
источник
2

JavaScript (ECMAScript 2017), 191 187 182 байта

Сохранено 3 байта благодаря Shaggy

f=(i=27,s=['Life is but a dream.','Merrily,'+(m=' merrily,')+m+m,'Gently down the stream.','Row, row, row your boat,'][(i>>2)-i%4]||'')=>i?s.padEnd(35,' -'[+!s])+`
|||`[i&3]+f(i-1):s

o.innerHTML = f();
<pre id=o style="font-size:10px"></pre>
Развернуть фрагмент

Arnauld
источник
Я думаю, что 'Merrily,'+' merrily,'.repeat(3)сохраняет байт.
Нил
О, и я забыл упомянуть, что padEndне в ES7, не говоря уже о ES6.
Нил
1
M${s='errily, '}m${s}m${s}mвместо M${s='errily,'} m${s} m${s} mсохранения 2 байта
Лука
1
Вы можете сохранить 3 байта с помощью "Merrily,"+(s=" merrily,")+s+s.
Лохматый
1
@ Шэгги Ах, да. Это кажется лучшим вариантом. Благодарность!
Arnauld
2

Microsoft Sql Server, 421 байт

with v as(select left(s+space(35),35)s,n from(values('Row, row, row your boat,',1),('Gently down the stream.',2),('Merrily, merrily, merrily, merrily,',3),('Life is but a dream.',4))t(s,n))select isnull(v.s,s.s)+'|'+isnull(b.s,s.s)+'|'+isnull(c.s,s.s)+'|'+isnull(d.s,s.s)from v full join v b on v.n=b.n+1 full join v c on b.n=c.n+1 full join v d on c.n=d.n+1 cross apply(select replicate('-',35)s)s order by isnull(v.n,9)

Проверьте это онлайн

Андрей Одегов
источник
Я люблю это. База данных это мое сообщение!
Захиро Мор,
2

C (GCC), 231 230 байт

-1 байт, благодаря floorcat!

#define m"errily, "
char s[7][35]={"Life is but a dream.","M"m"m"m"m"m"m"m,"Gently down the stream.","Row, row, row your boat,"};f(l,c){memset(s[4],45,'k');for(l=7;l--;)for(c=0;c<4;)printf("%-35.35s%c",s[(4+l+c++)%7],"|||\n"[c]);}

Довольно просто. Сначала он строит массив из 7 строк, часть с помощью макроса, чтобы отделить «веселую» часть, затем строки тире заполняются символом a memset. Затем строки печатаются с соответствующим смещением и разделителями.

Попробуйте онлайн!

Quentin
источник
@ceilingcat спасибо!
Квентин
1

MATLAB, 280 байт

a='errily,';
z={'Row, row, row your boat,';'Gently down the stream.';['M',a,' m',a,' m',a,' m',a];'Life is but a dream.'};
z{5}(1:35)='-';
y=5*ones(7,4);
for j=1:4;z{j}(end+1:35)=' ';y(j:j+3,j)=(1:4)';end
x=z(y);
for j=1:7;fprintf('%s|%s|%s|%s\n',x{j,1},x{j,2},x{j,3},x{j,4});end

Индексация массива ячеек довольно дорогая, поэтому кажется, что проще всего отбросить несколько байтов (если это возможно).

jerj
источник
Добро пожаловать на сайт!
DJMcMayhem
1

Сетчатка , 153 150 байт


<-|>Life is but a dream.15|M!< m!>|Gently down the stream.12|Row, row, row your boat,11<|->
<(.*?)>
$1$1$1
!
errily,
-
35$*-
\d+
$* 
r!&`.{71}\|.{71}

Попробуйте онлайн!

Я попробовал произвольное кодирование по длине прогона, но $1$*$2не могу сделать то, что хочу, и повторяющиеся строки оказались слишком хитрыми. Редактировать: 2 байта сохранены путем кодирования errily,и 1 байт путем удаления ненужных ^.

Нил
источник
1

Python 2, 225 байт

w=[["-"*35]*7for _ in[0]*4]
for i in [0]*4:w[i][i:i+4]=[a.ljust(35)for a in["Row, row, row your boat,","Gently down the stream.","Merrily,"+" merrily,"*3,"Life is but a dream."]]
print "\n".join(["|".join(i)for i in zip(*w)])

Попробуйте онлайн!

Нил
источник
1

Perl 5 , 215 байт

$m='merrily,';$s=' 'x11;$l='-'x35;
@t=@s=("Row, row, row your boat,$s","Gently down the stream. $s",
       "\u$m $m $m $m","Life is but a dream.    $s",$l,$l,$l);
map{$i--;map$t[$_].="|".$s[$i++%7],0..6}1..3;print"$_\n"for@t

Попробуйте онлайн!

Кжетил С.
источник
1

Swift , 416 406 405 380 372 307 байт

var f=String.init(repeating:count:);_={[[0,4,4,4],[1,0,4,4],[2,1,0,4],[3,2,1,0],[4,3,2,1],[4,4,3,2],[4,4,4,3]].forEach{print($0.map{["Row, row, row your boat,"+f(" ",11),"Gently down the stream."+f(" ",12),"Merrily,"+f(" merrily,",3),"Life is but a dream."+f(" ",15),f("-",35)][$0]}.joined(separator:"|"))}}

Вы можете попробовать это здесь .

Благодаря @Mr. Xcoder для экономии мне 65 байт!

Калеб Клеветер
источник
1
Приятно видеть быстрый ответ!
сера
1
Вы можете сделать его короче, заменив объявление fна следующее:, var f=String.init(repeating:count:)что экономит тонну байтов: 30
Mr. Xcoder
1
Кроме того, в песочнице вы не должны print(o()), вы должны просто позвонить, o()потому что у вас есть printоператор внутри, который дает ()в конце вывода
Mr. Xcoder
1
Также удалите ненужные пробелы. Это сэкономит много байтов. Я прокомментирую улучшенную версию.
г-н Xcoder
1
Вот улучшенная версия, 309 байт. Я думаю, это на 63 байта короче, и его можно сыграть в гольф
Mr. Xcoder
1

T-SQL, 296 277 276 байт

PRINT REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE('1|0|0|0
2|1|0|0
3|2|1|0
4|3|2|1
0|4|3|2
0|0|4|3
0|0|0|4',0,REPLICATE('-',35))
        ,1,'Row, row, row your boat,6')
        ,2,'Gently down the stream. 6')
        ,3,'M5 m5 m5 m5')
        ,4,'Life is but a dream.    6')
        ,5,'errily,')
        ,6,SPACE(11))

Разрывы строк в начале являются частью исходной строки, разрывы строк вблизи конца предназначены только для отображения и не учитываются в общем количестве байтов.

В значительной степени вдохновлен ответом Конрада Спаркли Пони . Иная техника, чем SQL-ответ Андрея Одегова .

Довольно простая мульти-замена, но есть несколько вещей, которые помогают экономить байты:

  • SQL допускает разрывы строк в исходной строке
  • Использование цифр вместо символов позволяет исключить целую кучу одинарных кавычек
  • Вложенные замены (5 и 6), сэкономьте мне еще больше байтов (спасибо, @ t-clausen.dk)

Если бы я только мог REPLACEвсе REPLACEs с чем - то короче. Хм ....

BradC
источник
1
Если вы ЗАМЕНИТЕ пробел 11,12,15 собственным методом, вы можете сохранить 1 байт
t-clausen.dk
1

Japt -R , 99 95 94 92 90 89 87 байт

R³i`Life  ¿t a Ým.
M{34î`Îk, m`}
Gt§ ܵ e Ðpam.
Row, w, w yr ¾,`ú)·ú-
£éY Ťq|

Попытайся

R³i`L...{34î`...`}...,`ú)·ú-
R                                :Newline
 ³                               :Repeat 3 times
  i                              :Prepend
   `                             :  Decompress
    L...                         :    "Life is but a dream.\nM"
        {                        :    Interpolate
         34î                     :      Repeat & slice to length 34
            `...`                :        The compressed string "errily, m"
                 }               :    End interpolation
                  ...,           :    "\nGently down the stream.\nRow, row, row your boat,"
                      `          :  End decompression
                       ú         :  Right pad each line with spaces to the length of the longest
                        )        :End prepend
                         ·       :Split on newlines
                          ú-     :Right pad each element with "-" to the length of the longest
£éY Ťq|                         :Assign the above to U
£                                :Map each element at 0-based index Y
 éY                              :  Rotate U right Y times
    Å                            :  Slice off the first element
     ¤                           :  Slice off the first two elements
      q|                         :  Join with "|"
                                 :Implicit output, joined with newlines
мохнатый
источник
0

Рубин, 162 байта

7.times{|i|puts (~i..~i+3).map{|j|[*[?-*35]*3,"Life is but a dream.",?M+['errily,']*4*" m","Gently down the stream.","Row, row, row your boat,"][j].ljust(35)}*?|}
Значение чернил
источник
0

Java, 295 байт / 272 259 байт

с переводом строки через каждые 4 столбца (295b)

void r(){String m=" merrily,",t="-------",s="     ",e=t+t+t+t+t;String[]v={"Gently down the stream.  "+s+s, "Merrily,"+m+m+m, "Life is but a dream."+s+s+s, e, e, e, "Row, row, row your boat, "+s+s};for(int i=0;i<7;i++){for(int j=6+i;j>2+i;j--)System.out.print(v[j%7]+'|');System.out.println();}}

Попробуйте онлайн

без новой строки (259b):

void r(){String m=" merrily,",t="-------",s="     ",e=t+t+t+t+t;String[]v={"Gently down the stream.  "+s+s, "Merrily,"+m+m+m, "Life is but a dream."+s+s+s, e, e, e, "Row, row, row your boat, "+s+s};for(int i=0;i<28;i++)System.out.print(v[(6-i%4+i/4)%7]+'|');}
  • Сгущенный 2 для петель в 1

Попробуйте онлайн

Targz
источник
0

Japt , 158 157 байт

='|L=`Row, žw, žw yŒr ¾…,`+Sp11 +UV=`Gt§ ܵ e Ðpam.`+S³²²+UW=`M€Îk,`+` ´rÎk,`³+UJ=W+VX=`Life ‰ ¿t a Ý„m.`+Sp15 +UZ='-p35 +U[LZ³RVLZ²RJLZRXJLRZXJRZ²XWRZ³X]q

Попробуйте онлайн!

Оливер
источник
0

Рунические чары , 292 байта

B͍"-"'#*"|"3s
"Row, row, row your boat,"b" "S*q"|"3sB͍>01B10B3*1-akr@>12B01B10B2*1-akr@>13B12B01B10B1-akr@>14B13B12B01B1-akr@>10B3*14B1-r0[10B2*14B13B1-akr0[10B14B13B12B1-akr]]@
B͍"Gently down the stream."c" "S*q"|"3s
B͍"Merrily,"3" merrily,"S*q"|"3s
B͍"Life is but a dream."f" "S*q"|"3s

Попробуйте онлайн!

Обычно я не решаю задачи по колмогоровской сложности , но с макетом я мог работать без особых проблем. У Runic нет хороших способов сжать произвольные строки, поэтому все, с чем мы должны работать, это повторяющиеся части.

Объяснение:

Сжатие немного:

B͍"-"'#*"|"3s
B͍"Row, row, row your boat,"b" "S*q"|"3s
B͍"Gently down the stream."c" "S*q"|"3s
B͍"Merrily,"3" merrily,"S*q"|"3s
B͍"Life is but a dream."f" "S*q"|"3s
>11B10B3*1-akr@
>12B11B10B2*1-akr@
>13B12B11B10B1-akr@
>14B13B12B11B1-akr@
>10B3*14B1-r0[10B2*14B13B1-akr0[10B14B13B12B1-akr]]@

Первые 5 строк действуют как функции для построения каждой части песни (где первая строка генерирует 35 -для разделителя, используя десятичное значение, #чтобы сохранить 2 байта больше 3X5+). Инструкция возврата находится в начале строки, чтобы гарантировать, что все IP-адреса, которые входят в функцию, также покинут функцию после того же числа циклов, чтобы избежать слияния IP-адресов (что приводит к отсутствующим строкам вывода), поскольку программы имеют прямоугольные и пустые ячейки. неявные.

Следующие четыре строки отвечают за печать первых четырех строк вывода

Пятая строка затем печатает последние 3 строки вывода. Из-за того, что всем трем линиям нужно начинать хотя бы с одного разделителя-строфа, невозможно использовать 3 отдельных IP-адреса (так как им потребуются задержки, чтобы избежать слияния). >, y, @, И новая строка стоить больше байт (4) , чем 0[...](3 байта) , где ...это произвольные инструкции (т.е. другой линии. Выход).

Наоборот, для замены >и @использования одного IP-адреса требуется больше байтов.

Наконец, объединение всех пяти строк входа во 2-ю строку экономит 5 байтов новых строк. Нам просто нужно убедиться, что B͍инструкция возврата ранчо сначала перемещается в конец своей строки, сохраняя функциональность функции.

Draco18s
источник