ASCII艺术棋盘


12

在此挑战中,您将在下面绘制棋盘,并允许进行移动。

1.图纸

每个白色正方形都有5x9的空间。

每个黑色正方形都有5x9冒号。

木板被冒号的边界包围。

这些作品宽5个字符,位于中央广场的最底行。

棋子有4个字符宽。它们的位置略偏离右侧中心,左侧有3个空白方块,右侧有2个空白方块。他们坐在正方形底部上方一行。

除可选的尾随换行符外,董事会区域之外不得有空格。

棋盘和西洋棋棋子的绘制应严格按照所示,但:

  1. 您可以:用黑色方块和边框中的代替不同的符号,也可以用@黑色部分中的字母替代不同的符号(但黑色方块所用的符号不能相同)。

  2. 如果愿意,可以将棋子向左移动一个字符。

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:         :::::::::         :::www:::   _+_   :::::::::         ::::::::::
:  |_|_|  :: _,,:::   (/)   :::)@(:::   )@(   :::(/):::   _,,   ::|_|_|:::
:   |@|   ::"- \~::   |@|   :::|@|:::   |@|   :::|@|:::  "- \~  :::|@|::::
:   |@|   :::|@|:::   |@|   :::|@|:::   |@|   :::|@|:::   |@|   :::|@|::::
:  /@@@\  ::/@@@\::  /@@@\  ::/@@@\::  /@@@\  ::/@@@\::  /@@@\  ::/@@@\:::
::::::::::         :::::::::         :::::::::         :::::::::         :
:::::():::    ()   ::::():::    ()   ::::():::    ()   ::::():::    ()   :
:::::)(:::    )(   ::::)(:::    )(   ::::)(:::    )(   ::::)(:::    )(   :
::::/@@\::   /@@\  :::/@@\::   /@@\  :::/@@\::   /@@\  :::/@@\::   /@@\  :
::::::::::         :::::::::         :::::::::         :::::::::         :
:         :::::::::         :::::::::         :::::::::         ::::::::::
:         :::::::::         :::::::::         :::::::::         ::::::::::
:         :::::::::         :::::::::         :::::::::         ::::::::::
:         :::::::::         :::::::::         :::::::::         ::::::::::
:         :::::::::         :::::::::         :::::::::         ::::::::::
::::::::::         :::::::::         :::::::::         :::::::::         :
::::::::::         :::::::::         :::::::::         :::::::::         :
::::::::::         :::::::::         :::::::::         :::::::::         :
::::::::::         :::::::::         :::::::::         :::::::::         :
::::::::::         :::::::::         :::::::::         :::::::::         :
:         :::::::::         :::::::::         :::::::::         ::::::::::
:         :::::::::         :::::::::         :::::::::         ::::::::::
:         :::::::::         :::::::::         :::::::::         ::::::::::
:         :::::::::         :::::::::         :::::::::         ::::::::::
:         :::::::::         :::::::::         :::::::::         ::::::::::
::::::::::         :::::::::         :::::::::         :::::::::         :
::::::::::         :::::::::         :::::::::         :::::::::         :
::::::::::         :::::::::         :::::::::         :::::::::         :
::::::::::         :::::::::         :::::::::         :::::::::         :
::::::::::         :::::::::         :::::::::         :::::::::         :
:         :::::::::         :::::::::         :::::::::         ::::::::::
:    ()   ::::():::    ()   ::::():::    ()   ::::():::    ()   ::::()::::
:    )(   ::::)(:::    )(   ::::)(:::    )(   ::::)(:::    )(   ::::)(::::
:   /__\  :::/__\::   /__\  :::/__\::   /__\  :::/__\::   /__\  :::/__\:::
:         :::::::::         :::::::::         :::::::::         ::::::::::
::::::::::         :::::::::   www   :::_+_:::         :::::::::         :
:::|_|_|::   _,,   :::(/):::   ) (   :::) (:::   (/)   :::_,,:::  |_|_|  :
::::| |:::  "- \~  :::| |:::   | |   :::| |:::   | |   ::"- \~::   | |   :
::::| |:::   | |   :::| |:::   | |   :::| |:::   | |   :::| |:::   | |   :
:::/___\::  /___\  ::/___\::  /___\  ::/___\::  /___\  ::/___\::  /___\  :
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

2.搬家

这些列从左到右分别标记为AH,从下到上分别标记为1到8。用户应能够以以下形式输入移动:

<start column><start row><space><destination column><destination row>

例如,B1 C3意味着将骑士移动到主教的棋子前面的广场上(假设游戏刚刚开始)。

另外,也可以使用ICCF系统,其中的列标记为1到8而不是A到H。因此上述骑士移动变为21 33

下图()阐明了这两个系统:

在此处输入图片说明

将执行移动并显示新板。任何发生的捕获都应发生在移动中的棋手从棋盘上移开目的地方格的棋子的情况下。

无需检查合法的棋牌移动,因为其他挑战已经涵盖了这一点:最小的棋子程序最小的国际象棋仲裁器如果用户尝试从一个空的正方形移动,则您的程序或功能应忽略该移动。如果用户尝试捕获友善的棋子,则可以忽略移动,也可以捕获静止的棋子。

无需支持传承或cast割。

您可能会假设输入格式正确,即始终采用上述格式。字母总是大小写相同,您可以决定是哪种情况。

3.计分和奖金

这是代码高尔夫。最短的代码获胜。

如果您的程序或功能允许晋升,则为-10%奖金。用户输入第三个输入,这次是以下字母之一:QBRN。仅当移动在最后一行以pawn结尾时,才应允许输入。典当被替换为命名的棋子。QBRN。

如果您的程序或函数实现了特殊的“撤消”动作以逆转动作(如果需要,可以回溯到游戏开始),则可获得-10%的奖励。显然,业余玩家可能会做出非法动作,他们可能希望撤消它们。您可以定义用户为该“撤消”动作必须提供的输入(必须始终相同)。如果用户尝试在游戏开始后进行撤消,则行为是不确定的。

奖金总和,即如果您同时获得这两种奖金,您将获得-20%。


首先,您说“输入一招”,对我来说,它的意思是“仅一招”。然后还有“到开始为止”撤消的好处:因此,这是一个完整的动作系列,而不仅仅是一个动作...请说明
edc65

@ edc65这是一整套动作。参见第一行“允许进行移动”。我没有指定的一件事是循环的退出条件。当其中一位国王被俘虏时可能会停止的想法,但是现有答案有一个无限循环,根据书面规定,这是可以接受的,因此我将其保留。
级圣河

黑色方块上两个骑士的格式不匹配。哪个是正确的?
JWT 2015年

@JWT哇,以前没有人注意到!在这个阶段,我必须接受两者。我看到您的答案更多了。在我测试您的答案并更改接受度之前,您完成了吗?
级圣河

@ steveverril我结束了,是的。
JWT 2015年

Answers:


4

八度,776688字节

688:

  • 内联到主循环中的函数(两个都仅使用一次),
  • 使用的单元格符号{'foo','bar'}{i}代替稍长的符号['foo';'bar'](i,:)

仍然没有实施任何奖金。


使用ICCF系统。

移动描述中可能没有前导空格,并且源字段和目标字段必须用单个空格分隔,因此42 44正确,而 42 4442 44不是。

R=@repmat;s=[t='BFJbRJFB';R(('@    A')',1,8);t+1]';while 1q=' ';c=R(':',42,74);m=R([m=R(q,5,9) l=m+26;l m],4,4);c(2:41,2:73)=m;for i=1:8 for j=1:8 f=s(i,j);z=@(c)bitand(+f,c);if z(64)b=z(1)+1;W={') (',')@('}{b};U=43-5*j;Z=9*i-2;T=Z-2:Z;Q=Z-3:Z+1;if z(2)c(U+3,Q)={'/___\','/@@@\'}{b};a=c(U+2,T)={'| |','|@|'}{b};if z(4)c(U+1,Q)='"- \~';c(U,Z-3:Z)=' _,,';else c(U+1,T)=a;if z(8)c(U,T)='(/)';elseif z(16)||z(32)c(U,T)=W;c(U-1,T)={'_+_','www'}{1+z(32)/32};else c(U,Q)='|_|_|';end
end
else c(U+2,Z-2:Z+1)={'/__\','/@@\'}{b};c(U:U+1,Z-1:Z)=['()';')('];end;end;end;end;c
m=input(q,'s')-'0';x=m(1);y=m(2);X=m(4);Y=m(5);if s(x,y)~=q&&(s(X,Y)==q||mod(s(x,y)-s(X,Y),2))s(X,Y)=s(x,y);s(x,y)=q;end
end

略带版本的版本:

# draw an empty chessboard
function n=cb
R=@repmat;
n=R(':',42,74);
m=R([m=R(' ',5,9) m+26;m+26 m],4,4);
n(2:41,2:73)=m;
end

# function n=put(n,f,c,r) :
#
# put a chessman f on column c and row r of chessboard n,
# returning new chessboard
# chessman is described by single character defined following way
# (please excuse naming bits by value rather than position):
# bit valued  127 -     unused
# bit valued  64  -     0 = field empty, 64 = field occupied.
# bits valued 32,16,8 - 0 = rook, 8 = bishop, 16 = king, 32 = queen
# bit valued  4 -       0 = not knight 4 = knight (only checked if "other piece" bit is set)
# bit valued  2 -       0 = pawn       2 = other piece
# bit valued  1 -       0 = white      1 = black

# this gives the following chars:

# pawns   - 64      (+1)  => @ , A
# knights - 64+4+2  (+1)  => F , G
# rooks   - 64+2    (+1)  => B , C
# bishops - 64+8+2  (+1)  => J , K
# kings   - 64+16+2 (+1)  => R , S
# queens  - 64+32+2 (+1) =>  b , a
# empty space - any character with bit valued 64 unset (space char does)

function n=put(n,f,c,r)
z=@(n)bitand(f-0,n);
if z(64)
    b=z(1);
    W=') ()@('(1+3*b:3+3*b);
    R=5*r;C=9*c;
    if z(2)
            n(46-R,C-5:C-1)='/___\/@@@\'(1+5*b:5+5*b);
            a=n(45-R,C-4:C-2)='| ||@|'(1+3*b:3+3*b);
            if z(4) # knight
                    n(44-R,C-5:C-1)='"- \~';
                    n(43-R,C-5:C-2)=' _,,';
            else
                    n(44-R,C-4:C-2)=a;
                    if z(8) # bishop
                            n(43-R,C-4:C-2)='(/)';
                    elseif z(16) # king
                            n(43-R,C-4:C-2)=W;
                            n(42-R,C-4:C-2)='_+_';
                    elseif z(32) # queen
                            n(43-R,C-4:C-2)=W;
                            n(42-R,C-4:C-2)='www';
                    else  # rook
                            n(43-R,C-5:C-1)='|_|_|';
                    end
            end
    else
            n(45-R,C-4:C-1)='/  \/@@\'(1+4*b:4+4*b);
            n(43-R:44-R,C-3:C-2)=['()';')('];
    end
end
end

# here we can easily define the chessboard.
s=['BFJbRJFB';repmat(('@    A')',1,8);'CGKcSKGC']';
c=cb;for i=1:8 for j=1:8 c=put(c,s(i,j),i,j);end;end
c

# We scan five characters. They must be positions in ICCF without leading spaces separated by single space.
while m=input('','s')-'0'
x=m(1)
y=m(2)
X=m(4)
Y=m(5)
# if the move is not allowed (capture piece of the same color or the start field is blank,
# do nothing
if s(x,y)==' ' || (s(X,Y) ~=' ' && mod(s(x,y)-s(X,Y),2)==0) continue; end;
# make the move
s(X,Y)=s(x,y);
s(x,y)=' ';
# redraw the board
c=cb;for i=1:8 for j=1:8 c=put(c,s(i,j),i,j);
end end
c
end

我在ideone.com上运行了此程序,并显示了木板,但无法接受任何输入。它在tutorialspoint.com/codingground.htm上非常有效(除非您将国王和王后调回-任何经验丰富的国际象棋棋手都会告诉您这有所作为。)我会为您提供额外的+1,以防止您捕获友军如果可以的话,再进行一次体面的解释。
级圣河

@steveverrill确实,感谢您指出这一点,国王和王后的职位被颠倒了。现在已修复。
pawel.boczarski

5

红宝石, 715 696 693 683字节

这是一个相当麻烦的解决方案,但目前我还没有足够的耐心进一步清理它。

两项奖金均未完成。

使用ICCF系统。

a,b,c=->f,x,y,p{p.map{|ln|ln.gsub(/\d/){|z|f*(z.to_i)}.tr('AB',x+y)}},Array.new(64){|i|((i%56<8?[4,2,3,5,6,3,2,4][i%56]:(i-8)%40<8?1:0)<<2)+(i<16?2:0)},':'*74
loop{puts c
b.each_slice(8).with_index{|r,y|d,*e=r.map.with_index{|v,x|a[*([[' '],[':']][(x+y)%2]+[[' ','_'],['@','@']][v&2==2?1:0]+[('9@9@9@9@9;9@4()3@4)(3@3/BB\2@9;9@3_,,3@2"- \~2@3|A|3@2/BBB\2;9@3(/)3@3|A|3@3|A|3@2/BBB\2;9@2|_|_|2@3|A|3@3|A|3@2/BBB\2;3www3@3)A(3@3|A|3@3|A|3@2/BBB\2;3_+_3@3)A(3@3|A|3@3|A|3@2/BBB\2'.split(';').map{|s|s.split '@'})[v>>2]])]}
d.zip(*e).each{|r|puts ":#{r.join}:"}}
puts c
gets.scan(/(.)(.) (.)(.)/){|f,g,h,i|j,k=63+(f.to_i)-(g.to_i)*8,63+(h.to_i)-(i.to_i)*8
b[k],b[j]=b[j]>0?b[j]: b[k],0}}

太好了,似乎工作正常!
级圣河

@LevelRiverSt看起来这个答案比当前接受的答案短。
Erik the Outgolfer

3

Python,1136 890 753字节

抱歉部分回答,但我是新手,我真的很喜欢这个挑战。我知道这可能真的很冗长,但这是我的初稿:

y=':'*9
z=' '*9
b='::/___\::'
c=':::|@|:::'
d=':::)@(:::'

ps = {'r': [y,'::|*|*|::', c, c,b],'n': [y,':::,,::::', '::"- \~::', c,b],'b': [y,':::(/):::',c,c,b],'k': [':::www:::',d,c,c,b],'q': [':::*+*:::',d,c,c,b],'p': [y, '::::():::','::::)(:::',':::/__\::',y]}

def cell(p,c):
  if p == '!':
    return ([z]*5,[y]*5)[c]
  s = []
  for l in ps[p.lower()]:
    l = (l.replace('@', ' '), l.replace('_', '@'))[p.islower()]
    l = (l.replace(':', ' '), l)[c].replace('*', '_')
    s.append(l)
  return s


b = {8:'rnbkqbnr',7:'p'*8,2:'P'*8}
b[1] = b[8].upper()
for i in range(3,7):
  b[i] = '!'*8

o=[y*8]
c=0
for r in b:
  l=['']*5
  for p in b[r]:
    cc=cell(p,c)
    for i in range(0,5):
      l[i]+=cc[i]
    c=not c
  o.extend(l)
  c=not c
o.append(o[0])
for l in o:
  print ':'+l+':'

感谢你的回答。在答案中包括标题行以及语言和字节数是我们的习惯。这是什么语言?它看起来像python,但是我无法在ideone.com上运行
Level River St

1
删除周围的所有空格=,如果a for或a内if只有一行,则可以全部在同一行上。看一看Python高尔夫技巧
mbomb007
By using our site, you acknowledge that you have read and understand our Cookie Policy and Privacy Policy.
Licensed under cc by-sa 3.0 with attribution required.