Snakify String

35

Snakified строка выглядит следующим образом:

T AnE eOf ifi ing
h s x l A k e r
isI amp Sna dSt

Твое задание

Возьмите строку sи размер n, затем выведите обнаженную строку. Входы ThisIsAnExampleOfaSnakifiedStringи 3приведут пример выше.

Характеристики

  • s будет содержать только символы ASCII между кодовыми точками 33 и 126 включительно (без пробелов и переносов).
  • s будет длиной от 1 до 100 символов.
  • nцелое число, представляющее размер каждого сегмента выходной строки. Каждая строка символов (вверх / вниз или влево / вправо), составляющих кривые в «змее», имеет nдлину символов. Смотрите примеры тестов.
  • n будет от 3 до 10 включительно.
  • Выходная строка всегда начинает указывать вниз.
  • Пробелы на каждой строке разрешены.
  • Конечные переводы строк в конце вывода также допускаются.
  • Ведущие пробелы не допускаются.
  • Код-гольф означает, что выигрывает самый короткий код в байтах.

Тестовые случаи

a 3

a

----------

Hello,World! 3

H Wor
e , l
llo d!

----------

ProgrammingPuzzlesAndCodeGolf 4

P  ngPu  Code
r  i  z  d  G
o  m  z  n  o
gram  lesA  lf

----------

IHopeYourProgramWorksForInputStringsWhichAre100CharactersLongBecauseThisTestCaseWillFailIfItDoesNot. 5

I   gramW   tStri   100Ch   gBeca   CaseW   DoesN
H   o   o   u   n   e   a   n   u   t   i   t   o
o   r   r   p   g   r   r   o   s   s   l   I   t
p   P   k   n   s   A   a   L   e   e   l   f   .
eYour   sForI   Which   cters   ThisT   FailI

----------

!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ 10

!        <=>?@ABCDE        `abcdefghi
"        ;        F        _        j
#        :        G        ^        k
$        9        H        ]        l
%        8        I        \        m
&        7        J        [        n
'        6        K        Z        o        ~
(        5        L        Y        p        }
)        4        M        X        q        |
*+,-./0123        NOPQRSTUVW        rstuvwxyz{
code-golf string ascii-art code-golf code-golf string balanced-string decision-problem code-golf string geometry grid code-golf tips lisp code-golf quine tips king-of-the-hill code-challenge math code-golf string palindrome math fastest-code code-golf string counting code-golf code-golf internet code-golf quine source-layout hello-world code-golf math number sequence arithmetic code-golf ascii-art grid code-golf number grid code-golf string crossword code-golf code-golf ascii-art grid counting code-golf code-golf math sequence arithmetic number-theory code-golf code-golf graphical-output geometry random code-golf ascii-art grid counting code-golf string ascii-art code-challenge test-battery code-golf string code-golf ascii-art kolmogorov-complexity code-golf interpreter code-golf math sequence code-golf math primes set-partitions code-golf user81655
источник
Я предполагаю, что следующей проблемой будет преобразование snakified строки обратно в исходные 2 параметра ...
abligh
@ Возможно, у меня не было дальнейших планов, но на самом деле это звучит как приличная идея. Может быть некоторая форма дубликата, поэтому мне нужно сначала проверить это. Следите за обновлениями!
user81655
обратный вызов был бы более забавным, если бы змея могла быть произвольной формы ...
abligh
@abligh Это именно то, что я планировал делать, ха-ха!
user81655
@abligh Готово!
user81655

Ответы:

9

Pyth, 48 45 44 43 42 байта

=Y0juXGZX@G~+Z-!J%/HtQ4q2J~+Y%J2@zHlzm*;lz

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

Этот подход использует то же злоупотребление, что и ответ Ruby.

PurkkaKoodari
источник
3
Вычеркнуто 44 все еще 44 ... все еще.
Арктур
12

Рубин, 87 байт

->s,n{p=0
a=(' '*(w=s.size)+$/)*n
w.times{|i|a[p]=s[i];p+=[w+1,1,-w-1,1][i/(n-1)%4]}
a}

Некоторое незначительное злоупотребление правилом. Trailing spaces on each line are allowed.Каждая строка вывода - это wдлина символов плюс новая wстрока, где длина исходной строки, то есть достаточно длинная, чтобы вместить весь ввод. Отсюда довольно много ненужных пробелов справа от большого n.

Неуправляемый в тестовой программе

f=->s,n{
  p=0                            #pointer to where the next character must be plotted to
  a=(' '*(w=s.size)+$/)*n        #w=length of input. make a string of n lines of w spaces, newline terminated
  w.times{|i|                    #for each character in the input (index i)
    a[p]=s[i]                    #copy the character to the position of the pointer
    p+=[w+1,1,-w-1,1][i/(n-1)%4] #move down,right,up,right and repeat. change direction every n-1 characters
  }
a}                               #return a

puts $/,f['a',3]

puts $/,f['Hello,World!',3]

puts $/,f['ProgrammingPuzzlesAndCodeGolf',4]

puts $/,f['IHopeYourProgramWorksForInputStringsWhichAre100CharactersLongBecauseThisTestCaseWillFailIfItDoesNot.',5]

puts $/,f['!"#$%&\'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~',10]
Уровень реки St
источник
7

JavaScript (ES6), 143 байта

(s,n)=>[...s].map((c,i)=>(a[x][y]=c,i/=n)&1?y++:i&2?x--:x++,a=[...Array(n--)].map(_=>[]),x=y=0)&&a.map(b=>[...b].map(c=>c||' ').join``).join`\n`

Где \nпредставляет буквальный перевод строки. Ungolfed:

function snakify(string, width) {
    var i;
    var result = new Array(width);
    for (i = 0; i < width; i++) result[i] = [];
    var x = 0;
    var y = 0;
    for (i = 0; i < string.length; i++) {
       result[x][y] = string[i];
       switch (i / (width - 1) & 3) {
       case 0: x++; break;
       case 1: y++; break;
       case 2: x--; break;
       case 3: y++; break;
    }
    for (i = 0; i < width; i++) {
        for (j = 0; j < r[i].length; j++) {
            if (!r[i][j]) r[i][j] = " ";
        }
        r[i] = r[i].join("");
    }
    return r.join("\n");
}
Нил
источник
7

Pyth, 85 74 59 байт

Kl@Q0J0=Y*]d-+*@Q1K@Q1 1FNr1@Q1=XY-+*KNN1b;VK=XYJ@@Q0N=+J@[+K1 1-_K1 1).&3/N-@Q1 1;sY

=G@Q1=H@Q0KlHJ0=Y*]dt+*GKGFNr1G=XYt+*KNNb;VK=XYJ@HN=+J@[hK1t_K1).&3/NtG;sY

Klz=Ym;+*QKQVQ=XYt+*KhNhNb;VK=XYZ@zN=+Z@[hK1_hK1).&3/NtQ;sY

Спасибо @FryAmTheEggman за огромную помощь!

Гольф столько, сколько я мог. Попробуй это здесь! По какой-то причине перенос строки делает вывод странным. Вы можете взглянуть на вывод на полной странице

объяснение

Дышите секунду и сосредоточьтесь. Это можно разбить на три части, как почти любой «классический» алгоритм.

Первый раздел

Это где переменные инициализируются. Это может быть разделено на две части:

Klz=Ym;+*QKQ
Klz                Assign len(input[0]) to K. (length of input String)
   =Ym;+*QKQ       Assign an empty list to Y of length K*input[1]-input[1]-1, where input[1] is the size of the snake 
                   (thus the height of the final string)

Вторая часть :

VQ=XYt+*KhNhNb;
VQ                       For N in range(0, input[1]), where input[1] is the size of the snake 
  =                        Assign to Y. Y is implicit, it is the last variable we used.
   XYt+*KhNhNb               Y[K*N+N-1]="\n". Can be broken down in four parts :
   X                           Replace function. X <A: list> <B: int> <C: any> is A[B]=C
    Y                          A: The array we initialized in the first section.
     t+*KhNhN                  B: K*(N+1)+N+1 (N is the for loop variable)
             b                 C: Newline character ("\n")
              ;          End the loop.

Второй раздел

Содержит актуальную логику.

VK=XYZ@zN=+Z@[hK1_hK1).&3/NtQ;
VK                                         For N in range(0, K), where K is the length of the input string (see first section)
  =                                          Assign to Y. Y is implicit, it is the last variable we used.
   XYZ@zN                                    Same as in section 2. This is a replacement function. Y[Z] = input[0][N]. Z is initially 0.
         =+Z@[hK1_hK1).&3/NtQ                Again this can be broken down :
         =+Z                                   Add to Z
             [hK1_hK1)                         Array containing directions. Respectively [K+1, 1, -K-1, 1]
            @         .&3/NtQ                  Lookup in the array, on index .&3/N-@Q1 1:
                      .&3                        Bitwise AND. .& <int> <int>
                         /NtQ                    (input[1]-1)/N, where input[1] is the size of the snake
                             ;             End the loop

Третий раздел

Это выходная часть. Не очень интересно ...

sY    Join the array Y. Implicitly print.

БОНУС

Я написал программу Pyth из этого скрипта Python. 

input=["ThisIsAnExampleOfASnakifiedString", 4];
width=len(input[0]);
height=input[1];
pointer=0;
directions = [width+1,1,-width-1,1] #Respectively Down, right, up, right (left is replaced by right because of snake's nature. Doesn't go left).
output=[' ' for i in range(0, width*height+height-1)];
for N in range(1, height):
    output[width*N+N-1]="\n";
for N in range(0, len(input[0])):  
    output[pointer]=input[0][N];
    pointer+=directions[3&(N/(height-1))];
print "".join(output);
FliiFe
источник
5

JavaScript (ES6), 122 байта

document.write("<pre>"+(

// --- Solution ---
s=>n=>[...s].map((c,i)=>(a[p]=c,p+=[l+1,1,-l-1,1][i/n%4|0]),p=0,a=[...(" ".repeat(l=s.length)+`
`).repeat(n--)])&&a.join``
// ----------------

)("IHopeYourProgramWorksForInputStringsWhichAre100CharactersLongBecauseThisTestCaseWillFailIfItDoesNot.")(5))
Развернуть фрагмент

Тот же алгоритм, что и в ответе @ LevelRiverSt.

user81655
источник
4

C, 138 байтов

char*h[]={"\e[B\e[D","","\e[A\e[D",""},t[999];i;main(n){system("clear");for(scanf("%s%d",t,&n),--n;t[i];++i)printf("%c%s",t[i],h[i/n%4]);}

Это использует экранирование ANSI. Работает в терминале Linux.

Ungolfed:

char*h[]={"\e[B\e[D","","\e[A\e[D",""},
    /* cursor movement - h[0] moves the cursor one down and one left,
    h[2] moves the cursor one up and one left. */
t[999];i;
main(n){
    system("clear");
    for(scanf("%s%d",t,&n),--n;t[i];++i)
        printf("%c%s",t[i],h[i/n%4]);
}
mIllIbyte
источник
1

JavaScript (ES6), 131

Алгоритм: отображение позиции x,yв выходе к индексу во входной строке, так или иначе , как этого (несвязанного) ответ.

Я позаимствовал у @LevelRiverSt способ удержания горизонтальной ширины равной длине ввода.

a=>m=>eval('for(--m,t=y=``;y<=m;++y,t+=`\n`)for(x=0;a[x];)t+=a[2*(x-x%m)+((h=x++%(2*m))?h-m?!y&h>m?h:y<m|h>m?NaN:m+h:m-y:y)]||`.`')

Меньше гольфа

Это был первый рабочий проект до игры в гольф

f=(a,n)=>{
  l=a.length
  m=n-1
  s=m*2 // horizontal period

  b=-~(~-l/s)*m // total horizontal len, useless in golfed version
  t=''
  for(y=0;y<n;y++)
  {
    for(x=0;x<b;x++)
    {
      k = x / m | 0
      h = x % s
      if (h ==0 )
        c=k*s+y
      else if (h == m)
        c=k*s+m-y
      else if (y == 0 && h>m)
        c=k*s+h
      else if (y == m && h<m)
        c=k*s+m+h
      else
        c=-1
      t+=a[c]||' '
    }
    t+='\n'
  }
  return t
}

Тест

F=a=>m=>eval('for(--m,t=y=``;y<=m;++y,t+=`\n`)for(x=0;a[x];)t+=a[2*(x-x%m)+((h=x++%(2*m))?h-m?!y&h>m?h:y<m|h>m?NaN:m+h:m-y:y)]||` `')

function test()
{
  var n=+N.value
  var s=S.value
  O.textContent=F(s)(n)
}  

test()
#S {width:80%}
#N {width:5%}
<input id=N value=5 type=number oninput='test()'>
<input id=S 5 oninput='test()'
value='IHopeYourProgramWorksForInputStringsWhichAre100CharactersLongBecauseThisTestCaseWillFailIfItDoesNot.'>
<pre id=O></pre>
Развернуть фрагмент

edc65
источник
0

Pyth, 122 байта

=k@Q0J-@Q1 1K*4J=T*@Q1[*lkd;Vlk=Z+*%NJ/%N*J2J*/N*J2J=Y.a-+**/%N*J2J!/%NK*J2J*%NJ!/%N*J2J**!/%N*J2J/%NK*J2J XTYX@TYZ@kN;jbT

Я сделал формулу для вычисления позиций x, y каждого символа на основе размера сегмента / по модулю, но они стали больше, чем я ожидал: c

Объяснение:

=k@Q0                                                                                                                     # Initialize var with the text
     J-@Q1 1                                                                                                              # Initialize var with the segment size (minus 1)
            K*4J                                                                                                          # Initialize var with the "block" size (where the pattern start to repeat)
                =T*@Q1[*lkd;                                                                                              # Initialize output var with an empty array of strings
                            Vlk                                                                                           # Interate over the text
                               =Z+*%NJ/%N*J2J*/N*J2J                                                                      # Matemagics to calculate X position
                                                    =Y.a-+**/%N*J2J!/%NK*J2J*%NJ!/%N*J2J**!/%N*J2J/%NK*J2J                # Matemagics to calculate Y position
                                                                                                          XTYX@TYZ@kN;    # Assign the letter being iterated at x,y in the output
                                                                                                                      jbT # Join with newlines and print the output

Тест здесь

Для формул Math я использовал mod, чтобы сгенерировать флаги 0/1, а затем умножить на коэффициент, основанный на вводе n, добавив электронную таблицу с каждым шагом на фрагменте ниже.

Показать фрагмент кода

прут
источник
Можете ли вы объяснить математику? т.е. написать их более по-человечески?
FliiFe
@FliiFe сделано c:
Род
0

PHP, 127 126 124 120 119 118 117 110 106 байт

Использует кодировку ISO-8859-1.

for(;($q=&$o[$y+=$d]||$q=~ÿ)&&~Ï^$q[$x+=!$d]=$argv[1][$a];$a++%($argv[2]-1)?:$d-=-!$y?:1)?><?=join(~õ,$o);

Запустите так ( -dдобавлено только для эстетики):

php -r 'for(;($q=&$o[$y+=$d]||$q=~ÿ)&&~Ï^$q[$x+=!$d]=$argv[1][$a];$a++%($argv[2]-1)?:$d-=-!$y?:1)?><?=join(~õ,$o);' "Hello W0rld!" 3 2>/dev/null;echo

Ungolfed:

// Iterate over ...
for (
    ;
    // ... the characters of the input string. Prepend `0` so a 0 in the input
    // becomes truthy.
    0 . $char = $argv[1][$a];

    // Use modulo to determine the end of a stretch (where direction is
    // changed).
    // Change direction (`0` is right, `-1` is up and `1` is down). When
    // y coordinate is `0`, increment the direction, else decrement.
    $a++ % ($argv[2] - 1) ?: $direction += $y ? -1 : 1
)

    (
        // Increase or decrease y coordinate for direction -1 or 1 respectively.
        // Check whether the array index at new y coordinate is already set.
        $reference =& $output[$y += $direction] ||
        // If not, create it as a string (otherwise would be array of chars).
        // Null byte, won't be printed to prevent leading char.
        $reference = ~ÿ;

        // Increment x coordinate for direction 0. Set the output char at the
        // current coordinates to the char of the current iteration.
    ) & $reference[$x += !$direction] = $char;

// Output all lines, separated by a newline.
echo join(~õ, $output);

Tweaks

  • Сохраненный байт, используя <вместо!=
  • Сэкономили 2 байта, установив 0сначала строку , так что мне не нужно добавлять другой 0(в случае, если первый вывод в строке был a 0), получая истину 00.
  • Сохранено 4 байта с использованием ссылки вместо повторения $o[$y]
  • Сохраненный байт с помощью модуля вместо ==сравнения направления с 1 для изменения координаты х
  • Сохраненные байты, удаляя приведение типа nullв intстроку смещения, как строка смещения отливают междунар все равно
  • Сохраненный байт с помощью короткого тега печати
  • Сохранено 7 байтов за счет улучшения логики направления
  • Сохранено 4 байта путем непосредственного назначения символа для предотвращения промежуточного $c
aross
источник