Прочитайте кросворд


11

Натхненний цим питанням щодо упаковки у цей формат.

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

Вхід:

  • 2D рядок (будь-який формат, розділений новий рядок, 2d список тощо)
  • Порожні квадрати будуть представлені символом (пробіл)
  • Кожен інший квадрат буде в нижньому регістрі.
  • Ви можете припустити, що вхід буде прокладений пробілами, щоб утворити прямокутник

Вихід:

  • Кожне знайдене слово
    • Ви повинні шукати слова вздовж і вниз
    • Слова будуть довжиною не менше двох літер
    • Якщо є повторювані слова, вам доведеться виводити їх щоразу, коли вони з’являються
  • Вам не потрібно робити будь-яку перевірку
  • Слова можуть виводитися в будь-якому порядку
  • Немає суворих правил форматування

Тестові приклади:

word
e e 
step
t d 

word, step, west, reed
---
pies
 not
  no
wasp

pies, not, no, wasp, in, eons, stop
---
igloo
    n
word

igloo, word, on

Відповіді:


8

Піт - 11 10 8 7 байт

зберегли один байт завдяки @issacg.

t#cjsCB

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

t#               Filter by if len > 1
 c               Chop by whitespace by default
  j              Join by newlines
   sCB           Input, implicit and its transpose in one list

@Maltysen Чудово.
Лина монахиня

1
Піт перемагає. Як завжди.
Лина монахиня

1
Ви можете зберегти один байт, видаливши d, що jприєднує нові рядки, які досі рубаютьсяc ... )
isaacg

@isaacg це дуже круто, спасибі
Maltysen

2

CJam, 14 байт

{_z+S*S%{,(},}

Неназваний блок, який очікує списку (вкладених) рядків у верхній частині стека і залишає замість цього список слів.

Тестуйте це тут.

Пояснення

_z    e# Duplicate and transpose the grid.
+     e# Append the transpose to the original grid.
S*    e# Join all lines by spaces to ensure that we don't get words 
      e# spanning multiple lines.
S%    e# Split around spaces, discarding empty segments.
{,(}, e# Filter: keep only those strings with length 2 or greater.

1

JavaScript (ES6), 83 байти

s=>(s+` `+[...(t=s.split`
`)[0]].map((_,i)=>t.map(t=>t[i]).join``)).match(/\w\w+/g)

0

Піт , 18 байт

Lm:d"\S\S+"1byQyCQ

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

Зразок введення:

["pies"," not","  no","wasp"," t  "]

Вибірка зразка:

[['pies'], ['not'], ['no'], ['wasp'], []]
[[], ['in', 'at'], ['eons'], ['stop']]

Як це працює:

Lm:d"\S\S+"1byQyCQ                                 The "1" here is mode
                    assign('Q',eval_input())       "1" which means show
                    @memoized                      all matches
L                   def y(b):                               v
 m:d"\S\S+"1b           return map(lambda d:regex(d,"\S\S+",1),b)
             yQ     imp_print(y(Q))
               yCQ  imp_print(y(transpose(Q)))

0

Хаскелл, 58 байт

import Data.List
f x=[w|w@(_:_:_)<-words=<<x++transpose x]

Приклад використання: f ["pies"," not"," no","wasp"]-> ["pies", "not", "no", "wasp", "in", "eons", "stop"].

Як це працює: розділіть кожен рядок вводу та перемістіть його на пробіли в один список слів. Зберігайте ті, що відповідають (_:_:_), тобто мати принаймні дві літери.


0

C ++ 14, 209 207 201 байт

Смішно висока кількість байтів ... але добре. Перекладіть матрицю, розділену рядок. Легко. Шкода, що немає вродженої функції для переміщення

[](vector<string>; m){auto t=m;int C=size(m[0]),j=0;for(;++j<C*C;)t[j%C][j/C]=m[j/C][j%C];for(j=0;++j<C+C;){stringstream Z(j<C?m[j]:t[j-C]);string s;while(getline(Z,s,' '))cout<<(size(s)>1?s+' ':"");}}

Безголівки:

using S=vector<string>;
[](S m){
  S t=m;
  int C=size(m[0]),j=0;
  for(;j<C*C;++j)t[j%C][j/C]=m[j/C][j%C]; // Transpose
  for(j=0;j<C+C;++j){ // since rectangle matrix, we can iterate like so
    stringstream Z(j<C?m[j]:t[j-C]); // Get string from m or t
    string s;
    while(getline(Z,s,' '))
      cout<<(size(s)>1?s+' ':"");
  }
}

Як ним користуватися (зверніть увагу, що ви повинні застосувати прокладку, як зазначено в питанні):

using S = vector<string>;[](S m) { ... }({"pies", " not", "  no", "wasp"});

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