Очень простая сетка

29

Напишите программу или функцию, которая принимает три натуральных числа, W, H и N. Напечатайте или верните сетку W × H, .где каждый N-й .в обычном английском порядке чтения заменен на X.

Например, если W = 7, H = 3, N = 3, сетка имеет 7 символов в ширину и 3 в высоту, а каждое третье чтение символов слева вверху представляет собой X:

..X..X.
.X..X..
X..X..X

Точно так же, если вход W = 10, H = 4, N = 5, выход будет:

....X....X
....X....X
....X....X
....X....X

Заметки

  • «Обычный порядок чтения по-английски» означает движение слева направо в каждой строке, от верхней строки до нижней.
  • Когда N равно 1, тогда все .становятся X's.
  • Вы можете использовать любые два различных печатных символа ASCII вместо .и X.
    • Если вы используете space ( ), то конечные пробелы не требуются, если результат будет визуально одинаковым. (Пустые строки все еще требуются.)
    • Вы не можете использовать что-то другое вместо новых строк, которые формируют сетку.
  • Точный формат ввода и порядок W, H и N не являются супер важными. Вещи как [H,W,N]или N\nW,Hв порядке.
  • Завершающий перевод строки в выводе в порядке.
  • Самый короткий код в байтах побеждает!

Примеры

W = 5, H = 3, N = 1
XXXXX
XXXXX
XXXXX

W = 5, H = 3, N = 2
.X.X.
X.X.X
.X.X.

W = 5, H = 3, N = 3
..X..
X..X.
.X..X

W = 5, H = 3, N = 4
...X.
..X..
.X...

W = 5, H = 3, N = 5
....X
....X
....X

W = 5, H = 3, N = 6
.....
X....
.X...

W = 5, H = 3, N = 7
.....
.X...
...X.

W = 5, H = 3, N = 15
.....
.....
....X

W = 5, H = 3, N = 16 (or more)
.....
.....
.....

W = 1, H = 1, N = 1
X

W = 1, H = 1, N = 2 (or more)
.

W = 8, H = 6, N = 2
.X.X.X.X
.X.X.X.X
.X.X.X.X
.X.X.X.X
.X.X.X.X
.X.X.X.X

W = 8, H = 6, N = 3
..X..X..
X..X..X.
.X..X..X
..X..X..
X..X..X.
.X..X..X

W = 8, H = 6, N = 4
...X...X
...X...X
...X...X
...X...X
...X...X
...X...X

W = 8, H = 6, N = 7
......X.
.....X..
....X...
...X....
..X.....
.X......

W = 8, H = 6, N = 16
........
.......X
........
.......X
........
.......X

W = 37, H = 1, N = 4
...X...X...X...X...X...X...X...X...X.

W = 1, H = 10, N = 8
.
.
.
.
.
.
.
X
.
.
Кальвин Хобби
источник
1
Правильно ли я предположить, что ограничение « Вы не можете использовать что-то другое вместо новых строк, которые формируют сетку » включает в себя « Вы не можете возвращать массив ["..X..X.", ".X..X..", "X..X..X"]как сетку »?
Питер Тейлор
@PeterTaylor Correct
Хобби Кельвина

Ответы:

13

J 9 5 байт

$":&1

Использует пробелы и 1'ы и ожидает ввода в видеH W f N

Объяснение:

$":&1
   &1 bonds the fixed right argument 1 to ":
 ":   formats the right argument number (1) to take up left argument (N) number of cells
      padding with spaces, resulting  in "  1"
$     reshape to H-by-W with repeating the string if necessary 

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

   3 7 ($":&1) 3
  1  1 
 1  1  
1  1  1

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

randomra
источник
Обрезает ли он также массив, если W * H меньше N?
Мартин Эндер
@ MartinBüttner Да.
Рандомра
Если аргумент есть ($":&1), не будет ли это считаться 7 байтами?
Рето Коради
1
Нет, ()они не являются частью функции; Вы могли бы написать f =. $":&1и тогда 3 7 f 3.
Линн
11

Python 2, 60 байт

w,h,n=input()
s='%%%dd'%n%0*w*h
exec"print s[:w];s=s[w:];"*h

Это печатает пространство и 0вместо .и X. Ввод принимается как кортеж в виде w,h,n.

xsot
источник
4
Это умный формат строки.
xnor
7

J, 12 байт

$'X'_1}#&'.'

Это диадическая функция, которая принимает массив в H Wкачестве левого аргумента и Nправого аргумента. Использование:

  f =: $'X'_1}#&'.'
  3 5 f 3
..X..
X..X.
.X..X

объяснение

$'X'_1}#&'.'
         '.'  The character '.'
       #&     repeated N times
    _1}       with the last character
 'X'          replaced by 'X'
$             reshaped into an HxW array
Zgarb
источник
Правильный инструмент для работы ?
Эддисон Крамп
Является ли использование X.действительно кратчайшим?
lirtosiast
@ThomasKwa Я верю в это. Вместо этого я попытался использовать цифры 0 и 1, но затем мне пришлось заключить в _1скобки круглые скобки и отформатировать пробелы между столбцами, и получилось больше.
Згарб
5

BBC Basic, 67 символов ASCII, токенизированный размер файла 43 байта

Скачать переводчик можно по адресу http://www.bbcbasic.co.uk/bbcwin/download.html.

INPUTw,h,n:WIDTHw:PRINTLEFT$(STRING$(w*h,STRING$(n-1,".")+"X"),w*h)

BBC basic имеет удобную команду для ограничения ширины поля. Мы используем STRING$для создания w*hкопии строки n-1периодов, за которой следует X. Затем мы используем LEFT $ для усечения этого до w*hсимволов.

Уровень реки St
источник
4

Минколанг 0,14 , 34 30 28 22 байта

n2-D1n$zn[z[1Rd6ZO]lO]

Проверьте один случай здесь и проверьте все тесты здесь. Ожидает ввода, как N W H.

объяснение

n                 Take number from input (N)
 2-               Subtract 2
   D              Duplicate the top of stack (which is 0 because it's empty) N-2 times
    1             Push a 1 onto the stack
n                 Take number from input (W)
 $z               Store W in the register (z)
n                 Take number from input (H)
 [                Open a for loop that repeats H times
  z[              Open a for loop that repeats W times
    1R            Rotate 1 step to the right
      d           Duplicate top of stack
       6Z         Convert number to string
         O        Output as character
          ]       Close for loop
           lO     Output a newline
             ]    Close for loop

Поскольку кодовое поле Минколанга является тороидальным, оно будет перенесено в начало. Как nтеперь все примут -1, это в конечном итоге завершится с ошибкой и без дальнейшего вывода, что разрешено.

El'ndia Starman
источник
Так что вам легко сравнивать. (Обратите внимание, что это не совсем тот же код.)
El'endia Starman
Впереди тебя! : P :)
El'endia Starman
4

CJam (16 байт)

{1$*,:)@f%:!/N*}

Делает ввод в стеке в порядке N W H, возвращает строку с использованием символов 0и 1. Онлайн демо

рассечение

{        e# Anonymous function. Stack: N W H
  1$*,   e# Stack: N W [0 1 ... W*H-1]
  :)     e# Stack: N W [1 2 ... W*H]
  @f%    e# Stack: W [1%N 2%N ... W*H%N]
  :!     e# Map Boolean not, taking 0 to 1 and anything else to 0
  /      e# Split into W-sized chunks (i.e. the lines of the grid)
  N*     e# Join the lines with newlines
}
Питер Тейлор
источник
; -; ты ударил меня ;-; но хорошая работа! : D
anOKsquirrel
4

APL, 13 байт

{⍪,/⍕¨⍺⍴⍵=⍳⍵}

Это принимает H Wв качестве левого аргумента и Nв качестве правого аргумента.

Объяснение:

{⍪,/⍕¨⍺⍴⍵=⍳⍵}     Dyadic function (args are ⍺ on left, ⍵ on right):
        ⍵=⍳⍵      ⍵ = (1 2 3...⍵); this is ⍵-1 0s followed by a 1
      ⍺⍴          Shape by the left argument; e.g. 5 3 gives a 5x3 array
    ⍕¨            Stringify each entry
  ,/              Join the strings in each row 
 ⍪                Make column vector of strings

Попробуйте онлайн: первые контрольные примеры , последний контрольный пример . Обратите внимание, что хотя это показывает вывод в штучной упаковке, моя копия Dyalog не делает.

lirtosiast
источник
Это на самом деле просто поля или приложение SE не отображает символы должным образом?
Carcigenicate
@Carcigenicate Они не коробки. Символы должны отображаться нормально в онлайн-ссылке, потому что у них другой шрифт.
Lirtosiast
Ааа, верно. Я пропустил это. У вас есть специальная клавиатура или вы мазохист?
Carcigenicate
@Carcigenicate В tryapl (и Dyalog Student Edition) вы можете вводить символы APL с помощью обратных галочек. `а превращается в ⍺, например.
lirtosiast
2

CJam, 20 байт

q~:Z;_@*,:){Z%!}%/N*

Принимает ввод как HW N.

anOKsquirrel
источник
упс, недействительно
anOKsquirrel
исправлено: D: D: D: D
anOKsquirrel
Все еще намного дольше, чем некоторые из решений на других языках, но я получил его до 18 байт с помощью CJam: q~_@*,@(S*'X+f=/N*с вводом в порядке NH W.
Рето Коради
1
@RetoKoradi Снимите еще один, заменив 'Xна 0, и это будет 17
Sp3000
2

MATLAB, 61 55 54 байта

function c=g(d,n);b=ones(d);b(n:n:end)=0;c=[b'+45,''];

Ух ты, я думал, что MATLAB будет конкурентоспособен в этом, но как я ошибался!

Функция создает массив из 1 правильных размеров, а затем устанавливает каждый n-й элемент равным 0 (MATLAB неявно обрабатывает обтекание индексов в 2D). Затем мы добавляем 45 ('-') к этому числу и преобразуем в массив символов для возврата.

Вопросы позволяют использовать любые два различных символа ASCII для сетки, я использую '-' вместо 'x', чтобы сохранить несколько байтов. Формат ввода также не является фиксированным, поэтому он должен быть представлен как [w h],n- то есть массив ширины и высоты, а затем n в качестве второго параметра.


Это также работает с Octave и можно попробовать онлайн здесь . Функция уже настроена в связанном рабочем пространстве, поэтому вы можете просто вызвать, например:

g([4,5],3)

Какие выводы:

..-.
.-..
-..-
..-.
.-..
Том Карпентер
источник
Сохраните один байт:c=[b'+45,''];
Стьюи Гриффин
@StewieGriffin Спасибо :). По какой-то причине, когда я попробовал, что я не думал, что это спасло байты, я, должно быть, ошибся!
Том Карпентер
2

Обработка, 93 байта (Java, 104 байта)

void f(int a,int b,int c){for(int i=0;i<a*b;i++)print((i%c>c-2?"X":".")+(i%a>a-2?"\n":""));}}

Причина, по которой я использовал Processing вместо Java, заключается в том, что вам не нужно получать доступ к указателю с помощью подсказок, System.outпотому что локальная переменная доступна напрямую. Я заработал 11 байтов с этим. Функция не возвращает результат, а печатает его.

6infinity8
источник
2
Вы можете сохранить другой, переместив приращение (например i++%a...), и похоже, что вы также оставили запасной }конец, который вам не нужен.
Geobits
2

Japt , 33 32 27 25 байт

SpW-1 +Q p-~U*V/W f'.pU)·

Принимает ввод в формате W H N. Использует  и "вместо .и Xсоответственно. Попробуйте онлайн!

Неуправляемый и объяснение

SpW-1 +Q p-~U*V/W f'.pU)·qR
          // Implicit: U = width, V = height, W = interval
SpW-1 +Q  // Create a string of W - 1 spaces, plus a quotation mark.
p-~U*V/W  // Repeat this string ceil(U*V/W) times.
f'.pU)    // Split the resulting string into groups of U characters.
qR        // Join with newlines.
          // Implicit: output last expression

Предложения приветствуются!

ETHproductions
источник
2

Витси , 25 23 22 21 19 Байт

Спасибо @ Sp3000 за то, что он указал, что мне не нужен дубликат, и сэкономил мне 2 байта!

Принимает вход как N W H. Попробуйте онлайн!

1}\0XrV\[V\[{DN]aO]
1                         Push 1 to the stack.
 }                        Push the backmost to the front and subtract 2.
  \0X                     Duplicate the 0 temp variable times.
     r                    Reverse the stack.
      V                   Save as final global variable.
       \[         ]       Repeat top item times.
         V\[   ]          Repeat global variable times.
            {DO           Duplicate, output, then shift over an item.
                aO        Output a newline.
Аддисон Крамп
источник
1

К, 21 19 18 14 байт

Принимает аргументы как (H W;N):

{".X"x#y=1+!y}

В бою:

  f:{".X"x#y=1+!y};

  f.'((3 5;1);(3 5;2);(3 7;3);(4 10;5);(3 5;16))
(("XXXXX"
  "XXXXX"
  "XXXXX")
 (".X.X."
  "X.X.X"
  ".X.X.")
 ("..X..X."
  ".X..X.."
  "X..X..X")
 ("....X....X"
  "....X....X"
  "....X....X"
  "....X....X")
 ("....."
  "....."
  "....."))
Johne
источник
1

R, 66 байт

function(w,h,n){x=rep(".",a<-w*h);x[1:a%%n<1]="X";matrix(x,h,w,T)}

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

Ungolfed:

f <- function(w, h, n) {
    # Get the area of the square
    a <- w*h

    # Construct a vector of dots
    x <- rep(".", a)

    # Replace every nth entry with X
    x[1:a %% n == 0] <- "X"

    # Return a matrix constructed by row
    matrix(x, nrow = h, ncol = w, byrow = TRUE)
}
Алекс А.
источник
1

JavaScript (ES6), 65 60 байт

(w,h,n)=>eval('for(i=r=``;i++<w*h;i%w?0:r+=`\n`)r+=i%n?0:1')

объяснение

(w,h,n)=>eval('    // use eval to remove need for return keyword
  for(
    i=             // i = current grid index
      r=``;        // r = result
    i++<w*h;       // iterate for each index of the grid
    i%w?0:r+=`\n`  // if we are at the end of a line, print a newline character
                   // note: we need to escape the newline character inside the template
  )                //       string because this is already inside a string for the eval
    r+=i%n?0:1     // add a 0 for . or 1 for X to the result
                   // implicit: return r
')

Тест

user81655
источник
1

Mathematica, 85 байт

""<>(#<>"
"&/@ReplacePart["."~Table~{t=# #2},List/@Range[#3,t,#3]->"X"]~Partition~#)&

Как и во многих других решениях, это создает одну строку, а затем разделяет ее.

LegionMammal978
источник
1

JavaScript (ES6), 55 байт

(w,h,n)=>(f=i=>i++<w*h?+!(i%n)+(i%w?"":`
`)+f(i):"")(0)

Использует IIFE f для цикла, чтобы сохранить оператор возврата.

Выход для w = 5, h = 3, n = 7:

00000
01000
00010
intrepidcoder
источник
1

C #, 185 байт

using System;class x{void a(int w,int h,int n){int c=1;for(int i=0;i<h;i++){for(int j=1;j<=w;j++){if(c%n==0){Console.Write("x");}else{Console.Write(".");}c++;}Console.WriteLine();}}}

Для более удобочитаемого чтения:

using System;
class x
{
  void a(int w, int h, int n)
  {
    int c = 1;
    for (int i = 0; i < h; i++)
    {
        for (int j = 1; j <= w; j++)
        {
            if (c % n == 0)
            {
                Console.Write("x");
            }
            else
            {
                Console.Write(".");
            }
            c++;
        }
        Console.WriteLine();
     }
  }
}

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

new x().a(7, 3, 3);
Хулио Мурта
источник
0

Юлия, 50 байтов

f(w,h,n)=reshape([i%n<1?"X":"." for i=1:w*h],w,h)'

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

Ungolfed:

function f(w::Integer, h::Integer, n::Integer)
    # Construct an array of strings in reading order
    a = [i % n == 0 ? "X" : "." for i = 1:w*h]

    # Reshape this columnwise into a w×h array
    r = reshape(a, w, h)

    # Return the transpose
    return transpose(r)
end
Алекс А.
источник
0

Рубин, 67 56 байт

->w,h,n{(1..h).map{(1..w).map{o,$.=$.%n<1?1:0,$.+=1;o}}}

Печать массива, поскольку он принят.

67 байт

->w,h,n{i=1;puts (1..h).map{(1..w).map{o,i=i%n<1?1:0,i+=1;o}.join}}

Ungolfed:

-> w, h, n {
  (1..h).map {
    (1..w).map {
      o, $. = $.%n < 1 ? 1 : 0, $.+ = 1
      o
    }
  }
}

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

->w,h,n{(1..h).map{(1..w).map{o,$.=$.%n<1?1:0,$.+=1;o}}}[8,6,7]
=> [[0, 0, 0, 0, 0, 0, 1, 0], [0, 0, 0, 0, 0, 1, 0, 0], [0, 0, 0, 0, 1, 0, 0, 0], [0, 0, 0, 1, 0, 0, 0, 0], [0, 0, 1, 0, 0, 0, 0, 0], [0, 1, 0, 0, 0, 0, 0, 0]]
Васу Адари
источник
0

MATLAB, 44 байта

Примечание: совсем другой подход, чем тот, который использовал Том Карпентер.

@(x,y)char(reshape(~mod(1:prod(x),y),x)'+46)

Определяет анонимную функцию, которая принимает входные данные как [W,H],N. Я подошел к этой проблеме, используя not-the-modulo-of- N для массива 1: W * H, а затем просто изменил решение для двумерного массива, который затем преобразуется в массив символов.

Пример вывода для [5,3],7:

.....
./...
.../.
slvrbld
источник
0

Common Lisp, SBCL, 94 байта

(lambda(a b c)(dotimes(i(* a b))(format t"~:[.~;X~]~@[~%~]"(=(mod(1+ i)c)0)(=(mod(1+ i)a)0))))

объяснение

~:[.~;X~] <-- takes argument - if argument is true write ., if false write X
~@[~%~] <-- takes argument - if argument is true write newline, if not treat argument as if it was not used

(=(mod(1+ i)c)0)(=(mod(1+ i)a)0) выглядит довольно глупо (потому что это так похоже, но я не знаю, можно ли это решить, сохраняя байты

Я использую (1+ i)вместо того, iпотому что dotimesначинается с, i=0и я хочу начать с 1. Это также полезно, потому что я могу использовать (* a b)вместо(1+(* a b))


источник
-1

Ява, 185 183 байта

Спасибо Томасу Ква, за то, что он спас мне 2 байта!

interface B{static void main(String[] a){int w = Byte.parseByte(a[0]);for(int i=0;i++<w*Byte.parseByte(a[1]);)System.out.print((i%Byte.parseByte(a[2])>0?".":"X")+(i%w<1?"\n":""));}}

Ungolfed (иш):

interface A {
  static void main(String[] a) {
    int w = Byte.parseByte(a[0]);
    for(
      int i = 0;
      i++ < w*Byte.parseByte(a[1]);
    )
      System.out.print((
        i%Byte.parseByte(a[2]) > 0 ? "." : "X"
        )+(
        i%w < 1 ? "\n" : ""
      ));
  }
}

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

$ java B 5 3 7
.....
.X...
...X.

Может быть, Java выиграет один день: P

Phinet
источник
Я думаю, что вы можете использовать >0вместо !=0и <1вместо ==0.
Lirtosiast