Пройдіться словами!


33

На мою скромну думку, стандартний текст нудний. Тому я пропоную новий стандарт написання, гуляючих слів!

Ходячі слова

Ходячі слова - це слова, які відповідатимуть певним символам. Для цього завдання символи тригерних [u, d, r, l]з up down right left.

Кожного разу, коли ви стикаєтеся з таким символом під час друку тексту, ви будете переміщувати напрямок тексту.
Наприклад, текст abcdefпризведе до:

abcd
   e
   f

Правила

  • І великі, UDRLі малі регістри udrlповинні змінювати напрямок, але регістр повинен зберігатися у висновку
  • Вхід буде містити лише символи для друку (0-9, A-Z, a-z, !@#%^&*() etc...), без нових рядків!
  • Щоразу, коли текст буде стикатися, він замінить старий символ у цій позиції
  • Вихід повинен бути представлений користувачеві в будь-яких модних питаннях, але це повинен бути один вихід (без масиву рядків)
  • Дозволено прослуховування нових та нових ліній
  • Додаткові місця доступні
  • Застосовуються стандартні лазівки

Тестові справи

empty input => empty output or a newline

u =>
u

abc =>
abc

abcd =>
abcd

abcde =>
abcd
   e

abcdde =>
abcd
   d
   e

codegolf and programming puzzles =>
   cod
     e
     g
     o
dna fl    sel
            z
p           z
rogramming pu

ABCDELFUGHI =>
 I
AHCD
 G E
 UFL

It is in my humble opinion that standard text is boring. Therefore I propose a new writing standard, walking words! =>
dnats taht noinipo el
a                   b
rd                  m
       It is in my hu
 t
 e
 x
 t

 i
 s

 b
 o
 ring. Therefore I propose a new writing stand
                                             a
                                             rd
                                              ,

                                              w
                                              a
                                      rdw gnikl
                                       s
                                       !

Це , найкоротший код в байтах виграє!


4
Цей формат має серйозну проблему втрати даних ...: p
Мукул Кумар

Чи дозволені провідні / відстані місця?
Арнольд

@Arnauld До тих пір, поки вони не порушують положення персонажів, які вони є. Тож, швидше за все, просто пробіли
Bassdrop Cumberwubwubwub

1
Як би golfвиглядав вихід слова сам по собі?
gabe3886

2
@ gabe3886gfl
Bassdrop Cumberwubwubwub

Відповіді:


4

Вугілля деревне , 29 27 20 19 байт

FS«F№rdlu↧ι≔ιω✳∨ωrι

Спробуйте в Інтернеті! Посилання на багатослівну версію коду. Пояснення:

FS«

Проведіть петлю над вхідними символами.

F№rdlu↧ι

Якщо поточний лист є напрямком ...

≔ιω

потім оновіть поточний напрямок ходьби.

✳∨ωrι

Роздрукуйте символ у поточному напрямку ходіння, дефолтом праворуч, якщо ще не встановлено напрямок.


1
@Veskah The повинен був бути a . Вибач за це.
Ніл

7

Діалог APL , 63 байти

s@(n+11 9∘○¨+\0j1*⊃¨,⍨\(8∘≠⍴¨⊢)0,'rdluRDLU'⍳¯1↓s)⍴∘'',⍨2×n←≢s←⍞

використання ⎕IO←0та функції від v16 ( @)

n←≢s←⍞необроблений вхід sта його довжинаn

⍴∘'',⍨2×n створити матрицю пробілів 2n на 2n

s@(...)змінити матрицю з символами sу зазначених (пар) індексів

як обчислюються індекси:

¯1↓s краплі останньої чарівки s

'rdluRDLU'⍳'кодувати 'r'як 0, 'd'як 1 тощо; інші символи як 8

0, додайте 0

(8∘≠⍴¨⊢) перетворіть кожні 8 у порожній список, усі інші - у 1-елементний список

,⍨\кумулятивні конвертації, що змінюються ( abcd-> a ba cba dcba)

⊃¨ спочатку від кожного

0j1* уявна константа i до сили

+\ сукупні суми

11 9∘○¨реальна і уявна частина від кожної; отримати координати в діапазоні -n...n

n+ централізуйте їх на великій матриці


3

Pyth, 68 65 байт

KUJ,00ImXH~+VJ=@as_BM_MBU2Kx"rdlu"rd0dzjcsm.x@Hd;*Fm=Z}hdedSMCHlZ

Тестовий набір

Для цього використовується словник, індексований парою координат, який оновлюється як прочитаний вхід, а потім друкується в кінці. Він також використовує тонну хитромудрих трюків з гольфу.

Ось як я написав це, використовуючи -mпрапор перекладача, щоб викреслити пробіл та коментарі перед запуском:

KUJ,00                 ; Initialize J to [0, 0] and K to [0, 1].
                       ; J is the current location, K is the current direction.
I                      ; If the following is truthy, which will be when the input
                       ; is nonempty,
  m                    ; Map d over z, the input.
  XH                   ; Assign to H (a hash table, initially empty)
    ~+VJ               ; At location J, then update J by adding elementwise
      =@               ; K (Next variable is implicit), which is set to
        as_BM_MBU2K    ; [0, 1], bifurcated on mapped negation, then mapped on
                       ; reversal bifuraction with the old value of K appended.
                       ; e.g. [[0, 1], [1, 0], [0, -1], [-1, 0], K]
        x"rdlu"rd0     ; indexed at location equal to the index of the lowercase
                       ; of the current character into "rdlu", -1 if missing.
    d                  ; Insert the current character with that key.
  z                    ; map over z.
jc                     ; Join on newlines the result of chopping into a rectangle
  sm                   ; the concatenation of the map
    .x@Hd;             ; Lookup the character at the given location,
                       ; if none then ' '
    *Fm                ; Locations are the cartesian product of the map
      =Z}hded          ; Inclusive range from the head of each list to 
                       ; the end of each list
                       ; Saved in Z for later
      SMCH             ; Transpose the list of keys, and sort the x and y values
                       ; separately.
  lZ                   ; Width of the rectangle should equal the number of
                       ; x values, which is the length of the last entry.

3

C #, 525 474 байт

Редагувати: Збережено 51 байт завдяки @steenbergh

Це не дуже, але це працює ...

Гольф:

string W(string s){var l=s.Length;var a=new char[2*l+1,2*l+1];int x=2*l/2;int y=2*l/2;int d=0;for(int i=0;i<l;i++){switch(char.ToUpper(s[i])){case'U':d=3;break;case'D':d=1;break;case'L':d=2;break;case'R':d=0;break;}a[y,x]=s[i];switch(d){case 0:x+=1;break;case 1:y+=1;break;case 2:x-=1;break;case 3:y-=1;break;}}string o="";for(int i=0;i<2*l+1;i++){string t="";for(int j=0;j<2*l+1;j++)t+=a[i,j]+"";o+=t==string.Join("",Enumerable.Repeat('\0',2*l+1))?"":(t+"\r\n");}return o;}

Безголівки:

public string W(string s)
{
  var l = s.Length;
  var a = new char[2 * l + 1, 2 * l + 1];
  int x = 2 * l / 2;
  int y = 2 * l / 2;
  int d = 0;
  for (int i = 0; i < l; i++)
  {
    switch (char.ToUpper(s[i]))
    {
      case 'U':
        d = 3;
        break;
      case 'D':
        d = 1;
        break;
      case 'L':
        d = 2;
        break;
      case 'R':
        d = 0;
        break;
    }
    a[y, x] = s[i];
    switch (d)
    {
      case 0:
        x += 1;
        break;
      case 1:
        y += 1;
        break;
      case 2:
        x -= 1;
        break;
      case 3:
        y -= 1;
        break;
    }
  }
  string o = "";
  for (int i = 0; i < 2 * l + 1; i++)
  {
    string t = "";
    for (int j = 0; j < 2 * l + 1; j++)
      t += a[i, j] + "";
    o += t == string.Join("", Enumerable.Repeat('\0', 2 * l + 1)) ? "" : (t + "\r\n");
  }
  return o;
}

Пояснення:

Використовує двовимірний масив і dзначення для збільшення позиції масиву в напрямку корекції, де значення d:

0 => RIGHT
1 => DOWN
2 => LEFT
3 => UP

Тест:

var walkTheWords = new WalkTheWords();
Console.WriteLine(walkTheWords.W("codegolf and programming puzzles"));

                            cod                              
                              e                              
                              g                              
                              o                              
                         dna fl    sel                       
                                     z                       
                         p           z                       
                         rogramming pu  

Ви можете видалити другий перемикач повністю. У першому комутаторі, де Ви пишете d=0;, замініть це твердження на оператор у заяві другого перемикача case 0:і зробіть подібне до інших випадків, і Вам, можливо, не знадобиться другий перемикач. І нарешті, видаліть цю заяву a[y,x]=s[i]та напишіть її зверху першого вимикача.
Мукул Кумар

@MukulKumar Хороша ідея, я не можу змусити її працювати. Я спробував це зробити одним перемикачем спочатку. Треба залишитися в його поточній конфігурації подвійних комутаторів! :)
Піт Арден

Ви писали a[y,x]=s[i]перед першим перемиканням?
Мукул Кумар

2
Ви можете використовувати switch(s[i].toLowerCase())(або еквівалент c # ...), а потім видалити всі великі регістри. Слід зберегти кілька байт.
steenbergh

1
@steenbergh Спасибі, велика економія там! Ні, ви не можете безпосередньо, ToUpper()тому що це charне є string. Вибір є s[i].ToString().ToUpper()або char.ToUpper(s[i])- я думаю, що charтой трохи коротший. Ура :)
Піт Арден

3

JavaScript (ES6), 218 220 232

Правка Я використовував uі tвідслідковував верхню і ліву позицію, але зрозумів, що tце зовсім не потрібно

w=>[...w].map(c=>u=(((g[y]=g[y]||[])[x]=c,n=parseInt(c,36)|0)-21&&n-27?a=n-13?n-30?a:!(b=-1):!(b=1):(b=0,a=n/3-8),y+=b,x+=a)<u?x:u,a=1,b=0,x=y=u=w.length,g=[])+g.map(r=>[...r.slice(u)].map(c=>z+=c||' ',z+=`
`),z='')&&z

Менше гольфу

w=>{
  a = 1, b = 0;
  x = y = u = w.length;
  g = [];
  [...w].map(c => (
    r = g[y]||[],
    r[x] = c,
    g[y] = r,
    n = parseInt(c,36)|0,
    n-21 && n-27 ? n-13 && n-30?0 : (a=0, b=n-13?-1:1) : (b=0, a=n/3-8),
    x += a, u = x<u? x : u,
    y += b
  ))
  z=''
  g.map(r=>[...r.slice(u)].map(c=>z += c||' ', z += '\n'))
  return z
}             

Тест

F=
w=>[...w].map(c=>u=(((g[y]=g[y]||[])[x]=c,n=parseInt(c,36)|0)-21&&n-27?a=n-13?n-30?a:!(b=-1):!(b=1):(b=0,a=n/3-8),y+=b,x+=a)<u?x:u,a=1,b=0,x=y=u=w.length,g=[])+g.map(r=>[...r.slice(u)].map(c=>z+=c||' ',z+=`
`),z='')&&z

function update() {
  w=I.value
  O.textContent=F(w)
}

update()
#I {width:90%}
<input id=I value='It is in my humble opinion that standard text is boring. Therefore I propose a new writing standard, walking words!' oninput='update()'>
<pre id=O></pre>


3

05AB1E , 27 26 25 23 22 байт

Збережено 3 байти завдяки Grimy

ā¤‹>Šε’uχ’slkDÈiV}Y}Λ

Спробуйте в Інтернеті!

Пояснення

ā                        # push [1 ... len(input)]
 ¤‹                      # check each number if its less than the max
   >                     # increment
                         # results in a list as long as the input where each number is 2 
                         # apart from the last one, this is the lengths to draw
    Š                    # move 2 copies of the input to the top of the stack
                         # the first one is the string to draw
     ε              }    # for each char in the second copy
      ’uχ’slk           # get the chars index in "ubridal"
              D          # duplicate
               Èi }      # if the index is even
                 V       # store it in Y
                   Y     # push Y (initially 2)
                         # this gives us the list of directions
                     Λ   # draw everything on the canvas

1
"наречена" - словникове слово. -1 . РЕДАКЦІЯ: зробіть це -2 .
Гриммі

@Grimy: Я поцікавився, чи можна тут використовувати словник, але це справді розумно!
Емінья


2

Javascript, 4̶6̶6̶, 455, 433 байт

Зміни: 11 байтів збережено, завдяки користувачеві 1000000000 10 або близько цього, завдяки користувачеві2428118 Також видалено кілька непотрібних напівколонок.

Я майже впевнений, що це можна пограти далі в гольф, але я не міг цілком це впоратися. Я все ще нова штука, тому будь-яка порада дуже цінується :)

z=a=>{b=c=0;j=[[]];d='';a.split``.forEach(g=>{h=g.toLowerCase();if('ruld'.includes(h)){d=h}f=x=>new Array(x[0].length).fill` `;switch(d){case 'l':if(!b){j.forEach(e => e.unshift` `);++b}j[c][b--]=g;break;case 'u':if(!c){j.unshift(f(j));++c}j[c--][b]=g;break;case 'd':if(c == j.length-1){j.push(f(j))}j[c++][b]=g;break;default:if(b==(j[0].length-1)){j.forEach(row=>row.push` `)}j[c][b++] = g;break}});j.forEach(x=>console.log(x.join``))}
<input id="a"> </input>
<input type="submit" onclick="z(document.getElementById('a').value);"/>

Безголівки:

z=a=>{
b=c=0;
j=[[]];
d='';
a.split``.forEach(g=>{
    h=g.toLowerCase();
    if('ruld'.includes(h)){d=h;}
    f=x=>new Array(x[0].length).fill` `;
    switch(d){
        case 'l':
            if(!b){
                j.forEach(e => e.unshift` `);
                ++b;
            }
            j[c][b--] = g;
            break;
        case 'u':
            if(!c){
                j.unshift(f(j));
                ++c;
            }
            j[c--][b] = g;
            break;
        case 'd':
            if(c == j.length-1){
                j.push(f(j));
            }
            j[c++][b] = g;
            break;
        default:
            if(b == (j[0].length-1)){
                j.forEach(row=>row.push` `);
            }
            j[c][b++] = g;
            break;
    }
});
j.forEach(x => console.log(x.join``));

}

Я більш-менш застосував підхід:

  • Мати масив для зберігання результатів
  • Обчисліть позицію x і y наступного символу в масиві
  • Якщо координати збиралися знаходитись поза масивом, продовжте масив у цьому напрямку. Або натисканням та додатковим місцем у кінці цього рядка, або додаванням іншого рядка повністю.
  • Зробіть масив [y] [x] = поточний символ
  • вивести отриманий масив

Ласкаво просимо на сайт! Я не знаю JavaScript, але це виглядає досить добре.
Пшеничний майстер

Ласкаво просимо! Ви можете зберегти 11 байт, замінивши ['r','u','l','d']на"ruld"
0

Також вам не потрібен z=на початку вашої програми
0

Дякую за пораду! JS не перестає дивувати мене своєю зручністю.
Jhal

Ви можете використовувати літерали шаблонів у кількох місцях, щоб зберегти деякі байти, наприклад a.split`` .
користувач2428118

2

Пітон 3, 314 309 290 268 байт

x=y=0
d,m=(1,0),{}
q={'u':(0,-1),'d':(0,1),'l':(-1,0),'r':d}
for c in input():m[x,y]=c;d=q.get(c.lower(),d);x,y=x+d[0],y+d[1]
X,Y=zip(*m)
O,P=min(X),min(Y)
r,p=0,print
exec("t=~~O;exec(\"p(m.get((t,r+P),' '),end='');t+=1;\"*-~abs(max(X)-O));r+=1;p();"*-~abs(max(Y)-P))

Я спробував запустити свою програму як вхід до своєї програми з деякими цікавими результатами. Га, спробуйте інтерпретувати це, Python!

Поголений 5 байт - комплімент Джеку Бейтсу.

23 байти, вибиті кундором

Примітка. Я думаю, що в моїх байтах була помилка вимірювання через використання різних редакторів. Однак я впевнений, що останній вірний.


Ви можете видалити 5 байт, замінюючи 'r':(1,0)з 'r':dі видаленням простору в w[a] for. Також це божевільно !!! Як довго це у вас зайняло?

@JackBates День, між роботою. Я трохи нав'язливий.
Лорд Ратте

Хіба ми не всі? У цьому вся суть кодування!

Я вірю, що ви можете замінити всю цю X,Y=map(...)лінійку X,Y=zip(*m). Тут працює. ( *mрозпаковує його до списку своїх ключів, а поштовий перегрупує їх на два кортежі.)
Нік Маттео

Ви також можете поставити цикл for на одному рядку, щоб зберегти чотири байти.
Нік Маттео

2

PHP, 238 223 205 204 байт

12 байтів, збережених Йоргом ( striposзамість preg_match), 1 байт + дужки за допомогою ведучих замість задніх рядків, 16 + дужок, що гольфуються із зміни напрямку, ще 1 з потрійним замість if.

for($m=$d=1;$o=ord($c=$argn[$i++]);$m=min($m,$x),$n=max($n,$x))stripos(_ulrd,$r[$y+=$e][$x+=$d]=$c)?$d=($e=[1,-1][$o&11])?0:$o%4-1:0;ksort($r);foreach($r as$s)for($i=$m-print"\n";$i++<$n;)echo$s[$i]??" ";

Запустіть як трубу php -nR '<code>'або спробуйте в Інтернеті .

зламатися

for($m=$d=1;                    # init max index and x-offset to 1
    $o=ord($c=$argn[$i++]);     # loop through characters
    $m=min($m,$x),$n=max($n,$x))    # 3. adjust min and max x offset
    stripos(_ulrd,
        $r[$y+=$e][$x+=$d]=$c       # 1. move cursor; add character to grid
    )?                              # 2. if direction change
        $d=(
            $e=[1,-1][$o&11]            # set y direction
        )
        ?0:$o%4-1                       # set x direction
    :0;

ksort($r);              # sort rows by index
foreach($r as$s)        # loop through rows
    for($i=$m-print"\n";    # print newline, reset $i
        $i++<$n;)           # loop $i from min index to max index
        echo$s[$i]??" ";        # print character, space if empty

1
Якщо я бачу це право, то strspn($r[$y+=$e][$x+=$d]=$c,udlruDLR)слід зберегти кілька байтів, а не використовувати регулярний вираз, 'εstripos (_ulrd, $ r [$ y + = $ e] [$ x + = $ d] = $ c) `повинен бути кращим, як strspn, $argnзберегти 3 байти
Йорг Гюльсерманн

@ JörgHülsermann Ти мене переслідуєш? : D Ти маєш рацію.
Тит

Сьогодні ніхто не редагував свою посаду, і я бачив вашу відповідь, і я побачив, що ви можете скоротити її. Вибачте, що поліпшення не настільки велике, що ви можете перемогти відповідь JS. Це робить щасливим і гордим, якщо я можу знайти кілька байтів у ваших відповідях, але я не шукаю цих випадків
Jörg Hülsermann

@ JörgHülsermann Не хвилюйся; Я знайшов ще 21 байт на додаток до ваших 12. Дякую, що змусили мене переглянути це.
Тит

Більше 10 відсотків це приємно
Йорг Гюльсерманн

2

Java 10, 288 286 280 263 байт

s->{int l=s.length(),x=l,y=l,d=82,A=x,B=y;var r=new char[l+=l][l];for(var c:s.toCharArray()){A=x<A?x:A;B=y<B?y:B;r[x][y]=c;c&=~32;d="DLRU".contains(""+c)?c:d;x+=5-d/14;y+=3-(d^16)/23;}s="";for(x=A;x<l;x++,s+="\n")for(y=B;y<l;y++)s+=r[x][y]<1?32:r[x][y];return s;}

-17 байт завдяки @Grimy .

Пояснення:

Спробуйте тут. (ПРИМІТКА. Я видаляю всі пробіли / нові рядки, щоб зробити висновок трохи більш компактним. Сміливо видаляйте .replaceAll("(m?)\\s+$","")в test-методі, щоб побачити фактичний результат.)

s->{                              // Method with String as both parameter and return-type
  int l=s.length(),               //  Length of input String
      x=l,y=l,                    //  x,y coordinates, starting at `l`,`l`
      d=82,                       //  Direction, starting towards the right
      A=x,B=y;                    //  Min x & y values to remove leading spaces at the end
  var r=new char[l+=l][l];        //  character-matrix, with size `l`+`l` by `l`+`l`
  for(var c:s.toCharArray()){     //  Loop over the characters of the input String:
    A=x<A?x:A;                    //   Adjust minimum x `A` if necessary
    B=y<B?y:B;                    //   Adjust minimum y `B` if necessary
    r[x][y]=c;                    //   Fill x,y with the current character
    c&=~32;                       //   Make character uppercase if it isn't yet
    d="DLRU".contains(""+c)?c:d;  //   Change the direction if necessary
    x+=5-d/14;                    //   Set the next x coordinate based on the direction
    y+=3-(d^16)/23;}              //   Set the next y coordinate based on the direction
  s="";                           //  After the loop: create an empty result-String
  for(x=A;x<l;x++,                //  Loop `x` in the range [`A`, `l`):
      s+="\n")                    //    And append a new-line after every iteration
    for(y=B;y<l;y++)              //   Inner loop `y` in the range [`B`, `l`):
      s+=r[x][y]<1?               //    If the cell at x,y is empty:
          32                      //     Append a space to the result-String
         :r[x][y];                //    Else: append the character to the result-String
  return s;}                      //  After the nested loop: teturn result-String

1
d<69?1:d>84?-1:0можна5-d/14
Grimmy

1
І в такому ж ключі d==82?1:d==76?-1:0може бути3-(d^16)/23
Гриммі

@Grimy Спасибі Я знав, що ці дві частини можуть якимось чином пограти в гольф, але я дуже поганий у цих побітних / арифметичних перетвореннях, тому не намагався намагатися. Дякуємо за -17 байт! :)
Кевін Круїссен

1

Perl, 204 + 3 = 207 байт

+3 для -F

Пробіл не входить до коду і надається для розбірливості.

%p=(d,1,l,2,u,3,r,$x=$y=0);
for(@F){
    $m{"$x,$y"}=$_;
    $g=$p{lc$_}if/[dlur]/i;
    $g%2?($y+=2-$g):($x+=1-$g);
    ($a>$x?$a:$b<$x?$b:$x)=$x;
    ($c>$y?$c:$d<$y?$d:$y)=$y
}
for$k($c..$d){
    print($m{"$_,$k"}||$")for$a..$b;
    say""
}

Аналогічно моєму вирішенню завдання Fizz Buzz, я створюю хеш з x, y координатами для кожного кроку на цьому шляху, зберігаючи максимуми і мінімуми координат x- і y-, зберігаючи, а потім проходжу і роздруковую все.

Якщо я відчайдушний, можливо, мені вдасться перетворити останні три рядки першого forциклу в єдину огидну заяву, яка може зберегти байт чи два, але я не з нетерпінням чекаю цілком нечитабельного результату.


1

Excel VBA, 205 байт

Sub t(a)
Z=1:x=70:y=x:For i=1 To Len(a)
s=Mid(a,i,1):Cells(y,x).Value=s:Select Case LCase(s)
Case "l":Z=-1:w=0
Case "d":Z=0:w=1
Case "r":Z=1:w=0
Case "u":Z=0:w=-1
End Select:x=x+Z:y=y+w:Next:End Sub

Я якось здивований вмінням Excel конкурувати з існуючими відповідями. Це працює тому, що wі zслідкувати за напрямком.


вихідне положення 70 може бути недостатньо. Більше того, провідні місця не дозволені
edc65

1

SmileBASIC, 148 146 байт

DEF W M,S,T
WHILE""<M
A=INSTR(@DLURdlur,M[0])*PI()/2IF A>0THEN S=COS(A)T=SIN(A)
X=CSRX+S
Y=CSRY+T?SHIFT(M);
SCROLL-!X,-!Y
LOCATE!X+X,Y+!Y
WEND
END

Викличте функцію з W "text",vx,vy, де vx і vy - напрям на початку (за замовчуванням - 1,0)


Що відбувається, коли X або Y менше 0?
edc65

Тепер він буде прокручувати весь текст, коли курсор вийде з екрана.
12Me21

0

Швидкий 3, 283 байти

func w(a:String){var t=a.characters,d=t.count,c=Array(repeating:Array(repeating:" ",count:d*2),count:d*2),i=d,j=d,l=["d":(1,0),"u":(-1,0),"l":(0,-1),"r":(0,1)],e=(0,1)
t.map{c[i][j]="\($0)"
e=l["\($0)".lowercased()] ?? e
i+=e.0
j+=e.1}
c.map{$0.map{print($0,terminator:"")};print()}}

Безумовно

func w(a:String){
    var t=a.characters,d=t.count,c=Array(repeating:Array(repeating:" ",count:d*2),count:d*2),i=d,j=d,l=["d":(1,0),"u":(-1,0),"l":(0,-1),"r":(0,1)],e=(0,1)
    t.map{
        c[i][j]="\($0)"
        e=l["\($0)".lowercased()] ?? e
        i+=e.0
        j+=e.1
    }
    c.map{
        $0.map{
            print($0,terminator:"")
        };
        print()
    }
}

Увага

Більш тривалий вхід вимагатиме збільшення екрана. Вихідні дані не обробляють "порожні" рядки / стовпці, як я зрозумів, що це прийнятно за правилами виклику.

Рант

  • Newline є термінатором за замовчуванням для printsux
  • Жоден простий спосіб створення масиву відомої довжини не знищив рахунок.
Використовуючи наш веб-сайт, ви визнаєте, що прочитали та зрозуміли наші Політику щодо файлів cookie та Політику конфіденційності.
Licensed under cc by-sa 3.0 with attribution required.