Lihat juga: Bergerak di papan Go .

Tugas

Go adalah permainan papan di mana dua pemain (Hitam dan Putih) menempatkan batu di persimpangan garis kisi pada papan 19 × 19. Hitam bergerak lebih dulu - misalnya, pada D4:

Dalam tantangan ini, Anda harus mengambil koordinat Go board seperti D4sebagai input, dan mengeluarkan representasi ASCII dari papan dengan gerakan pertama yang dimainkan pada titik yang diberikan.

Perhatikan bahwa tidak ada kolom I. Ini, secara historis, untuk mengurangi kebingungan dengan J dan L.

Output ini terdiri dari 19 baris, masing-masing berisi 19 karakter. Titik dengan batu di atasnya ditandai O. Poin kosong di papan ditampilkan sebagai ., kecuali untuk sembilan poin bintang (di D4, D10, D16, K4, K10, K16, Q4, Q10, dan Q16), yang ditandai *.

Misalnya, diberikan F5sebagai input, output jawaban Anda harus:

...................
...................
...................
...*.....*.....*...
...................
...................
...................
...................
...................
...*.....*.....*...
...................
...................
...................
...................
.....O.............
...*.....*.....*...
...................
...................
...................

Dan diberikan Q16sebagai input, output Anda harus:

...................
...................
...................
...*.....*.....O...
...................
...................
...................
...................
...................
...*.....*.....*...
...................
...................
...................
...................
...................
...*.....*.....*...
...................
...................
...................

Aturan

• Anda dapat menulis fungsi yang menggunakan koordinat sebagai argumen, atau program yang membaca koordinat dari baris perintah atau dari STDIN.

• Anda dapat memilih untuk menerima input baik dalam huruf kecil atau huruf besar, tetapi jawaban Anda tidak perlu menangani keduanya.

• Input selalu berupa string tunggal seperti a1atau T19, tidak pernah string + angka atau dua string.

• Jika Anda menulis program lengkap, jawaban Anda harus dicetak STDOUTsebagai string, secara opsional diikuti oleh baris baru. Jika jawaban Anda adalah fungsi, Anda dapat mencetak ke STDOUT, atau  mengembalikan string, atau  mengembalikan array / daftar string (baris), atau  mengembalikan array dua dimensi atau daftar karakter bersarang.

• Ini adalah kode-golf . Jawaban terpendek dalam byte menang.

MATL , 33 byte

'*O.'19: 6\4=&*Hj1&)Uw64-t8>-&(P)

Cobalah online!

Penjelasan

'*O.'    % Push string with needed characters. Will be indexed into
19:      % Push numeric vector [1 2 ... 19]
6\4=     % 1 for values that equal 4 mod 6, 0 for the rest
&*       % Multiply by transposed version of itself with broadcast. This gives
         % the 19×19 board with 0 instead of '.' and 1 instead of '*'
H        % Push 2. This will correspond to 'O' (stone)
j        % Input string, such as 'Q16'
1&)      % Split into its first char ('Q') and then the rest ('16')
U        % Convert to number (16)
w        % Swap, to move 'Q' to top
64-      % Subtract 64. Thus 'A' gives 1, 'B' gives 2 etc
t8>-     % Duplicate. Subtract 1 if it exceeds 8. This corrects for missing 'I'
&(       % Fill a 2 at coordinates given by the number and the letter
P        % Flip upside down, because matrix coordinates start up, not down
)        % Index the string '*O.' with the 19×19 array containing 0,1,2.
         % Implicitly display

C, 212 195 193 181 171 132 103 98 byte

Disimpan 1 byte berkat @FryAmTheEggman, 5 byte terima kasih kepada @orlp

Panggilan f()dengan posisi untuk bermain (harus ditulis dengan huruf besar), dan ia mencetak papan yang dihasilkan.

i;f(char*p){for(i=380;i--;)putchar(i%20?i^20*atoi(p+1)+64-*p+(*p>72)?i%6^4|i/20%6^3?46:42:79:10);}

Cobalah di ideone .

C (gcc), 132 128 109

i;m;f(char*s){for(i=380;i--;putchar(m?m^84-*s+(*s>73)|(i/20+1)^atoi(s+1)?m%6^4|i/20%6^3?46:42:79:10))m=i%20;}

Ideone

Fungsi yang mencetak papan ke STDOUT. Membutuhkan surat koordinat untuk menjadi modal. Mencetak dalam satu loop tampaknya sedikit lebih pendek daripada pendekatan loop bersarang sebelumnya.

MATLAB, 135 byte

Upaya pertama, tidak ada yang pintar, hanya untuk melihat seberapa baik yang bisa dilakukan orang lain:

function go(a)
b=repmat('.',19);
b(4:6:end,4:6:end)='*';
a=sscanf(a,'%c%d');
a(1)=a(1)-64;
if a(1)>8
a(1)=a(1)-1;
end
b(20-a(2),a(1))='0'

Pemakaian:

go('T19')

Ruby, 93 91 byte

Mengambil input pada baris perintah, mis $ ruby script.rb Q16.

19.downto(1){|c|puts ([*?A..?T]-[?I]).map{|d|d+c.to_s==$*[0]??O:"DKQ"[d]&&c%6==4??*:?.}*""}

Uji di repl.it (dibungkus lambda di sana karena repl.it tidak mengambil argumen baris perintah: https://repl.it/CkvT/1

Tidak disatukan

19.downto(1) do |row|
  puts ([*?A..?T] - [?I]).map {|column|
    if column + row.to_s == ARGV[0]
      "O"
    elsif "DKQ"[column] && row % 6 == 4
      "*"
    else
      "."
    end
  }.join
}

Pergi, 319 286 byte

import(."strconv"
."strings")
func g(c string)(s string){p:=SplitN(c,"",2)
n,_:=Atoi(p[1])
for i:=19;i>0;i--{
for j:= 'a';j<'t';j++{
if j=='i'{
}else if n==i&&ContainsRune(p[0],j){s+="o"
}else if((i==4||i==10||i==16)&&(j=='d'||j=='k'||j=='q')){s+="*"
}else{s+="."}}
s+="\n"}
return}

Mungkin golf sedikit berhenti, saya pemula

Ruby, 130 128 121 + 3 ( -nflag) = 124 byte

Beralih -pke -nkarena puts blebih pendek satu byte dari$_=b*$/

~/(.)(.+)/
b=(1..19).map{?.*19}
(a=3,9,15).map{|i|a.map{|j|b[i][j]=?*}}
b[19-$2.to_i][([*?A..?T]-[?I]).index$1]=?o
puts b

Python, 148 145 136 130 121 119 116 Bytes

-3 Bytes berkat @RootTwo

lambda x,r=range(19):[[".*o"[[i%6==j%6==3,2][j==ord(x[0])-(x>"I")-65and-~i==int(x[1:])]]for j in r]for i in r[::-1]]

fungsi lambda anonim, mengambil input dari bentuk "A1" (huruf besar) dan menampilkan daftar daftar karakter (len == 1 string dengan Python)

> <> , 98 96 byte

'_U'i-:b)-0\
+*a$%cv?(0:i<
{*+{4*\+
+4gf-o>1-:?!;:{:}=3*&::aa+%::0=2*&+&6%1-}-aa+,6%{*9=&
=9^^

Perhatikan bahwa ada 0x14baris pertama setelah baris pertama ', dan baris 0x19antara 9dan baris pertama ^. Cobalah online!

Input dipetakan sehingga A-Tmenjadi 1-19(dengan 0 menunjukkan kolom "baris baru" imajiner) dan nomor baris integer dikurangi oleh 1. Program melakukan loop dari 379 ke 0, memilih char dari baris bawah saat berjalan ( diimbangi dengan 15, untuk memperhitungkan fakta bahwa Anda tidak dapat memasukkan baris baru literal dalam kotak kode). Baris baru diperiksa melalui i % 20 == 0, dan titik bintang diperiksa oleh ((i%20-1)%6)*((i/20)%6) == 9.

F #, 241 237 225 216 214 211 byte

let G(c:string)=for k=1 to 380 do printf(if k%20=0 then"\n"elif"_ABCDEFGHJKLMNOPQRST".IndexOf c.[0]=k%20&&19-k/20=int(c.Substring 1)then"o"elif(k%20=4||k%20=10||k%20=16)&&(k/20=3||k/20=9||k/20=15)then"*"else".")

Yang rumit yang satu ini ... Saya ingin tahu apakah ini bisa dibuat lebih pendek.

Sunting: memperbaiki bug, menambahkan nomor beberapa tempat menghapus nomor di tempat lain, entah bagaimana berakhir dengan jumlah yang sama. Mungkin mencoba mengacak-acak angka di sekitar nanti Selesai.

Sunting2: menyimpan lebih banyak byte dengan mengeja salah satu kondisional, melawan secara intuitif.

Sunting3: Memperbaiki bug lain: harus berfungsi sekarang untuk potongan-potongan pada peringkat terakhir dan berhasil menyelamatkan dua byte saat saya melakukannya, entah bagaimana.

Cobalah online

Retina , 134 129 122 byte

11 byte terima kasih kepada Martin Ender, dan untuk inspirasi 1 lagi.

S2=`
[K-S]
1$&
T`xL`d9d
.+
$*
$
aaab
a
bbbcbb
b|c
¶$0
c
ddd.
d
...*..
b
19$*.
1(1)*¶1(1)*¶((?<-2>.+¶)*(?<-1>.)*).
$3O
O^$`

Cobalah online!

Perl, 132 byte

-3 byte terima kasih @Dom Hastings

@v=eval"[('.')x19],"x19;@{$v[$_]}[@t]=("*")x3for@t=(3,9,15);pop=~/\d+/;$v[19-$&][($t=ord$`)-65-($t>73)]=O;map{say}map{join"",@$_}@v;

Mengambil input baris perintah. Kebutuhan-M5.010 jalankan. Contohnya :

$ cat go_board.pl
@v=eval"[('.')x19],"x19;@{$v[$_]}[@t]=("*")x3for@t=(3,9,15);pop=~/\d+/;$v[19-$&][($t=ord$`)-65-($t>73)]=O;map{say}map{join"",@$_}@v;
$ perl -M5.010 go_board.pl Q16

Saya pikir ini bisa lebih pendek, tapi saya tidak tahu bagaimana ... tolong beri tahu saya jika Anda melakukannya!

Batch, 322 310 308 byte

@echo off
set/pi=
set/aa=0,b=1,c=2,d=3,e=4,f=5,g=6,h=7,j=8,k=9,l=10,m=11,n=12,o=13,p=14,q=15,r=16,s=17,t=18,x=%i:~1%-1,y=%i:~,1%,z=y+1
for /l %%r in (18,-1,0)do call:l %%r
exit/b
:l
set s=...*.....*.....*...
call set t=%%s:~%1,1%%
if %x%==%1 call set s=%%s:~,%y%%%o%%s:~%z%%%
call echo %%s:.*=.%t%%%

Penjelasan: Mulai dengan meminta batu di stdin. Kemudian, tetapkan variabel untuk setiap kolom yang mungkin, sehingga dapat mengevaluasi karakter pertama dari batu sebagai variabel untuk mendapatkan ykoordinat. Kurangi 1 dari xkoordinat karena itu 1-diindeks dan kami ingin 0-diindeks dan juga menghitung z=y+1karena akan membutuhkannya nanti. Kemudian, loop rdari 18 ke 0 untuk setiap baris. Mengambil string ...*.....*.....*...dan mengekstrak karakter di rposisi th untuk nanti. Di xbaris th, ykarakter th diganti dengan o. Akhirnya,.*. huruf s diganti dengan karakter plus yang sebelumnya diekstraksi; ini adalah no-op pada baris 4, 10 dan 16 tetapi ini adalah cara terpendek untuk mencapai itu. (Saya harus menggunakan.*karena mengganti *tampaknya ilegal di Batch.)

PowerShell v2 +, 157 152 byte

$x,$y=[char[]]$args[0];$a=,0*19;0..18|%{$a[$_]=,'.'*19};3,9,15|%{$i=$_;3,9,15|%{$a[$_][$i]='*'}};$a[-join$y-1][$x-65-($x-gt73)]='O';$a[18..0]|%{-join$_}

_{(Saya pikir saya mengalami semacam kesalahan aneh dengan koma-operator, sehingga konstruksi array sedikit lebih lama dari yang seharusnya)}

Mengambil input sebagai string huruf besar via $args[0], melemparkannya sebagai char-array, menyimpan huruf pertama ke dalam $xdan huruf lainnya ke dalam $y. Ini secara efektif membagi input menjadi huruf / angka.

Kami kemudian membangun array multidimensi kami $a. Kami pra-mengisi array ukuran 19dengan 0menggunakan koma-operator. Kami kemudian mengulang 0..18untuk membuat setiap elemen $a[$_]sama dengan array periode, lagi menggunakan operator koma. (NB - Secara teori, ini seharusnya bisa dikondensasi $a=,(,'.'*19)*19, tapi itu sepertinya tidak berfungsi dengan baik pada tugas pengindeksan ... Saya akhirnya mendapatkan seluruh kolom diatur ke *)

Selanjutnya, kita mengulang dua kali 3,9,15untuk mengatur elemen yang sesuai *. Kami kemudian mengindeksnya di tempat yang tepat untuk mengatur batu O. Untuk melakukannya, kita kurangi 65dari $x(mis., ASCII "A" adalah 65, dan kami tidak diindeks), dan kurangi yang tambahan menggunakan Boolean-to-int cast jika $xlebih besar dari 73(yaitu, ASCII "I" ).

Sekarang, output kita dibalik (yaitu, kiri atas akan A1), jadi kita perlu membalikkan array $a[18..0]. Akhirnya, kami output setiap baris -joined bersama untuk membentuk string.

> <> , 124 byte

Menggunakan pendekatan yang sama persis seperti jawaban C saya. Input harus berupa huruf kapital diikuti dengan angka desimal.

88*i:&-&'I')+0 v
*a&-'0'v!?)0:i&<+
+**2a&~/*a'&'&
:;!?:-1<o'O'v!?=&:&
{*?!v'*'o63.>:6%4=}:a4*+'x'%aa*)
*2a:/  av?%
.37o<'.'<

Cobalah online!

Penjelasan:

88*i:&-&'I')+0 v         'Push 64-<first input char>+(<first input char> > 'I')
*a&-'0'v!?)0:i&<+        'Set register to 0, parse decimal integer into register.
+**2a&~/*a'&'&           'Pop the -1 (EOF) from stack, multiply register by 20.
                         'Add result of first line to register.
                         'Push 380 onto stack.
:;!?:-1<o'O'v!?=&:&      'Main loop, while top of stack is not 0.
                         'Subtract 1 from top of stack (loop counter)
                         'If current index is the playing piece index, print 'O'
{*?!v'*'o63.>:6%4=}:a4*+'x'%aa*) 
                         'If (index%6)=4 and (index+40)%120>100, print '*'
*2a:/  av?%              'If (index%20)=0, print newline
.37o<'.'<                'Otherwise, print '.'

JavaScript, 138 byte

s=>[...t="...*.....*.....*..."].map((c,i)=>t.replace(/\*/g,c).replace(/./g,(c,j)=>x-j|19-i-s.slice(1)?c:'o'),x=parseInt(s[0],36)*.944-9|0)

Mengembalikan array string. Penjelasan:

s=>[...                         Parameter
 t="...*.....*.....*..."        Pattern of lines 4, 10 and 16
].map((c,i)=>                   Loop 19 times
 t.replace(/\*/g,c)             Change the `*` to `.` on other lines
  .replace(/./g,(c,j)=>         Loop over each character
   x-j|19-i-s.slice(1)?c:'o'),  Change to o at the appropriate position
 x=parseInt(s[0],36)*.944-9|0)  Compute the column number from the letter

R, 169 161 byte

f=function(p){S=substr;N=rep(".",114);N[61+6*0:2]="*";M=matrix(N,19,19);M[(S(p,2,3):1)[1],which(LETTERS[-9]==S(p,1,1))]="O";for(i in 19:1)cat(M[i,],"\n",sep="")}

Dengan indentasi dan baris baru:

f=function(p){
    S=substr
    N=rep(".",114) # 6 lines of dots
    N[61+6*0:2]="*" # Place the hoshis
    M=matrix(N,19,19) # Make the 19x19 board using vector recycling
    M[(S(p,2,3):1)[1],  #grab and force coerce the row number to integer
      which(LETTERS[-9]==S(p,1,1))]="O" #Place the first stone
    for(i in 19:1) cat(M[i,],"\n",sep="")
}

Pemakaian:

> f("A19")
O..................
...................
...................
...*.....*.....*...
...................
...................
...................
...................
...................
...*.....*.....*...
...................
...................
...................
...................
...................
...*.....*.....*...
...................
...................
...................
> f("D4")
...................
...................
...................
...*.....*.....*...
...................
...................
...................
...................
...................
...*.....*.....*...
...................
...................
...................
...................
...................
...O.....*.....*...
...................
...................
...................
> f("K10")
...................
...................
...................
...*.....*.....*...
...................
...................
...................
...................
...................
...*.....O.....*...
...................
...................
...................
...................
...................
...*.....*.....*...
...................
...................
...................

Lua, 187 Bytes

function g(i)i:gsub("(%a+)(%d+)",function(a,b)q=string.byte(a)-64 r=b+0 end)for x=1,19 do s=""for y=1,19 do s=s..(x+y*19==r+q*19 and"o"or(x-4)%6+(y-4)%6==0 and"*"or"-")end print(s)end end

Saya tidak merasa sedih tentang proyek khusus ini. Lua masih tampil sangat kikuk untuk bermain Golf, tetapi saya cukup bangga dengan seberapa jauh saya bisa melakukannya.

PHP, 280 268 263 261 255 218 216 byte

<?php $a=ucfirst($argv[1]);$x=substr($a,0,1);$y=substr($a,1);$s=['DKQ',4,16,10];$i=85;while(64<$i--){$j=0;while($j++<20){echo($x==chr($i)&&$y==$j)?'O':((strpos($s[0],chr($i))>-1&&in_array($j,$s))?'*':'.');}echo"\n";}

Golf pertamaku.

Penggunaan:
Simpan sebagai file PHP dan panggil dengan php filename.php coordinatemisphp go.php k13