Anda seorang penjelajah, memetakan dunia yang tidak dikenal. Kapal Anda terbawa angin. Kemana perginya, siapa yang tahu?

Setiap hari, di spyglass Anda, Anda melihat fitur di utara, selatan, timur dan barat. Anda selalu melihat empat fitur tersebut, sesuai dengan arah mata angin. Spyglass Anda melaporkan simbol ASCII seperti ini:

~~.*, ~~~~, ~.^^,~#~#

Simbol berada dalam urutan (utara, selatan, timur, barat).

Ini adalah simbol: ~= laut, .= pantai, ^= gunung, *= pohon, #= tidak valid (tidak ada pengamatan, ini terjadi setiap kali Anda melihat ujung dunia, atau bentang alam dikaburkan oleh kabut). Spyglass Anda melihat tepat satu unit di setiap arah.

Setiap malam, Anda melihat bintang-bintang untuk melihat seberapa jauh Anda bepergian. Melihat bintang-bintang melaporkan simbol ascii seperti ini:

n, s, e,w

masing-masing sesuai dengan Utara, Selatan, Timur dan Barat. Anda selalu memindahkan tepat satu unit ke utara, selatan, timur atau barat setiap malam. Jadi Anda, sebagai penjelajah akan menerima aliran simbol tanpa akhir:

~~.*n~~~~s~~.*s~.**

Tugas Anda adalah menampilkan peta 2D dunia (di mana ?ada bagian peta yang tidak diketahui, utara naik, timur kanan):

?~~~??????
?~~~??????
?~~~.^^.??
?~~.***.~~
~~.*^^*.~~
~~~..~~~~~
~~~~~~~~~~
~~~~~~~~~~

Demi kesederhanaan, mari kita asumsikan Anda mulai di sudut kiri bawah peta. Asumsikan semua peta adalah 8x8.

Berikut ini adalah contoh 3x3 sederhana. Asumsikan peta terlihat seperti ini:

~.~
~^~
~.~

Dengan input berikut: ~#.#n~~^#s

Anda akan mendapatkan hasil ini:

~??
~^?
~.?

Lebih banyak contoh input dan output:

memasukkan ~#~#n~~~#n~~~#n~~~#n~~~#n~~.#n~~.#n#~~#e#.~~e#.~~e#.~~e#.~~e#~~~e#~~~e#~#~s~~#~s~~#~s~~#~s~~#.s~~#~s~~#~s~##~w~#~~w.#~~w^#~~w.#~~

keluaran

~~~~~~~~ 
~....~~~ 
~.????~~ 
~~????~~ 
~~????.~ 
~~????~~ 
~~?.^.~~ 
~~~~~~~~

Memasukkan:

~#~#e~#~~e~#~~e.#~~e^#~~n.~..n~^~.n~.~~n.~~.n.~~*n~.~.n#.~~w#.~~w#.~~s~*..s..*.s*~.~s.~~~s

Keluaran:

?~~~~~?? 
?....~?? 
?.**.~?? 
?~..~~?? 
?~~~~~?? 
?~~..~?? 
~~~.^.?? 
~~~~~~?? 

MATL , 68 59 58 byte

'?'7XJQtX"'s'jh5e"@2#1)t35>)-1l8t_4$h9M)b'nsew'=8M*sJ+XJ+(

Cobalah online!

Penjelasan

Peta disimpan di bagian bawah tumpukan dan secara bertahap diisi. Posisi explorer saat ini disimpan di clipboard J.

Peta menggunakan koordinat matriks, sehingga (1,1) adalah kiri atas. Selain itu, pengindeksan linear kolom-utama digunakan. Ini berarti bahwa elemen-elemen dari matriks 8 × 8 yang mewakili peta diakses dengan indeks tunggal sebagai berikut:

1  9 17 25 33 41 49 57
2 10 18 26 34 42 50 58
3 11 19 27 35 43 51 59
4 12 20 28 36 44 52 60
5 13 21 29 37 45 53 61
6 14 22 30 38 46 54 62
7 15 23 31 39 47 55 63
8 16 24 32 40 48 56 64

Jadi misalnya elemen (3,2) dari matriks adalah elemen dengan indeks linier 11. Gerakan ke arah Utara, Selatan, Timur dan Barat masing-masing berhubungan dengan menambahkan -1, 1, 8 atau -8 ke indeks linier. Array [-1 1 8 -8] berfungsi untuk menyandikan dua hal yang berbeda:

• Kemungkinan perpindahan penjelajah.
• Posisi relatif fitur yang terdeteksi dengan spyglass. Posisi ini relatif terhadap posisi explorer saat ini.

String input disusun menjadi potongan-potongan 5karakter. Karena potongan pertama tidak memiliki karakter pertama (yang menunjukkan gerakan), inisial sdimasukkan secara sewenang-wenang untuk membuat semua potongan ukuran yang sama. Untuk mengimbangi ini, penjelajah mulai di posisi 7, bukan 8, sehingga perpindahan awal ke Selatan (tambahkan 1 ke indeks linier) membuat mereka di posisi 8.

Potongan 5 karakter diproses dalam satu lingkaran. Karakter pertama memperbarui posisi, dan 4 sisanya, jika berbeda dari #, dituliskan ke dalam entri matriks yang mewakili peta.

'?'          % push '?'. The map will initially be filled with this
7XJ          % push 7: initial position of the explorer. Copy into clipboard J
Qt           % add 1. Duplicate
X"           % 8x8 matrix containing '?'
'n'jh        % take input string. Prepend 'n'
5e           % reshape into a 5-column matrix
"            % for each column (chunk)
  @          %   push current chunk
  2#1)       %   split chunk into its first char and an array with the other 4
  t35>       %   duplicate. Logical index of chars different than #
  )          %   apply that index to keep characters different than #
  -1l8t_4$h  %   array [-1 1 8 -8]
  9M         %   push logical index again
  )          %   apply that index to keep only relevant relative positions
  b          %   bubble up in stack: move first char of chunk to top
  'nsew'=    %   logical index that tells if that char is 'n', 's', 'e' or 'w'
  8M         %   push array [-1 1 8 -8] again
  *          %   multiply element-wise. Only one of the four results will be nonzero
  s          %   sum of the array. Gives displacement of the explorer
  J+         %   push position of the explorer and add to compute new position
  XJ         %   update position in clipboard J
  +          %   add updated position of explorer to relative positions of features
  (          %   write those fearttures into the indexed entries of the map
             % end for each. Implicitly display

C, 210 208 207 byte

Yang ini menggunakan printf dan scanf untuk membaca input, dan array yang dilinearisasi bukannya x, y; jadi saya merasa cukup berbeda dengan milibyte .

Golf:

 main(p){char*i,*j,m[80];for(p=73,i=m+p;p--;m[p]=63);for(p=8;scanf("%5s",i)>0;p+=*j=='n'?8:*j=='s'?-8:*j=='e'?1:-1)for(j=i;j-i<4;j++)if(*j^35)m[p+"qajh"[j-i]-'i']=*j;for(p=72;m[p]=0,p-=8;)printf("%s\n",m+p);}

Agak tidak terserang:

main(p){
    char*i,*j,m[80];
    for(p=73,i=m+p;p--;m[p]=63);                   // fill with ?
    for(p=8;scanf("%5s",i)>0;
            p+=*j=='n'?8:*j=='s'?-8:*j=='e'?1:-1)  // read 5-at-a-time
        for(j=i;j-i<4;j++)
            if(*j^35)m[p+"qajh"[j-i]-'i']=*j;      // update map positions
    for(p=72;m[p]=0,p-=8;)printf("%s\n",m+p);      // output line-by-line
}

Perwakilan:

  // board: (vertically reversed when printed)
    0  1  2  3  4  5  6  7
    8  9  10 ...
    16 18 19 ...
    ...
    56 57 58 59 60 61 62 63

  // offsets and offset order, or why "qajh": 
    s2      -8       a
  w4  e3  -1 0+1   h i j
    n1      +8       q   <- offset by +'i'

Juga, Anda mulai di posisi 8 karena ini mencukur sekitar satu atau lebih loop cetak.

Fortran, 263 251 247 235 234 216 byte

Versi 1D (mirip dengan yang dilakukan oleh Don Muesli):

#define R read(*,'(a)',advance='no',eor=1)c
#define F(x)R;if(c/='#')a(x+i)=c
program t
character::a(64)='?',c
integer::k(4)=[8,-8,1,-1],i=57
do
F(-8)
F(8)
F(1)
F(-1)
R
i=i+k(index('snew',c))
enddo
1 print'(8a)',a
end

Versi 2D:

#define R read(*,'(a)',advance='no',eor=1)c
#define F(x,y)R;if(c/='#')a(x+m,y+l)=c
#define G(x,y)j=index(x,c);if(j==2)j=-1;y=y+j
program t
character::a(8,8)='?',c
l=8;m=1
do
F(,-1)
F(,1)
F(1,)
F(-1,)
R
G('sn',l)
G('ew',m)
enddo
1 print'(8a)',a
end

Untuk mengaktifkan formulir dan pra-pemrosesan gratis, file memerlukan ekstensi .F90, mis explorer.F90. Masukan dibaca dari STDIN:

echo "~#~#e~#~~e~#~~e.#~~e^#~~n.~..n~^~.n~.~~n.~~.n.~~*n~.~.n#.~~w#.~~w#.~~s~*..s..*.s*~.~s.~~~s" | ./a.out 
?~~~~~??
?....~??
?.**.~??
?~..~~??
?~~~~~??
??~..~??
~~~.^.??
~~~~~~??

C, 265 226 224 byte

a[8][8];x;y;i;main(c){for(;c=getchar(),c+1;y+=(c=='n')-(c=='s'),x+=(c=='e')-(c=='w'))for(i=5;--i;c=getchar())i&&c-35&&(a[x+(i==2)-(i==1)][y-(i==3)+(i==4)]=c);for(y=8;y--;putchar(10))for(x=0;x<8;)putchar((i=a[x++][y])?i:63);}

Peta ini 8x8, saya tidak menyadarinya sebelumnya. Dan di sini adalah solusi 265 byte yang berfungsi untuk peta dengan dimensi variabel:

a[99][99];c;x;X;y;i;k;p;main(Y){for(;c=getchar(),c+1;y+=(c=='n')-(c=='s'),x+=(c=='e')-(c=='w'))for(i=5;--i;c=getchar())i&&c-35&&(a[k=x+(i==2)-(i==1),X=X<k?k:X,k][p=y-(i==3)+(i==4),Y=Y<p?p:Y,p]=c);for(y=Y+1;y--;putchar(10))for(x=0;x<=X;)putchar((i=a[x++][y])?i:63);}

Ruby, 169 147 byte

Program lengkap. Mengambil dalam string input dari STDIN (Anda mungkin perlu memasukkannya dari file untuk mencegah baris baru yang tertinggal dari mengacaukan segalanya) dan mengeluarkan peta yang dihasilkan ke STDOUT.

Memotong satu ton dengan menempatkan semua string menjadi satu dan kemudian membaginya nanti.

m=??*64
d=0
x=56
gets.each_char{|c|d<4?(w=x+(d>2?-1:d>1?1:d<1?-8:d<2?8:0)
m[w]=c if c>?$):x+=c>?v?-1:c<?f?1:c>?q?8:-8
d+=1;d%=5}
puts m.scan /.{8}/

Tidak Disatukan:

m = ?? * 64                 # 64 "?" symbols
                            # y axis counts downwards; 0-7 is top row
d = 0                       # Keep track of which direction we're looking
x = 56                      # Position, bottom left corner (0,7)
gets.each_char do |c|       # For each character from first line of STDIN
    if d < 4                # Looking in a direction
        if    d > 2         # d == 3; looking west
            w = x - 1
        elsif d > 1         # d == 2; looking east
            w = x + 1
        elsif d < 1         # d == 0; looking north
            w = x - 8
        else                # d == 1; looking south
            w = x + 8
        end
        m[w] = c if c > ?$  # Only '#' gets rejected by this step
    else                    # Moving in a direction
        if    c > ?v        # c == 'w'
            x -= 1
        elsif c < ?f        # c == 'e'
            x += 1
        elsif c > ?q        # c == 's'
            x += 8
        else                # c == 'n'
            x -= 8
        end
    end
    d = (d + 1) % 5         # Look in the next direction
end
puts m.scan /.{8}/          # Split map into rows of 8

Lua, 354 byte ( coba online )

Golf:

n=(...)r={}y=8x=1q="?"for i=1,8 do r[i]={q,q,q,q,q,q,q,q}end for u in n:gsub("#",q):gmatch(".....")do a,b,c,d,e=u:match("(.)(.)(.)(.)(.)")if a~=q then r[y-1][x]=a end if b~=q then r[y+1][x]=b end if c~=q then r[y][x+1]=c end if d~=q then r[y][x-1]=d end y=y+(("n s"):find(e)or 2)-2x=x+(("w e"):find(e)or 2)-2 end for i=1,8 do print(table.concat(r[i]))end

Sedikit tidak berbulu:

n = "~#~#e~#~~e~#~~e.#~~e^#~~n.~..n~^~.n~.~~n.~~.n.~~*n~.~.n#.~~w#.~~w#.~~s~*..s..*.s*~.~s.~~~s"

r={} y=8 x=1 q="?"
for i=1,8 do r[i]={q,q,q,q,q,q,q,q} end
for u in n:gsub("#",q):gmatch(".....") do
  a,b,c,d,e=u:match("(.)(.)(.)(.)(.)")
  if a~=q then r[y-1][x]=a end
  if b~=q then r[y+1][x]=b end
  if c~=q then r[y][x+1]=c end
  if d~=q then r[y][x-1]=d end
  y=y+(("n s"):find(e)or 2)-2
  x=x+(("w e"):find(e)or 2)-2
end
for i=1,8 do print(table.concat(r[i])) end

Kotlin, 242 byte

{val m=Array(8){Array(8){'?'}}
var d=7
var i=0
for(c in it)(mapOf('n' to{d--},'s' to{d++},'w' to{d-=8},'e' to{d+=8},'#' to{i++})[c]?:{m[d%8+listOf(-1,1,0,0)[i%4]][d/8+listOf(0,0,1,-1)[i%4]]=c
i++})()
m.forEach{for(c in it)print(c);println()}}

Baris baru dapat diganti dengan titik koma jika diinginkan.

Coba Di Sini