Codegolf - Толкание Поршня Майнкрафт

В Майнкрафте поршни — это блоки, которые могут перемещать другие блоки. Однако они могут перемещаться не более чем на двенадцать блоков и вообще не будут работать, если на пути окажется какой-нибудь обсидиан. Кроме того, блоки слизи липкие и прилипают к другим блокам, кроме обсидиана.

Ваш вызов

Возьмите в качестве входных данных матрицу 5x5 или аналогичную матрицу, содержащую один поршень внизу, и выведите результат движения одного поршня вверх как 5x6. Формат ввода должен иметь пять различных значений для обсидиана, слизи, других блоков, поршня и пустого пространства, представленных здесь как

 
 
 
BBBBB
BBBBB
SSSSS

S   

P  
=> 

BBBBB
BBBBB
SSSSS

S  

P  
Because 16 is too many blocks.

SBS 

SBS 

SBS 

SBS 

P  
=>

B  

SBS 

SBS 

SBS 

SPS 
Because slime sticks to blocks, but blocks don't stick to slime.
O    
SSSSS

S

S

P
=>
O    
SSSSS

S

S

P

Because the obsidian is in the way, the whole thing can't move.
S S S

S S S

S P S
=>

S S S

S S S

P  
S   S

The stray blocks stay where they are.

SSSSS
B S B
B S B
B S B
B P B
=>
SSSSS
B S B

S  
B S B
B P B
B   B
The slime pulls the first two blocks, but the rest stay in place. 

OSO 

OSO 

OSO 

OSO 

OPO 
=>

S  

OSO 

OSO 

OSO 

OPO 

O O 
Slime doesn't stick to obsidian, so it's free to move. 
 
 
 

Например, предположим, что вы начинаете с

Выведите результат, если поршень был активирован, как 5x6:

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

Тестовые примеры:

Подсчет очков

Вот чем короче, тем лучше!

#код-гольф #код-гольф #матрица

Дж, ¹²¹ 98 байт

Принимает

 
 
 
 
 
 
 
 
 
 
 
 
 §§υ⊟ι⊟ι
 
 
 
 
 
 
 
 
 
 
 
 
 

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

Как это работает

• » » Start a will-be-pushed bitmap with the piston
• ?✳⊗⁺²λＦ№⪪BS¹ＫＫ⊞η⟦ⅈⅉ⟧?✳⊗λ expand the bitmap until it does not expand further:
• ↓Ｆ⁼SＫＫＦ³« Push the bitmap upwards (non-wrapping, thus Ｆ‹@ＫＫ⊞η⟦ⅈⅉ⟧ )
• Ｊ§ι⁰⊖§ι¹ but only if a non-space was pushed.
• ≔⟦⟦ⅈⅉ⟧⟧ηＦη« Extend push of the will-be-pushed slimes towards
• ≔⪫υ¶θＰθ…θ⌕θP all 4 direction
• ＷＳ⊞υι but only push slimes and blocks.
• ＷＳ⊞υι≔⪫υ¶θＰθ…θ⌕θP≔⟦⟦ⅈⅉ⟧⟧ηＦη«Ｊ§ι⁰⊖§ι¹Ｆ‹@ＫＫ⊞η⟦ⅈⅉ⟧↓Ｆ⁼SＫＫＦ³«?✳⊗⁺²λＦ№⪪BS¹ＫＫ⊞η⟦ⅈⅉ⟧?✳⊗λ» »Ｆη«Ｊ§ι⁰⁻§ι¹›‹Ｌη¹⁴⊙η⁼O§§υ§ι¹§ι⁰§§υ⊟ι⊟ι OR old bitmap, slime pushes, and up pushes for the next iteration.
• + Set the final bitmap to 0 if …
• (0,~*) There is an obsidian block in it
• 0,(*-.) or the sum (including the piston) is not less 14.
• <14>+/@,@] Original map * not-pushed bitmap and an empty row above.
• (2 e.#~&,) Original map * pushed bitmap and an empty row under.
• [(]*…) Add both maps – as empty spaces are 0 they don't overlap.

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

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

Введите макет. (Я решил принимать входные данные в виде строк, заканчивающихся символом новой строки; это позволяет вам экспериментировать с макетами разного количества строк, если вы того пожелаете.)

Выведите макет и переместите курсор в положение поршня.

Выполните поиск в ширину, начиная с положения поршня.

Перейти на квадрат над текущей позицией.

Добавьте эту позицию в список, если он не пуст.

Если текущая позиция представляет собой липкий блок, проверьте и остальные три стороны.

Если на этой стороне есть (липкий) блок, добавьте эту позицию в список.

Сотрите блок, предполагая, что он будет перемещен. Это также позволяет избежать повторного рассмотрения одного и того же блока.

Прокрутите каждый блок.

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

Распечатайте блок.