15

Oto mapa, powiedzmy, lochu ...

##########
#    #####
#    #####
##########
##########
##########
##########
####    ##
####    ##
##########

Powiedzmy, że bohater jest w pokoju A (w lewym górnym rogu), a jego cel (książę w niebezpieczeństwie?) Znajduje się w pokoju B (w prawym dolnym rogu). Nasza mapa nie pozwala bohaterowi przejść do celu.

Musimy dodać przejście ...

##########
#    #####
#    #####
####.#####
####.#####
####.#####
####.#####
####    ##
####    ##
##########

Tam, o wiele lepiej!

Zasady

Program lub funkcja, która akceptuje mapę lochów (złożoną z skrótów i spacji, z wierszami oddzielonymi znakami nowej linii).
Wyświetli mapę z kropkami dodanymi w celu oznaczenia przejść we wszystkich przestrzeniach, które znajdują się na bezpośredniej ścieżce między znakami spacji.
Nie zmieni długości ani liczby linii.
Wszystkie przejścia są w linii prostej od spacji do spacji.
- Przejścia nie mogą zawracać za rogami
- Nie będą one znajdować się między spacjami a krawędzią mapy.
Użyj dowolnego języka.
Spróbuj wykonać konwersję w jak najmniejszej liczbie bajtów.
Jeśli nie można narysować żadnych przejść, zwróć mapę bez zmian.
Mapa powinna zawsze mieć skróty wokół wszystkich krawędzi (nie musisz obsługiwać spacji na krawędzi).
Mapy wejściowe są zawsze prostokątne, każdy rząd powinien mieć tę samą szerokość.

Przypadki testowe

####       ####
#  #   =>  #  #
#  #       #  #
####       ####

##########        ##########
#    #####        #    #####
#    #####        #    #####
##########        ####.#####
##########    =>  ####.#####
##########        ####.##### 
##########        ####.#####
####    ##        ####    ##
####    ##        ####    ##
##########        ##########

##########        ##########
#    #####        #    #####
#    #####        #    #####
##########        ##########
##########    =>  ##########
##########        ########## 
##########        ##########
######  ##        ######  ##
######  ##        ######  ##
##########        ##########

##########        ##########
#    #####        #    #####
#    #####        #    #####
##########        ####.#####
##########    =>  ####.#####
####   ###        ####   ### 
##########        ######.###
######  ##        ######  ##
######  ##        ######  ##
##########        ##########

##########        ##########
#    #####        #    #####
#    #####        #    #####
##########        ##..######
##########    =>  ##..######
##########        ##..###### 
##########        ##..######
## #######        ## .######
##  ######        ##  ######
##########        ##########

##########        ##########
#    #####        #    #####
#    #####        #    #####
##########        #.########
##########    =>  #.########
##########        #.######## 
#######  #        #.#####  #
#######  #        #.#####  #
# #####  #        # .....  #
##########        ##########

##########        ##########
#    #####        #    #####
#    #####        #    #####
##########        #.########
#####  ###    =>  #.###  ###
#####  ###        #.###  ### 
#######  #        #.#####  #
#######  #        #.#####  #
# #####  #        # .....  #
##########        ##########

##########        ##########
##       #        ##       #
##########        ##......##
##########        ##......##
##########    =>  ##......##
##########        ##......## 
##########        ##......##
##########        ##......##
#       ##        #       ##
##########        ##########

##########        ##########
####  ####        ####  ####
####### ##        ####..# ##
###### ###        ####.. ###
# ### ## #    =>  # ... .. #
# ## ### #        # .. ... # 
### ######        ### ..####
## #######        ## #..####
####  ####        ####  ####
##########        ##########

— AJFaraday
źródło

Czy mogę używać innych znaków niż #i .?

— user202729,

1

@ user202729 Nie. Od samego początku było to w przepisach i jest już jedna odpowiedź. Prawdopodobnie najlepiej pozostawić wymagania spójne.

— AJFaraday,

@ user202729 Przypadek testowy, który zasugerowałeś, jest podobny do mojego przedostatniego przypadku. Mogę go dodać, kiedy następnym razem zmienię pytanie, ale to nie dodaje wiele.

— AJFaraday,

... po prostu nie przewijałem w dół. Nie ma problemu.

— user202729,

@ l4m2 Obowiązują te same zasady, wszędzie tam, gdzie między pokojami jest linia prosta, jest to przejście. Tak więc pokój w kształcie litery U wypełniłby lukę pasażami.

— AJFaraday,

7

Galaretka , 17 bajtów

ỴḲaLḊṖƊ¦”.KƊ€Z$⁺Y

Wypróbuj online!

Podstępne -1 dzięki user202729 .

Wyjaśnienie:

ỴḲaLḊṖƊ¦”.KƊ€Z$⁺Y Arguments: S
Ỵ                 Split S on newlines
 ḲaLḊṖƊ¦”.KƊ€Z$   Monadic link
 ḲaLḊṖƊ¦”.KƊ€      Map over left argument
 ḲaLḊṖƊ¦”.KƊ        Monadic link
 Ḳ                   Split on spaces
  aLḊṖƊ¦”.           Dyadic link with right argument '.'
  aLḊṖƊ¦              Apply at specific indices
  a                    Logical AND (vectorizes)
   LḊṖƊ                Monadic link
   L                    Length
    Ḋ                   Range [2..n]
     Ṗ                  Remove last element
          K          Join with spaces
             Z     Zip
               ⁺  Previous link
                Y Join with newlines

— Erik the Outgolfer
źródło

2

Zawsze mnie zadziwia, jak szybko ludzie mogą stawić czoła tym wyzwaniom i tak mało postaci.

— AJFaraday,

@AJFaraday Cóż, więc Ty też możesz być jego częścią. :) Po prostu zacznij od języków gry w golfa opartych na stosach (np. CJam, 05AB1E) i stamtąd.

— Erik the Outgolfer

Szczerze mówiąc, wydaje mi się, że to daleko, ale uwielbiam patrzeć, jak ten proces działa.

— AJFaraday,

7

Chwila, czy TNB to skrót od „herbata i ciastka”? A może jestem teraz super-Brytyjczykiem?

— AJFaraday,

5

Wyjaśnienie byłoby fajne dla tej odpowiedzi.

— Tamás Sengel,

5

Perl 5 `-p0` , 56 bajtów

#!/usr/bin/perl -p0
/
/;$n="(.{@+})*";s%#%/ #*\G#+ |(?= )$n\G$n /s?".":$&%eg

Wypróbuj online!

— Ton Hospel
źródło

3

APL + WIN, 87 bajtów

Monity o matrycę znaków:

n←(' '=m←⎕)⋄c←(∨⍀n)+⊖∨⍀⊖n⋄r←(∨\n)+⌽∨\⌽n⋄((,c>1)/,m)←'.'⋄((,r>1)/,m)←'.'⋄((,n)/,m)←' '⋄m

— Graham
źródło

3

Haskell , 209 165 162 bajtów.

import Data.List
t=transpose
k=concat
j a=(foldr1 max<$>)<$>t<$>t[a,f<$>a,t$f<$>t a]
f b|(e:g:d@(h:_:_))<-group b=k[f$e++g,'.'<$h,drop(length h)$f$k d]|1>0=' '<$b

Wypróbuj online!

Nie jestem najbardziej efektywnym sposobem na zrobienie tego w Haskell, jestem tego pewien. ~~Mam na to za dużo nawiasów, ale nie jestem pewien, jak je usunąć.~~

— Aoemica
źródło

2

Witamy na stronie! Możesz zmniejszyć niektóre nawiasy, używając $( (k(take 2 c))staje się (k$take 2 c)). Możesz również użyć !!0zamiast headw niektórych przypadkach.

— Post Rock Garf Hunter,

Właściwie w konkretnym przypadku (k(take 2 c))możesz po prostu usunąć zewnętrzne nawiasy, nie są one potrzebne. Ale w przypadku drop(length(head d))możesz nadal korzystać z $, zastępując go drop(length$head d)(a nawet drop(length$d!!0)).

— Post Rock Garf Hunter,

Ponadto, jeśli użyjesz kzamiast tego ++, możesz znacznie zmniejszyć ostatnią linię. k[' '<$k(take 2 c),'.'<$d!!0,drop(length$d!!0)$f$k$d].

— Post Rock Garf Hunter,

Ostatni golf, ostatnia linia może być zastąpiona f b|(e:g:d@(h:_:_))<-group b=k[' '<$e++g,'.'<$h,drop(length h)$f$k d]|1>0=' '<$b, to używa dopasowania wzoru, aby wykonać wiele ciężkich podnoszenia, które były wykonywane wcześniej.

— Post Rock Garf Hunter,

1

Dzięki za ciężkie gry w golfa @ user56656! Ungolfed Miałem f jako 2 funkcje i po prostu wkleiłem je razem, nie optymalizując ich jako całości. Warto o tym pamiętać.

— aoemica,

2

Python 2 , 173 148 bajtów

m=input().split('\n')
exec"m=zip(*[[c*(c!='#')or'#.'[(' 'in r[i:])*(' 'in r[:i])]for i,c in enumerate(r)]for r in m]);"*2
for r in m:print''.join(r)

Wypróbuj online!

— ovs
źródło

2

Retina 0.8.2 , 95 bajtów

+`(?<=(.)*)#(?=.*¶(?>(?<-1>.)*)[ .])
.
+`\.(?=(.)*)(?<![ .](?>(?<-1>.)*)¶.*)
#
 (\S+) 
 $.1$*.

Wypróbuj online! Wyjaśnienie:

+`(?<=(.)*)#(?=.*¶(?>(?<-1>.)*)[ .])
.

Szuka #znaków znajdujących się nad spacjami lub .s i zamienia je w kropki, dopóki nie zostaną żadne. Lookbehind znajduje #kolumnę, a następnie lookahead przeskakuje do następnej linii i atomowo do tej samej kolumny poniżej, aby spacja lub .pasowała tylko wtedy, gdy jest dokładnie poniżej #.

+`\.(?=(.)*)(?<![ .](?>(?<-1>.)*)¶.*)
#

Wyszukuje .s, które nie znajdują się poniżej spacji lub .s i zamienia je z powrotem w #s, dopóki nie zostaną żadne. Lookahead znajduje .kolumnę, a następnie lookbehind przeskakuje do poprzedniej linii i atomowo do tej samej kolumny powyżej w bardzo podobny sposób, aby spacja lub .mogła się dopasować tylko, jeśli jest dokładnie powyżej #. Zastosowano ujemny wygląd, więc działa to również dla .s w górnym rzędzie.

 (\S+) 
 $.1$*.

(Zwróć uwagę na końcowe spacje w obu wierszach) To po prostu wyszukuje wszystkie przebiegi znaków spacji między spacjami i zapewnia, że wszystkie są .s.

— Neil
źródło

1

Rubinowy , 104 bajty

->s{2.times{s=((0...s=~/\n/).map{|i|s.lines.map{|b|b[i]}*""}*"\n").gsub(/ [#.]+(?= )/){$&.tr(?#,?.)}};s}

Wypróbuj online!

Cóż, to nie jest świetne, ale przynajmniej jest skomplikowane. Jestem pewien, że można to poprawić.

— Przywróć Monikę - notmaynard
źródło

1

Stax , 19 bajtów

╛XA╟φkôα`æbπ┐w↨╙j≥☺

Uruchom i debuguj

— rekurencyjny
źródło

Obawiam się, że twój link debugowania pokazuje pusty kod.

— AJFaraday

@AJFaraday: Z jakiej przeglądarki korzystasz? Działa dla mnie w Chrome na Windows.

— rekurencyjny

1

JavaScript (Node.js) , 205 193 190 186 181 175 172 bajtów

r=>r.split`
`.map(x=>[...x]).map((R,y,r)=>R.map((c,x)=>{for(D=2;c<"#"&&D--;){for(;(T=(r[y+=D]||0)[x+=!D])>" ";);for(;r[y-=D][x-=!D]>c;)T?r[y][x]=".":0}})&&R.join``).join`
`

Wypróbuj online!

Skomentował

f=r=>r.split`
` ->                                     //getting as string with lines
.map(x=>[...x])                          //to 2d string array
  .map((R,y,r)=>                         //r - the new 2d string array
    R.map((c,x)=>{                       //
      for(D=2;c<"#"&&D--;)              //instead of using if joining c==" " with the loop,D=1/0
        {for(;                           //
         (T=(r[y+=D]||0)[x+=!D])>" ";);  //0[num] = undefined. checking for a path - consisting of # or .(or not consisting of space or undefined), we dont need temp (X,Y) because in the next loop we will return to our original position regardless of the correctness of the path
           for(;T&&r[y-=D][x-=!D]>c;)    //again instead of if(T) combine with loop. if T is not undefined it will be a space because the array can return .#(space). and we then go back to the source(x,y)
                                         //remeber that c==" "
             r[y][x]="."                 //and just putting . where weve been
     }})&&R.join``                       //instead of return r as string at the end , we know that we cant change a row at a smaller index(due to D-0/1) so we can return R.join`` already
    ).join`
`

— DanielIndie
źródło

Dołącz do pokoi

Zasady

Przypadki testowe

Galaretka , 17 bajtów

Perl 5 -p0 , 56 bajtów

APL + WIN, 87 bajtów

Haskell , 209 165 162 bajtów.

Python 2 , 173 148 bajtów

Retina 0.8.2 , 95 bajtów

Rubinowy , 104 bajty

Stax , 19 bajtów

JavaScript (Node.js) , 205 193 190 186 181 175 172 bajtów

Skomentował

Perl 5 `-p0` , 56 bajtów