64-битное ASCII плетение

18

вход

Два целых числа:

  • Неотрицательное целое число W в диапазоне от 0 до 2 ^ 64-1, определяющее переплетение.
  • Целое положительное число S в диапазоне от 1 до 255, указывающее длину стороны.

Их можно взять в любом удобном для вас порядке.

Выход

Представление S by S ASCII запрошенного переплетения ( S строк новой строки, разделенных символами S с необязательным завершающим символом новой строки). Плетение определяется числом ткачества W следующим образом:

Преобразовать W в двоичный файл и разделить на 8 байтов. Первый (самый старший) байт определяет верхний ряд слева (самый старший бит) справа. Следующий байт определяет следующую строку и так далее для 8 строк. Число переплетения определяет квадрат 8 на 8, который должен быть выложен плиткой над необходимой областью, начиная с верхнего левого угла. То есть его верхний левый угол должен соответствовать верхнему левому углу области, которую нужно покрыть.

Каждый 0должен отображаться как |и каждый1 должен отображаться как-

Примеры

Входные данные: 0 8

Ouput:

||||||||
||||||||
||||||||
||||||||
||||||||
||||||||
||||||||
||||||||

Входные данные: 3703872701923249305 8

Выход:

||--||--
|--||--|
--||--||
-||--||-
||--||--
|--||--|
--||--||
-||--||-

Входные данные: 3732582711467756595 10

Выход:

||--||--||
--||--||--
--||--||--
||--||--||
||--||--||
--||--||--
--||--||--
||--||--||
||--||--||
--||--||--

Входные данные: 16141147355100479488 3

Выход:

---
|||
---

Фрагмент таблицы лидеров

(используя шаблон Мартина )

Trichoplax
источник

Ответы:

10

К, 20

{y#y#'"|-"8 8#0b\:x}

,

             0b\:x    // convert to binary
         8 8#         // reshape into an 8x8 boolean matrix
     "|-"             // index into this char vector using the booleans as indices  
  y#'                 // extend horizontally
y#                    // extend vertically

,

k){y#y#'"|-"8 8#0b\:x}[3703872701923249305j;10]
"||--||--||"
"|--||--||-"
"--||--||--"
"-||--||--|"
"||--||--||"
"|--||--||-"
"--||--||--"
"-||--||--|"
"||--||--||"
"|--||--||-"

k){y#y#'"|-"8 8#0b\:x}[3703872701923249305j;8]
"||--||--"
"|--||--|"
"--||--||"
"-||--||-"
"||--||--"
"|--||--|"
"--||--||"
"-||--||-"
tmartin
источник
Это действительно не становится проще или проще, чем это!
JohnE
1
@JohnE Это верно только для людей, которые понимают К.;)
Алекс А.
14

CJam, 33 31 байт

q~:X;2b64Te["|-"f=8/{X*X<z}2*N*

Проверьте это здесь.

объяснение

q~      e# Read and eval input.
:X;     e# Store the side length in X and discard it.
2b      e# Convert to base 2.
64Te[   e# Left-pad to length 64 with zeroes.
"|-"f=  e# Select '|' for 0 and '=' for 1.
8/      e# Split into chunks of 8 bits.
{       e# Do the following twice:
  X*    e#   Repeat lines X times (to ensure we have enough of them).
  X<    e#   Truncate them to exactly X lines.
  z     e#   Transpose the grid.
        e#   The transpose ensures that the second pass tiles the columns, and that the
        e#   grid is oriented correctly again after both passes are done.
}2*
N*      e# Join lines by newline characters.
Мартин Эндер
источник
2
Я аплодирую вам :). Это, наверное, самый быстрый ответ в истории PPCG
бета-распад
7
@BetaDecay Преимущество языков игры в гольф состоит в том, что вы печатаете меньше, и вы можете писать быстрее. : P
Мартин Эндер
1
Боже, даже потрудился отредактировать теги, прежде чем ответить! Кто-то тратит слишком много времени на игру в гольф; P
Sabre
Предназначен ли этот вывод: ссылка
Октавия Тогами
@Kenzie, что входной номер больше, чем 2^64-1.
Мартин Эндер
5

Джава, 110 109 107 байт

Мой код в форме анонимной лямбда-функции, которая принимает longиint затем возвращает a String.

(w,s)->{String b="";for(int j,i=s--;i-->0;b+='\n')for(j=s;j>=0;)b+=(w>>8*(i%8)+j--%8)%2<1?'|':45;return b;}

Полный тестируемый класс

import java.util.function.BiFunction;
public class AsciiWeave {   
    public static void main(String[] args){
        BiFunction<Long,Integer,String> weave = 
            (w,s)->{String b="";for(int j,i=s--;i-->0;b+='\n')for(j=s;j>=0;)b+=(w>>8*(i%8)+j--%8)%2<1?'|':45;return b;}}
        ;
        System.out.println(weave.apply(Long.valueOf(args[0]),Integer.valueOf(args[1])));
    }
}
Анк-Морпорка
источник
3
Должен сказать, я не привык быть побежденным Java. : P Отличная работа.
Алекс А.
Спасибо @AlexA.! Лямбды действительно делают Java более пригодным для игры в гольф: (w,s)->вместо этого String w(long w,int s)можно сэкономить сразу.
Анк-Морпорк
@Ypnypn, который определенно должен работать
ankh-morpork
Вау, это впечатляет. Молодец.
TheNumberOne
4

Matlab, 86 80 байт

function f(W,S)
a='|-';x=de2bi(typecast(W,'uint8'))+1;s=8-mod(0:S-1,8);a(x(s,s))

Спасибо Хоки за его предложение, которое позволило мне сэкономить 6 байт.

Пример:

>> W = uint64(3732582711467756595)
W =
  3732582711467756595
>> S = uint8(10)
S =
   10
>> f(W,S)
ans =
||--||--||
--||--||--
--||--||--
||--||--||
||--||--||
--||--||--
--||--||--
||--||--||
||--||--||
--||--||--
Луис Мендо
источник
de2biспасет вас еще несколько символов ;-)
Хоки
@Hoki! Благодарность! Я думал об этом ... но это дает другой порядок результата
Луис Мендо
да, вы должны вернуться a='|-'к a='-|'. И x=de2bi(typecast(W,'uint8'))+1;
пользуйся
@Hoki Мне удалось подойти, de2biпросто сдвинув 9-термин (используется для обращения). Еще раз спасибо!
Луис Мендо
3

Юлия, 145 байт

f(w,s)=(A=map(i->i=="1"?"-":"|",reshape(split(lpad(bin(w),64,0),""),8,8))';for i=1:s A=hcat(A,A)end;for i=1:s println(join(A[i>8?i%8:i,1:s]))end)

Это создает функцию, которая принимает два целых числа и печатает на стандартный вывод.

Ungolfed + объяснение:

function f(w,s)
    # Convert w to binary, left-padded with zeros to length 64
    b = lpad(bin(w), 64, 0)

    # Create an 8x8 array of | and -
    A = transpose(map(i -> i == "1" ? "-" : "|", reshape(split(b, ""), 8, 8)))

    # Horizontally concatenate A to itself s times
    for i = 1:s
        A = hcat(A, A)
    end

    # Print the rows of A, recycling as necessary
    for i = 1:s
        println(join(A[i > 8 ? i % 8 : i, 1:s]))
    end
end

Это довольно долго, и я уверен, что это можно сделать намного короче. Работаю над этим.

Алекс А.
источник
3

J, 28 байт

'|-'{~]$"1]$8 8$_64{.#.inv@[

Использование:

   3732582711467756595 ('|-'{~]$"1]$8 8$_64{.#.inv@[) 10
||--||--||
--||--||--
--||--||--
||--||--||
||--||--||
--||--||--
--||--||--
||--||--||
||--||--||
--||--||--

Пояснение (справа налево):

#.inv@[   binary representation vector of S
_64{.     padded with 0-s from the right to length 64
8 8$      reshaped in an 8 by 8 matrix
]$"1]$    tiled to a W by W size
'|-'{~    select | or - based on matrix element values

Попробуйте это онлайн здесь.

randomra
источник
2

Python, 77

lambda w,s:''.join('|-'[w>>~n/s%8*8+~n%s%8&1]+'\n'[~n%s:]for n in range(s*s))

Для каждого из s*sзначений n:

  • Вычислить координаты через divmod (i,j)=(n/s,n%s)
  • Вычислить местоположение в плитке как (i%8,j%8)
  • Вычислить соответствующую битовую позицию как 8*(i%8)+(j%8)
  • Извлеките этот бит w, сдвинув wстолько пробелов вправо и возьмите последний бит с&1 .
  • Присоединяйтесь к одному из '| -' на этой позиции
  • Добавляйте новую строку в конце каждой строки всякий раз, когда n%s==0

На самом деле, все, что в конечном итоге приводит к получению тайлинга назад, так как оно читается wс конца. Мы исправим это, используя ~nвместоn . Вместо этого я попробовал рекурсивный подход, но получилось немного дольше.

Выражение w>>~n/s%8*8+~n%s%8&1является чудом операторского приоритета.

XNOR
источник
1

Python 2, 132 байта

Конечно, это не самое элегантное решение, и оно чуть короче C, но это только начало. Ввод принимается через запятую.

k,n=input()
k=[`['|-'[int(x)]for x in'{0:064b}'.format(k)]`[2::5][i*8:i*8+8]*n for i in range(8)]*n
for j in range(n):print k[j][:n]
Када
источник
1

C 160 135 байтов

i;main(s,v)char**v;{s=atoi(v[2]);for(;i++<s*s+s;)putchar(i%(s+1)?strtoull(v[1],0,10)&1ull<<63-(i/(s+1)*8+(i%(s+1)-1)%8)%64?45:'|':10);}

Здесь можно еще поиграть в гольф, и мне нужно объяснение, но сейчас у меня нет времени :)

Ungolfed:

i;

main(s,v)
char**v;
{
    s=atoi(v[2]);
    for(;i++<s*s+s;)
        putchar(i%(s+1) ? /* print dash or pipe, unless at end of row, then print newline */
            /* Calculating which bit to check based on the position is the tough part */
            strtoull(v[1],0,10) & 1ull << 63-(i/(s+1)*8+(i%(s+1)-1)%8)%64 ? /* If bit at correct index is set, print dash, otherwise pipe */
                45 /* dash */
                : '|' /* pipe */
            : 10); /* newline */
}
Коул Камерон
источник
Не могли бы вы отформатировать заголовок как "C, 100 байт"? Таким образом, он будет отображаться в таблице лидеров лучше.
Анубиан Нуб
Да, извините за это.
Коул Кэмерон
1
У меня проблемы с тем, чтобы ваш код работал правильно в моей среде. Компилируете ли вы какие-то конкретные опции?
Анк-Морпорк
@ dohaqatar7 Похоже, что некоторые среды Linux должны stdlib.hбыть включены явно. Я не был вынужден включать это ранее, когда я тестировал на CentOS (я думаю, что это то, что я был на). Теперь на Ubuntu я не могу заставить его работать без компиляции следующим образом:gcc -include stdlib.h w.c
Коул Кэмерон
Имеет смысл, что я тестировал на Ubuntu
ankh-morpork
1

Pyth, 31 30 байт

L<*QbQjbyyMcs@L"|-".[Z64jvz2 8

Вход должен быть в две строки, Вт , то S .

Попробуй здесь

объяснение

L                              # define y(b):
  *Qb                          #   b, repeated Q (the second input) times
 <   Q                         #   cut to length Q

                        jvz2   # convert the first input to binary
                   .[Z64       # pad with 0's to length 64
             @L"|-"            # map the digits to the appropriate character
            s                  # convert the list of characters to a string
           c                 8 # chop into 8 strings
         yM                    # extend each string to the correct size
        y                      # extend the list of strings to the correct size
      jb                       # join with newlines
Ypnypn
источник