Поставте планер!


17

Це:

введіть тут опис зображення

є планер .

У грі життя Конвея планер - відомий зразок, який швидко проходить по всій дошці. Для сьогоднішнього виклику ми маємо намалювати дошку ASCII Art Game of Life та розмістити на ній планер.

Рада, з якої ми починаємо:

|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|

Ця дошка повністю складається з труб |і підкреслень _, і становить 10х10. Ви повинні написати програму або функцію, яка займає два цілих числа, "x" і "y", і виводить цю ж дошку з планером за цими координатами. Наприклад, якщо у вас був планер у положенні (1, 1)(індексовано 0), ви повинні вивести наступне:

|_|_|_|_|_|_|_|_|_|_|
|_|_|*|_|_|_|_|_|_|_|
|_|_|_|*|_|_|_|_|_|_|
|_|*|*|*|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|

Можна припустити, що планер ніколи не буде розміщений поза межами, тому і x, і y завжди будуть в [0-7]діапазоні. Ви також можете взяти координати 1-індексованими, але це потрібно вказати у своїй відповіді. У цьому випадку вхідні дані завжди будуть в [1-8]діапазоні. Ось кілька прикладів (усі 0-індекси):

0, 0:
|_|*|_|_|_|_|_|_|_|_|
|_|_|*|_|_|_|_|_|_|_|
|*|*|*|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|

7, 7:
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|*|_|
|_|_|_|_|_|_|_|_|_|*|
|_|_|_|_|_|_|_|*|*|*|

7, 4:
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|*|_|
|_|_|_|_|_|_|_|_|_|*|
|_|_|_|_|_|_|_|*|*|*|
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|

5, 2:
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|*|_|_|_|
|_|_|_|_|_|_|_|*|_|_|
|_|_|_|_|_|*|*|*|_|_|
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|
|_|_|_|_|_|_|_|_|_|_|

Як завжди, ви можете взяти свій IO у будь-якому розумному форматі. Це включає, але не обмежується цим, рядок з новими рядками, масив рядків, 2d масив рядків або запис у файл / STDOUT. Ви також можете вибрати, в якому порядку приймати x і y .

Оскільки це , стандартні лазівки заборонені, і зробіть найкоротший код, який ви можете!


Чи можемо ми змінити, який кут визначає положення планера?
Стівен

@StephenS Ні, координати повинні визначати, звідки починається лівий верхній кут планера.
DJMcMayhem


2
the glider is a famous pattern that slowly traverses across the boar.. Повільно? Це найшвидший діагональний рухомий об’єкт у GoL. Він досягає 1/4 швидкості світла.
Крістоф

1
@ Кристоф, добре, ми можемо зауважити, що його довжина не здається скорочуватися в напрямку руху, але я не знаю жодного способу вимірювання маси на релятивістських швидкостях.
Wossname

Відповіді:



5

V , 31 , 30 байт

10O±°_|ÀGjjÀ|3r*kr*kh.Í*ü_/|&

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

Hexdump:

00000000: 3130 4fb1 b05f 7c1b c047 6a6a c07c 3372  10O.._|..Gjj.|3r
00000010: 2a6b 722a 6b68 2ecd 2afc 5f2f 7c26       *kr*kh..*._/|&

Це сприймає як аргументи програми, так і 1-індексування.

Пояснення:

10O                         " On the following 10 lines, insert:
   ±°_                      "   10 '_' characters
      |                     "   And a '|'
       <esc>                " Return to normal mode
            ÀG              " Go to the a'th line
              jj            " Move down two lines
                À|          " Go to the b'th column
                  3r*       " and replace the next 3 characters with asterisks
                     k      " Move up a line
                      r*    " And replace this char with an asterisk
                        kh  " Move up a line and to the left
                          . " And repeat the last change we performed (replace with asterisk)
                            "
Í                           " On every line, substitute:
 *                          "   An asterisk
  ü                         "   OR
   _                        "   An underscore
    /                       " With:
     |&                     "   A bar followed by the matched pattern

Два питання: Що? і як?
Pureferret

1
@Pureferret дві відповіді: Мови гольфу, НАУКА (або він написав V XD)
Крістофер

1
@Pureferret Я додав пояснення.
DJMcMayhem

2

Желе , 37 35 байт

ȷ2b1
Ḍ+“£Æßæç‘Ṭ+¢s⁵j3;0$€Fṭ0ị“_*¶|”

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

Як це працює

ȷ2b1                             - the literal [1,1,1,1,...,1,1,1] with 100 elements
Ḍ+“£Æßæç‘Ṭ+¢s⁵j3;0$€Fṭ0ị“_*¶|”   - input (x,y)
Ḍ                                - convert (x,y) to 10*x+y
 +                               - add, to get the five "*" positions,
  “£Æßæç‘                        - the literal [2,13,21,22,23]
         Ṭ                       - return an array with those positions as truthy elements
          +¢                    - Now we format: pad to length 100 with the above literal
            s⁵j3                 - add newlines (represented by 3) to each set of 10
                ;0$€F            - add pipes (represented by 0) to each
                     ṭ0          - add a 0 to the beginning
                       ị“_*¶|”   - index into the string “_*¶|”

1
Як ви вводите / генеруєте свої програми?
RobotCaleb

1
@RobotCaleb: як правило, копіювання з кодової сторінки Jelly . Я запускаю їх на Nexus TIO, коли не на своїй основній машині, а клон сховища Jelly на моєму головному комп'ютері.
fireflame241

2

Python 2 , 151 байт

Чи буде більше гольфу.

def f(x,y):r,x=[list('|_'*10+'|')for i in[1]*10],x*2;r[y][x+3]=r[y+1][x+5]=r[y+2][x+1]=r[y+2][x+3]=r[y+2][x+5]='*';print'\n'.join(''.join(i)for i in r)

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


Якщо ви готові перейти на Python 3, ви можете зберегти 3 байти, використовуючи [*'|_'*10+'|']замість list()виклику.
L3viathan

2

Perl 6 , 88 байт

->\x,\y{(^10 »*»i X+ ^10).map:{<|* |_>[$_!=
(1-2i|2-i|0|1|2)+x+y*i+2i]~"|
"x(.re==9)}}
  • Складні числа використовуються для представлення координат.

  • ^10 »*» i X+ ^10 генерує сітку всіх складних чисел із цілими компонентами від нуля до дев'яти.

  • Повертає список рядків, кожен з яких містить один рядок.


Цікаво, що я не знав, що Perl використовує не-ASCII. Що робить »? Як це закодовано?
DJMcMayhem

1
Це просто ПРАВИЛЬНИЙ ГІЛІЛЕТ ВПРАВЛІННЯ ЮНІКОДУ, U + 00BB, закодований у UTF-8. У Perl 6 це так само добре можна записати як два кутових дужки, >>але це така ж кількість байтів, як і гільємета, тому для гольфу я віддаю перевагу останню, оскільки це виглядає трохи класніше IMHO. Що стосується того, що він робить, він перетворює оператора, який він оточує, в "гіпероператора", який застосовується попарно до списків або значень з обох сторін. Тут він множує кожен елемент діапазону 0-9на i, даючи 0, i, 2i, ..., 9i.
Шон

1

Haskell , 96 байт

r=[0..9]
x#y=['|':(r>>=(\i->[last$'_':['*'|elem(i-x,j-y)$zip[1,2,0,1,2][0,1,2,2,2]],'|']))|j<-r]

Збирає два цілих числа ( xі y) і повертає список Strings, тобто 2D список типу [[Char]].


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

import System.Environment

main :: IO ()
main = do
    args <- getArgs
    let (x, y) = (read $ args !! 0, read $ args !! 1)
    mapM_ putStrLn (x#y)


1

Математика, 115 113 байт

x(a="|_"~Table~10~Table~10;(a[[##]]="|*")&@@(#+x)&/@({{0,1,2,2,2},{1,2,0,1,2}});""<>Riffle[#<>"|"&/@a,"\n"])

де

Це вимагає введення в {row, col} форматі та є 1-індексованим, але може бути перетворений у 0-індексований без додавання байтів.

Деякі примітки:

  1. \n є символом нового рядка, займає 1 байт.
  2. є \[Function], займає 3 байти.
  3. є \[Transpose], займає 3 байти.

Зауважте, що "масив рядків" дозволений, тому я можу просто видалити Riffle , дає

Математика, 98 97 байт

x(a="|_"~Table~10~Table~10;(a[[##]]="|*")&@@(#+x)&/@({{0,1,2,2,2},{1,2,0,1,2}});#<>"|"&/@a)

1

Java 8, 165 144 байт

x->y->{String r="";for(int i=0,j;++i<11;r+="\n")for(r+="|",j=0;++j<11;)r+=(i==x&j==y+1)|(i==x+1&j==y+2)|(i==x+2&j>=y&j<y+3)?"*|":"_|";return r;}

Пояснення:

Спробуйте тут.

x->y->{                  // Method with two integer parameters and String return-type
  String r="";           //  Result-String
  for(int i=0,j;++i<11;  //  Loop (1) over the rows
     r+="\n|")           //    And after each iteration add a new-line to the result-String
    for(r+="|",          //   Start by appending "|" at the start of the line
      j=0;++j<11;        //   Loop (2) over the columns
      r+=(i==x&j==y+1)|(i==x+1&j==y+2)|(i==x+2&j>=y&j<y+3)?
                         //    If this coordinate should contain a '*'
        "*|"             //     Append "*|"
       :                 //    Else:
        "_|"             //     Append "_|"
    );                   //   End of loop (2)
                         //  End of loop (1) (implicit / single-line body)
  return r;              //  Return the result-String
}                        // End of method

1
Пояснення має інший код, ніж ваша відповідь? Подивіться на перше призначення на r.
Computronium

@Computronium На жаль, дякую, що помітили, виправлено. Підрахунок бай був правильним, пояснення було правильним, TIO-посилання було правильним, але фактична відповідь все ще була старою невірною ..
Кевін Круїйсен

1

JavaScript (ES6), 99 байт

x=>y=>eval('for(i=0,o="";i<101;o+=((d=i-x-y*10)==1|d==12|d>19&d<23?"|*":"|_")+(++i%10?"":`|\n`))o')

Вводиться за допомогою currying: f(5)(2) для x = 5, y = 2. Координати нульово індексуються.

Тест-фрагмент

f=
x=>y=>eval('for(i=0,o="";i<101;o+=((d=i-x-y*10)==1|d==12|d>19&d<23?"|*":"|_")+(++i%10?"":`|\n`))o')

xi.oninput=yi.oninput=_=>O.innerHTML=f(xi.value)(yi.value)
O.innerHTML=f(xi.value=5)(yi.value=2)
<style>*{font-family:Consolas;}input{width:2.5em;}</style>
x: <input id="xi" type="number" min="0" max="7">,
y: <input id="yi" type="number" min="0" max="7">
<pre id="O">


0

SOGL , 23 байти

LIΖ|_ΟL∙.«."¾'┼ΞΧ⌠²‘5nž

Примітка: очікується, що вхід буде 1-індексованим

Пояснення:

LI                       push 11
  Ζ|_                    push "|" and "_"
     Ο                   make an altrenates string [with 11 separators, which are "|" and parts "_"]
      L∙                 get an array of 10 of those
        .«               take input and multiply by 2 (x pos)
          .              take input (y pos)
           "¾'┼ΞΧ⌠²‘     push "_|*|__|_|**|*|*" - the glider in the map
                    5n   split into an array with items of length 5
                      ž  replace in the 1st [grid] array at positions [inp1*2, inp2] to 2nd array [glider]


0

Вугілля деревне , 28 байт

UO²¹χ|_J×N²N“ "}IyE%%mLBMφ/”

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


Я розчарований, що вугілля не так, ну ... лише для ASCII;)
бета-розпад

Ви можете видалити |_до, \nщоб зберегти стислий байт. (Я спробував кілька різних способів друку планера, але жоден байт не врятував.)
Ніл,
Використовуючи наш веб-сайт, ви визнаєте, що прочитали та зрозуміли наші Політику щодо файлів cookie та Політику конфіденційності.
Licensed under cc by-sa 3.0 with attribution required.