Учитывая прямоугольный стог сена размером не менее 2x2, состоящий из всех одинаковых печатаемых символов ASCII, выведите местоположение (считая от верхнего левого угла) иглы, которая является другим символом.

Например, если введен следующий стог сена:

#####
###N#
#####
#####

Выходные данные должны быть 3,1при нулевой индексации (что я буду использовать в этой задаче) или 4,2при одной индексации.

Стог сена может состоять из любого печатного символа ASCII:

^^^
^^^
^N^
^^^
^^^
^^^

выход: 1,2

и иглой будет любой другой печатный символ ASCII:

jjjjjj
j@jjjj
jjjjjj

выход 1,1

Также возможно иметь иглу в углу:

Z8
88

выход 0,0

88
8Z

выход 1,1

или иметь иглу на краю:

>>>>>>>>>>
>>>>>>>>>:
>>>>>>>>>>

выход 9,1

Правила и разъяснения

• Вход и выход могут быть заданы любым удобным способом . Это означает, что вы можете воспринимать ввод как список символов, одну строку и т. Д.
• Вы можете распечатать результат в STDOUT или вернуть его как результат функции. Пожалуйста, укажите в своем представлении, в каком порядке выводится результат (т. Е. Горизонтальный, а затем вертикальный, как используется в задании, или наоборот).
• Допустимы либо полная программа, либо функция.
• Вы не можете выбрать, какие символы использовать. Это проблема.
• Стог сена гарантированно будет размером не менее 2х2, так что однозначно, какая игла, а какая - сено.
• На входе присутствует только одна игла, и ее размер равен одному символу.
• Стандартные лазейки запрещены.
• Это код-гольф, поэтому применяются все обычные правила игры в гольф, и выигрывает самый короткий код (в байтах).

R , 49 47 44 байтов

function(m,`?`=which)m==names(?table(m)<2)?T

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

Принимает ввод как матрицу, возвращает 1-индексированные координаты

Perl 6 ,41 38 37 байт

3 байта сохранены благодаря @nwellnhof.

1 байт сохранен благодаря Джо Кингу.

{map {[+] ^∞Z*!<<.&[Z~~]},$_,.&[Z]}

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

объяснение

Он принимает входные данные в виде списка списков символов и возвращает список длиной 2, содержащий основанные на нуле координаты X и Y стрелки.

Он работает, применяя блок {[+] ^∞ Z* !<<.&[Z~~]}на входе и его транспонирования. .&[Z~~]проходит через все столбцы аргумента и возвращает, Trueесли все элементы одинаковы, в Falseпротивном случае. Затем мы отменяем все значения (поэтому у нас есть список с одним bool на столбец, где bool отвечает на вопрос «находится ли стрелка в этом столбце?»), Умножаем их поэлементно на последовательность 0,1,2 ,. .. ( True = 1и False = 0) и суммируем список, поэтому результатом всего блока является номер столбца, в котором была найдена игла, на основе 0.

Лучший подход Nwellnhof, Perl 6 , 34 байта

{map *.first(:k,*.Set>1),.&[Z],$_}

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

объяснение

Вообще такой же подход, просто более эффективный. Он по-прежнему использует блок массива и его транспонирование, но теперь блок преобразует все строки в Setsи проверяет количество элементов. Затем firstфункция выдает индекс (из-за :k) первой строки, которая содержит более 1 элемента. Из-за этого порядок $_и .&[Z]нужно было поменять местами.

Python 2 , 57 байт

lambda m:[map(len,map(set,a)).index(2)for a in zip(*m),m]

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

Порт этого для Python 3 может быть 62 байта :

lambda m:[[len(set(v))for v in a].index(2)for a in(zip(*m),m)]

Понимание списка [len(set(v))for v in a]теперь короче двойной карты на два байта, так как его нужно будет привести к списку, подобномуlist(map(len,map(set,a)))

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

Брахилог , 20 байт

c≡ᵍ∋Ȯ&;I∋₎;J∋₎gȮ∧I;J

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

Выходы [I,J], где Iнаходится индекс строки и индекс Jстолбца, оба с 0 индексами.

Глупо долго, но получение индексов в брахилоге обычно очень многословно.

объяснение

c                       Concatenate the Input into a single string
 ≡ᵍ                     Group identical characters together
   ∋Ȯ                   Ȯ is a list of One element, which is the needle character
     &;I∋₎              Take the Ith row of the Input
          ;J∋₎          Take the Jth character of the Ith row
              gȮ        That character, when wrapped in a list, is Ȯ
                ∧I;J    The output is the list [I,J]

PHP ,99 85 байт

Использование строки без перевода строки и ширины (или высоты ('########N###########', 5) в качестве ввода.

• -5 байт, удалив вызов chr (), реквизит @Titus
• -9 байтов, принимая входные данные как два аргумента функции, также поддерживает @Titus

function($a,$l){return[($p=strpos($a,array_flip(count_chars($a,1))[1]))%$l,$p/$l|0];}

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

Ungolfed:

function need_hay( $a, $l ) {

    // identify the "needle" by counting the chars and 
    // looking for the char with exactly 1 occurrence
    // note: this is 1 byte shorter than using array_search()
    $n = array_flip( count_chars( $a, 1 ) )[1];

    // find the location in the input string
    $p = strpos( $a, $n );

    // row is location divided by row length, rounded down
    $r = floor( $p / $l );

    // column is remainder of location divided by row length
    $c = $p % $l;

    return array( $c, $r );

}

Выход:

#####
###N#
#####
#####
[3,1]

^^^
^^^
^N^
^^^
^^^
^^^
[1,2]

jjjjjj
j@jjjj
jjjjjj
[1,1]

05AB1E , 9 6 байтов

Сохранено 3 байта переключения формата ввода.

Ввод принимается как строка и длина строки.
Выход - это нулевой список в форме[y, x]

D.mks‰

Попробуйте онлайн! или как тестовый набор

объяснение

D           # duplicate the input string
 .m         # get the least frequent character
   k        # get its index in the string
    s       # swap the row length to the top of the stack
     ‰      # divmod the index of the least frequent char with the row length

Python 3 + NumPy , 75 66 байт

-9 байт благодаря @ ASCII-only

lambda x:where(x.view('i')-median(x.view('i')))
from numpy import*

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

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

Он преобразует входные данные из charв, а intзатем вычисляет медиану массива, который будет символом стога сена. Мы вычитаем это из массива, что делает иглу единственным ненулевым элементом. Наконец, верните индекс этого элемента с помощью numpy.where().

Желе , 5 байт

Выходы [высота, ширина] (1-индексированный).

ŒĠLÐṂ

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

ŒĠLÐṂ – Monadic link / Full program. Takes a list of strings M as input.
ŒĠ    – Group the multidimensional indices by their values (treating M as a matrix).
  LÐṂ – And retrieve the shortest group of indices (those of the unique character).

Желе , 5 байт

ŒĠḊÐḟ

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

Желе , 4 байта

_{Возможно, это мог быть просто комментарий для мистера Xcoder, он очень похож ...}

ŒĠEƇ

Монадическая ссылка, принимающая матрицу символов, которая выдает список из одного элемента, координата с 1 индексом (строка, столбец) сверху слева.
(... Как полная программа, заданная аргументом, отформатированным так, что при синтаксическом анализе получается список списков символов - то есть список строк в формате Python - печатается одна координата.)

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

Как?

ŒĠEƇ - Link: matrix, M
ŒĠ   - multi-dimensional indices grouped by Value
     -  ...due to the 2*2 minimum size and one needle this will be a list of two lists one
     -     of which will have length one (the needle coordinates as a pair) and the other
     -     containing all other coordinates as pairs
   Ƈ - filter keeping those for which this is truthy:
  E  -   all equal?
     -   ... 1 for the list of length 1, 0 for the list of at least 3 non-equal coordinates

JavaScript (ES6), 55 байт

$(s)(w)$$s$$w$$[x,y]$

s=>w=>[(i=s.indexOf(/(.)\1+(.)/.exec(s+s)[2]))%w,i/w|0]

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

JavaScript (ES6),  65  64 байта

Сохранено 1 байт благодаря @Neil

$[x,y]$

m=>m.some((r,y)=>r.some((c,x)=>!m[p=[x,y],~y&1].includes(c)))&&p

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

Как?

$c$$(x,y)$$r[Y]$$Y\ne y$$2\times 2$$Y=0$$y$$Y=1$$y$

Java 8, 132 111 байт

m->{int c=m[0][0],i=0,j;for(c=m[1][0]!=c?m[1][1]:c;;i++)for(j=m[i].length;j-->0;)if(m[i][j]!=c)return i+","+j;}

-8 байт (и -13 более неявно) благодаря @dana .

Ввод как символьная матрица.

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

Объяснение:

m->{                    // Method with char-matrix parameter and String return-type
  int c=m[0][0],        //  Character to check, starting at the one at position 0,0
      i=0,j;            //  Index integers
  for(c=m[1][0]!=c?     //  If the second character does not equal the first:
         m[1][1]        //   Use the character at position 1,1 instead
        :c;             //  Else: keep the character the same
      ;i++)             //  Loop `i` from 0 indefinitely upwards:
    for(j=m[i].length;j-->0;)
                        //   Inner loop `j` in the range (amount_of_columns, 0]:
      if(m[i][j]!=c)    //    If the `i,j`'th character doesn't equal our character to check:
        return i+","+j;}//     Return `i,j` as result

MATL , 12 8 байт

tX:XM-&f

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

Использование modeфункции в качестве мажоритарного детектора. Возвращает 1 основанные индексы.

 t           % duplicate the input
  X:         % turn the copy into a linear array
    XM       % find the arithmetic mode of that (the 'haystack' character)
      -      % Subtract that from the original input
       &f    % find the position of the non-zero value in that result

-4 символа благодаря @LuisMendo

Wolfram Language 37 58 байт

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

#~Position~Keys[TakeSmallest[Counts@Flatten@#,1]][[1]]&

Counts@Flatten@#списки , сколько каждый символ в массиве, #.

TakeSmallest[...,1] возвращает наименее частое число в форме правила ассоциации, такого как <| "Z"->1|>

Keys...[[1]]возвращает «ключ» к единственному элементу в ассоциации - наименее используемому символу. («Z» в данном случае)

#~Position~...возвращает затем положение ключа в исходной матрице #.

Perl 5 -p00, 52 45 байт

/^(.)(\1*
)*(\1*)|^/;$_=$&=~y/
//.$".length$3

45 байт

52 байта

Как

• -p00: нравится, -nно и печать, режим абзаца
• /^(.)(\1* )*(\1*)|^/ : соответствует либо
  • от начала $1: первый символ $2,: повторение (не используется) $3,: символы перед «иглой» в строке, $&все совпадение
  • или нулевая строка (позиция 0) без захвата.
• $_= : назначить переменную ввода / аргумента по умолчанию
• так $&=~y/ //что число новых строк$&
• .$".: объединить с $"(пробел по умолчанию) и объединить
• length$3 : длина $3

R 42 байта

function(m)which(ave(m,m,FUN=length)==1,T)

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

Вход: матрица стога сенаm

Выход: (row,col) вектор - индекс, начинающийся с1

C # (интерактивный компилятор Visual C #) , 109 108 107 байт

^{First () => Last () для -1 байта}

^{каррирование за -1 байт благодаря Embodiment of Ignorance}

a=>w=>{var d=a.Where(b=>b!=a[0]).Select(b=>a.IndexOf(b));return d.Count()>1?(0,0):(d.Last()%w,d.Last()/w);}

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

J , 22 байта

$#:(i.~.{~1 i.~#/.~)@,

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

NB. возвращает ответ в формате (строка, столбец).

Python 2 , 53 47 байт

lambda s,w:divmod(s.find(min(s,key=s.count)),w)

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

Позвонить как f("########N###########", 5)(разрешено в комментарии ). Выходы(y, x) .

Эрик сохранил 6 байтов, предлагая переставить вывод + используя divmod. Благодарность!

PowerShell , 107 98 82 77 байт

$l=@{}
$args|%{if($_-10){$l.$_+=$x++,+$y}else{$x=0;++$y}}
$l|% v*|? c*t -eq 2

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

Принимает забрызганную строку с LFs. Возвращает место с нулевым индексом x, y. раскатали:

$locations=@{}                      # make a hashtable. key=char, value=location array
$args|%{
    if($_-10){                      # if current char is not LF
        $locations.$_+=$x++,+$y     # add $x,$y to hashtable value and move $x to next pos
    }else{
        $x=0;++$y                   # move $x,$y to next line
    }
}
$locations|% Values|? Count -eq 2   # find and output location array with 2 elements (x,y)

Python 3 , 93 байта

def f(s):x=s.find("\n")+1;return[(i%x,i//x)for i,c in enumerate(s)if s.count(c)<2and" "<c][0]

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

Ввод принимается как многострочная строка. Вывод 0 проиндексирован

Октава , 40 байт

@(x){[r,c]=find(x-mode(+x(:))) [c,r]}{2}

Порт ответа @ sundar's MATL . Выход представляет собой двухэлементный вектор с индексами столбцов и строк на основе 1.

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

Сетчатка 0.8.2 , 41 байт

s`(?=(.)+\1)(.*?¶)*(.*)(?!\1|¶).+
$.3,$#2

Попробуйте онлайн! 0 индексированные. Объяснение:

s`

Разрешить .совпадать с новыми строками. Это стоит 3 байта (3 байта - ?перед ¶), но экономит 6 байтов.

(?=(.)+\1)

Посмотрите вперед на двух одинаковых персонажей. \1затем становится сеном.

(.*?¶)*

Подсчитайте количество новых строк перед иглой.

(.*)

Захватите сено слева от иглы.

(?!\1|¶)

Убедитесь, что игла не сено или новая строка.

.+

Подходим остаток сена, чтобы результат заменил его.

$.3,$#2

Выведите ширину левого сена и количество новых строк.

C # (интерактивный компилятор Visual C #) , 82 байта

x=>w=>{int y=x.IndexOf(x.GroupBy(c=>c).Last(g=>g.Count()<2).Key);return(y%w,y/w);}

Спасибо Дане за то, что она сбрила 6 байтов!

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

Старое решение, 106 байт

n=>m=>{var z=n.Distinct();int d=n.IndexOf(n.Count(c=>c==z.First())>1?z.Last():z.First());return(d%m,d/m);}

Оба принимают входные данные в виде строки и целого числа, определяющего количество столбцов.

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

Java 8, 104 байта

(x,w)->{int i=0,p=x.length;for(;i<p;i++)if(x[i]!=x[(i+1)%p]&&x[i]!=x[(i+2)%p])break;return i/w+","+i%w;}

Входные данные - это массив char и целое число, указывающее ширину строки.

Выходные данные начинаются с нуля, вертикальные, а затем горизонтальные (т. Е. Номер строки, а затем номер столбца)

Объяснение:

(x,w)->{
    int i=0, p=x.length;
    for (;i<p;i++)          //iterate through characters in x
      if (x[i]!=x[(i+1)%p] && x[i]!=x[(i+2)%p])    //compare x[i] with the two subsequent characters in array, wrapping around if necessary
        break;
    return i/w+","+i%w;}  //return row number then column number, zero-based

Питон 3 , 93 89 85 58 байт

Полное переписывание взятие ввода , как concatenated string, width:

lambda g,w:divmod(g.index({g.count(c):c for c in g}[1]),w)

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

Оригинальный ответ:

def k(g):t=''.join(g);return divmod(t.index({t.count(c):c for c in t}[1]),len(g[0]))

РЕДАКТИРОВАТЬ: Сохранено 4 байта путем замены строки / отступ для точек с запятой. Сохранено еще 4 байта с помощью divmod(спасибо @JonathanFrech).

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

Я знаю, что это может быть намного короче, но я просто хотел попытаться обойти это dictпонимание.

MATL , 11 байт

tX:YmyYk-&f

Выход - строка, затем столбец; 1 на основе.

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

объяснение

t    % Implicit input. Duplicate
X:   % Linearize into a column
Ym   % Compute mean (characters are converted to ASCII codes)
y    % Duplicate from below: pushes input again
Yk   % Closest value: gives the input value that is closest to the mean
-    % Subtract, element-wise. Gives non-zero for the value farthest from the mean
&f   % Two-output find: gives row and column indices of nonzeros. Implicit display

Pyth, 15 14 12 байт

.Dxz-zh.-z{z

Принимает ввод как длину строки и ввод без строк и выводит как [строка, столбец].
Попробуй здесь

объяснение

.Dxz-zh.-z{z
       .-z{z    Subtract one of each character from the input.
      h         Take the first.
    -z          Remove all instances from the input.
  xz            Find the remaining character in the input.
.D          Q   Take the result divmod the (implicit) length of the row.

Старый подход

mxJmt{kdeSJ.TB

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

объяснение

mxJmt{kdeSJ.TB
           .TBQ   Take the (implicit) input and its transpose...
m      d          ... and for each...
   mt{k           ... deduplicate each row...
 xJ     eSJ       ... and find the index of the largest.     

Древесный уголь , 40 байт

≔§⎇⌕θ§θ¹ηθ⁰ζＳθＷ⁼№θζＬθ«⊞υωＳθ»Ｉ⌕Ｅθ⁼ιζ⁰,ＩＬυ

Попробуйте онлайн! Ссылка на подробную версию кода. Должно быть, я что-то делаю не так, потому что это почти столько же, сколько отвечает Retina. Объяснение:

≔§⎇⌕θ§θ¹ηθ⁰ζ

Проверьте, является ли второй символ в первой строке также первым символом, и возьмите первый символ первой строки, если это так, в противном случае первый символ второй строки, если нет. Это тогда сено.

ＳθＷ⁼№θζＬθ«⊞υωＳθ»

Продолжайте читать строки, пока не найдете строку, сено которой меньше ее длины.

Ｉ⌕Ｅθ⁼ιζ⁰,ＩＬυ

Выведите позицию несовпадающего элемента, а затем количество ранее прочитанных строк.

MATLAB, +68 22 байта

[r,c]=find(v~=v(1));if size(r,1)>1 disp([1,1]);else disp([r,c]);end;

Если бы я мог исключить какой-либо один случай, такой как [1,1]в этом решении, я мог бы сохранить несколько байтов.

Обновленное решение :

@(v)find(v-mode(v(:)))

Спасибо @sundar за помощь в решении особого случая и экономию 42 байта! Кроме того, спасибо @Luis_Mendo за предложения и сохранение мне еще 2 байта!

Рёда , 81 байт

f a{i=indexOf;l=i("
",a)+1;chars a|sort|count|[[_2,_1]]|min|i _[1],a|[_%l,_1//l]}

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

Принимает ввод как строку, содержащую строки, оканчивающиеся на новую строку. Возвращает поток, содержащий 0-индексированные горизонтальные и вертикальные индексы.