ASCII拼图

27

这是一个3x3ASCII拼图游戏：

 _____ _____ _____
|    _|     |_    |
|   (_   _   _)   |
|_   _|_( )_|_   _|
| (_) |_   _| (_) |
|  _   _) (_   _  |
|_( )_|_   _|_( )_|
|    _| (_) |_    |
|   (_       _)   |
|_____|_____|_____|

这也是一个3x3ASCII拼图游戏：

 _____ _____ _____
|     |_   _|     |
|  _   _) (_   _  |
|_( )_|_   _|_( )_|
|    _| (_) |_    |
|   (_   _   _)   |
|_   _|_( )_|_   _|
| (_) |_   _| (_) |
|      _) (_      |
|_____|_____|_____|

ASCII拼图中的每一行（不包括边缘情况，即字面上的部分）由以下模式组成：

   _           _           _
 _( )_ _   _ _( )_ _   _ _( )_
|_   _| (_) |_   _| (_) |_   _|
 _) (_   _   _) (_   _   _) (_
|_   _|_( )_|_   _|_( )_|_   _| ...
  (_)         (_)         (_)

给定2点的整数H并且W其中H是高度（垂直量）和W为宽度（水平量）和H和W是>1输出一个可能的HxWASCII拼图。

例子

测试用例1

输入： 2, 4

输出：

 _____ _____ _____ _____
|     |_   _|     |_    |
|  _   _) (_   _   _)   |
|_( )_|_   _|_( )_|_   _|
|    _| (_) |_   _| (_) |
|   (_       _) (_      |
|_____|_____|_____|_____|

测试案例2

输入： 4, 4

输出：

 _____ _____ _____ _____
|     |_   _|     |_    |
|  _   _) (_   _   _)   |
|_( )_|_   _|_( )_|_   _|
|    _| (_) |_   _| (_) |
|   (_   _   _) (_   _  |
|_   _|_( )_|_   _|_( )_|
| (_) |_   _| (_) |_    |
|  _   _) (_   _   _)   |
|_( )_|_   _|_( )_|_   _|
|    _| (_) |_   _| (_) |
|   (_       _) (_      |
|_____|_____|_____|_____|

测试案例3

输入： 3, 5

输出：

 _____ _____ _____ _____ _____
|     |_   _|     |_   _|     |
|  _   _) (_   _   _) (_   _  |
|_( )_|_   _|_( )_|_   _|_( )_|
|    _| (_) |_   _| (_) |_    |
|   (_   _   _) (_   _   _)   |
|_   _|_( )_|_   _|_( )_|_   _|
| (_) |_   _| (_) |_   _| (_) |
|      _) (_       _) (_      |
|_____|_____|_____|_____|_____|

测试案例4

输入： 2, 2

输出：

 _____ _____
|    _|     |
|   (_   _  |
|_   _|_( )_|
| (_) |_    |
|      _)   |
|_____|_____|

澄清说明

  • 每个拼图的高度和宽度都不应按比例缩放。
  • 用H和W大于一个，可能的最小尺寸2x2（见IO 4）。
  • 您可以拥有完整的程序或功能。
  • 如果您使用的是函数，则可以在参数H的第一行和W第二行输入2行。
  • 输出到stdout（或类似的东西）。
  • 这是代码高尔夫球，因此最短答案以字节为单位。
code-golf  ascii-art  tiling 
— Bobas_Pett
source
作品的标签是否必须在交替的方向上？
— Zgarb
我应该随机输出还是每次只能输出一个拼图？如果是随机的，是否所有拼图都可以统一使用？
— user48538 '16
@Zgarb是的，我按照基本模式编辑了拼图中的每一行，如下所示
— Bobas_Pett
@ zyabin101，您只需要输出一个可能的“ ASCII拼图”，因此1个输入只有1个输出
— Bobas_Pett
1
第一次尝试看起来好像最终将达到一个兆字节。好问题。
— ElPedro '16

Answers:

6

的JavaScript（ES6）272 277 271

编辑错误修复

编辑2保存6个字节thx @L.Serné

再次编辑3个错误修复

(w,h,z=(s,q=3,i=h)=>'|  '.slice(0,q)+s.repeat(w).substr(i%2*6+q,w*6-q-~-q)+`  |
`.slice(~q))=>eval("t=z(' _____',0,0)+z('|_   _|     ',2,--h)+z(b=' _) (_   _  ')+z(c='|_   _|_( )_',0);for(a='|_   _| (_) ';--h;)t+=z(a,2)+z(b)+z(c,0)")+z(a,2)+z(' _) (_      ')+z('|_____',1)

少打高尔夫球

(w,h,
  z=(s,q=3,i=h)=>'|  '.slice(0,q)+s.repeat(w).substr(i%2*6+q,w*6-q-~-q)+'  |\n'.slice(~q),
  a='|_   _| (_) ',
  b=' _) (_   _  ',
  c='|_   _|_( )_',
  t=z(' _____',0,0)+z('|_   _|     ',2,--h)+z(b)+z(c,0)
)=>{
  for(;--h;)
    t+=z(a,2)+z(b)+z(c,0);
  return t+z(a,2)+z(' _) (_      ')+z('|_____',1)
}

测试

F=
(w,h,z=(s,q=3,i=h)=>'|  '.slice(0,q)+s.repeat(w).substr(i%2*6+q,w*6-q-~-q)+`  |
`.slice(~q))=>eval("t=z(' _____',0,0)+z('|_   _|     ',2,--h)+z(b=' _) (_   _  ')+z(c='|_   _|_( )_',0);for(a='|_   _| (_) ';--h;)t+=z(a,2)+z(b)+z(c,0)")+z(a,2)+z(' _) (_      ')+z('|_____',1)

function update() {
  var w=+W.value,h=+H.value
  O.textContent=F(w,h)
}

update()
W<input id=W value=2 oninput='update()' type=number min=2>
H<input id=H value=2 oninput='update()' type=number min=2>
<pre id=O></pre>
展开摘要

— edc65
source
非常好！高尔夫版本给我带来麻烦，但是：Nx2无法正常工作（例如3x2产生undefined | |（）| _ | |（_ _）| | _____ | _____ | _____ |，并在右上角提交奇数高度部件缺少顶部边框，似乎在高尔夫运动中丢失了一些内容；编辑：“奇高”错误是由高尔夫和非高尔夫代码共同引起的
— Bence Joful
@BenceJoful在最后一次打高尔夫球之后没有足够的测试。现在已修复
— edc65 '16
您可以将最后一个参数（t）和第四个参数（a）的声明移至for循环（并像这样将b和c的声明移至t的声明内：for(t=z(' _____',0,0)+z('|_ _| ',2,--h)+z(b=' _) (_ _ ')+z(c='|_ _|_( )_',0);--h;a='|_ _| (_) ')这样可以节省4个逗号，所以最终得到仅273个字符。编辑：测试代码片段仍然存在错误……
— 路加福音
@L.Serné烦恼如何？您不能将t=...for 放进去，它在h == 2时失败。正是我今天修复的错误。
— edc65 '16
1
np，我玩弄了您的代码，undefined结果a是在for循环的最后部分声明了原因。我稍微修改了代码，然后结束了。您应该能够将其与eval集成，以进行另外的2B保存。(w,h,z=(s,q=3,i=h)=>'| '.slice(0,q)+s.repeat(w).substr(i%2*6+q,w*6-2*q+1)+' |\n'.slice(~q),a='|_ _| (_) ')=>{for(t=z(' _____',0,0)+z('|_ _| ',2,--h)+z(b=' _) (_ _ ')+z(c='|_ _|_( )_',0);--h;)t+=z(a,2)+z(b)+z(c,0);return t+z(a,2)+z(' _) (_ ')+z('|_____',1)}（276 B）。
— 路加福音
5

Python，513字节

def r(m,n):
 r=3*m
 c=6*n
 l=3-(n%2)*3
 z=[1,2,3,4,5,0]
 p=zip
 return"\n".join("".join(" |_()"[[[((j%6,i%3)in[(1,0),(5,0)])*2or((j%6,i%3)in[(0,1),(0,0)])or((j%4,i%6)in[(1,1),(1,2),(3,4),(3,5)])*2or((i%6,j%12)in p(z,[10,2,10,4,8,4]))*4or((i%6,j%12)in p(z,[8,4,8,2,10,2]))*3,1,0][j in[0,c]or((j,i%6)in p([1,1,2,2],[1,2]*2)+p([c-1,c-1,c-2,c-2],[1+l,2+l]*2)or(i,j%12)in[(1,8),(1,9),(1,10),(2,8),(2,9),(2,10),(r-1,9)]or(i,j%12)==(r-1,3+6*(m%2)))*2],2*(j%6>0)or i>0][i in[0,r]]]for j in range(c+1))for i in range(r+1))

也许比迷恋高尔夫更有趣，这是通过确定每个(x,y)坐标指向哪个字符而不是通过字符串建立每个图案来进行的。松开它看起来像

char_codes = " |_()"
def base(row, col):
    if col % 6 in [5] and row % 3 in [0, 2]:
        return 1
    if col % 6 in [0, 4] and row % 3 in [2]:
        return 2
    return 0

def underscores(row, col):
    if col % 4 in [0] and row % 6 in [0, 1] or col % 4 in [2] and row % 6 in [3, 4]:
        return 2
    return 0

def parentheses(row, col):
    if (row % 6, col % 12) in [(0, 9), (1, 1), (2, 9), (3, 3), (4, 7), (5, 3)]:
        return 4
    if (row % 6, col % 12) in [(0, 7), (1, 3), (2, 7), (3, 1), (4, 9), (5, 1)]:
        return 3
    return 0

def value(row, col):
    return base(row, col) + underscores(row, col) + parentheses(row, col)

def new_value(last_row, last_col, row, column):
    if row in [0, last_row]:
        return 2*(column % 6 > 0) or row>0
    if column in [0, last_col]:
        return 1
    if column in [1,2] and row % 6 in [1, 2]:
        return 0
    if column in [last_col - 1, last_col - 2] and row % 6 in [[4,5],[1,2]][last_col%12>0]:
        return 0
    if row in [1, 2] and column % 12 in [8,9,10]:
        return 0
    if row == last_row - 1 and column % 12 == 9:
        return 0
    return value(row - 1, column - 1)

def puzzle(rows, cols):
    last_row = rows * 3
    last_col = cols * 6
    return "\n".join("".join(new_value(last_row, last_col, row, col) for col in range(last_col + 1)) for row in range(last_row + 1))

图案本身看起来像

我们可以看到这是一个整数查询表，其中列采用mod 6，行采用mod 3

 012345
0     |
1
2_   _|

 0123
0_
1_
2
3  _
4  _
5

 0123456789AB
0       ( )
1 ) (
2       ( )
3 ( )
4       ) (
5 ( )

这种组合不同模式的策略在我这里并没有真正实现，因为表达它们非常麻烦（尽管我认为我可以打更多的高尔夫球），并且边缘情况占用了很多字符才能修复。我提出这个问题的原因是因为它花了我一分钟时间，所以可能引起您的兴趣。

— 沃尔彭
source
1
通过将整个内容放在用分号分隔的1行上，您可以节省7个字节
— Blue
@Blue感谢队友，自从我上一次高尔夫以来已经有一段时间了，我已经忘记了一些技巧。
— walpen '16
2

Mathematica，384个字节

(m=#~Mod~2&;a=#~Array~Y&;s=(h="   _  ")[o="|_( )_",z="|_   _",w=" _) (_",z,p="| (_) "];l="|  _  "[o,"|    _",u="|   (_",z,p];r=h[o,q="|_    ",t=" _)   ",z,p];{X,Y}=#;a[" _____"&]<>" \n"<>Join[{a[If[#<Y,z,q]["|     "][[m@#]]&]},Table[Which[y<2,l,y<Y,s,0<1,r][[Mod[x+3y,6]]],{x,3,3X-1},{y,1,Y}],{a[If[#<2,"|     "[u],"      "[If[#<Y,w,t]]][[m[X+#]]]&],a["|_____"&]}]~Riffle~"|\n"<>"|")&

未命名函数，将有序整数对作为其参数，并返回包含适当换行符的字符串。加上空格和换行符：

(m = Mod[#1, 2] &; a = Array[#1, Y] &; 
 s = (h = "   _  ")[o = "|_( )_", z = "|_   _", w = " _) (_", z, p = "| (_) "];
 l = "|  _  "[o, "|    _", u = "|   (_", z, p]; 
 r = h[o, q = "|_    ", t = " _)   ", z, p];
 {X, Y} = #1; 
 a[" _____" &] <> " \n" <>
 Riffle[
   Join[
     {a[If[#1 < Y, z, q]["|     "][[m[#1]]] &]}, 
     Table[
       Which[y < 2, l, y < Y, s, 0 < 1, r][[Mod[x + 3 y, 6]]],
       {x, 3, 3 X - 1}, {y, 1, Y}
     ],
     {a[If[#1 < 2, "|     "[u], "      "[If[#1 < Y, w, t]]][[m[X + #1]]] &],
     a["|_____" &]}
   ], "|\n"
 ] <> "|") &
— 格雷格·马丁
source
2

批次，562528字节

@echo off
set t=!  !
set w=%2
set a= _) (_!_   _! (_) !        _  !_( )_!_   _ _) (_
call:d "!     !_   _" 2 " _____ _____" 4
for /l %%j in (2,1,%1)do call:t
call:d "!_____!_____" 1 "%a:~18,6%%a:~-6%" 3
exit/b
:t
set a=%a:~24%%a:~0,24%
call:d "%a:~6,6%%a:~30,6%" 1 "%a:~0,6%%a:~24,6%" 3
call:c "%a:~12,6%%a:~36,6%" 2
exit/b
:d
call:c %3 %4
:c
set s=
for /l %%i in (%w%,-2,1)do call set s=%~1%%s%%&if %%i==1 call set s=%%s:~6%%
if %2 lss 4 set s=%s%!&call set s=%%t:~0,%2%%%%s:~%2,-%2%%%%t:~-%2%%
echo %s:!=^|%

事实证明，它能抵抗高尔夫运动，因为重复运动往往会花费太多字节来消除，例如，由于计算成本太高，我手动输入了行号mod 3。编辑：此外，我无意中|每三行打了多余的球，这是不正确的。解决这个问题实际上为我节省了2个字节（原始版本为4个字节）。说明：a包含各种拼图。该:t函数将它们交换为每三行一组，然后提取所需的子字符串，:c然后该函数成对重复，但如果w奇数则删除第一列。然后在输出行之前先处理左右边缘情况。另一个边缘情况是第一行，其中!s更改为空格，而不是|s（代码避免使用|s，因为它们在批处理中很难处理）。

— 尼尔
source
2

Befunge，263 243字节

|_   _| (_)
 _) (_   _
|_   _|_( )_

|
|
|_____
 _____
>&:08p3*28p&:18p6*38pv
@#!`g82:,_v0+55+1p84:<_
\g82+g84<| `g83:+1,g\%*6-g852+*6/3+2g84\++%3+2\!:g84*4p85:!!+*`0%6\!*`
6/08g+2%^>>::::48g3/2%2*`\48g3/18g+2%!2*+38g\`*!48g3%0`*\::6/2%!48g\`\

在线尝试！

这种工作方式是通过迭代要输出的区域的x，y坐标，然后将x，y值映射到拼图模式（存储在游戏场的前三行）中的u，v坐标。此映射是通过以下基本公式实现的：

u = (x+(y+2)/3*6) % 12
v = (y+2)%3 + (y==0)

所述ü坐标重复每12列，但也需要由6个每3行偏移。该v坐标重复，每3行，但我们加入y==0到这样的非常第一行可以呈现为一个特例的价值。但是，要处理边缘，我们需要引入一个附加的布尔值e，该值对各种边缘位置均适用，并按以下方式调整公式：

u = (x+(y+2)/3*6) % (e?6:12)
v = (y+2)%3 + (y==0) + e*4

因此，如果我们在边缘上，则在v坐标上加上4，以便在第5到7行上使用更简单的边缘图案。由于该边缘图案，我们现在还需要将u坐标修改为6而不是12。每6列重复一次。

至于e值本身，这需要一个相当复杂的公式，因为边缘位置包含了拼图边框的某种不规则区域。

elr = (x <= 2*y/3%2 or x >= w-2*!(y/3+cols)%2) and (y%3 > 0)
etb = (y <= !(x/6%2) or y >= h-(x/6+rows)%2) and (x%6 > 0)
e   = elr or etb

没有考虑太多细节，基本的故障是ELR沿左，右边框边缘位置相匹配，而ETB沿着顶部和底部边框的比赛地点。

— 詹姆斯·霍尔德尼斯
source
1

JavaScript（ES6），285个字节

f=
(h,w,a=` _) (_|_   _| (_)    _  |_( )_|_   _      |     |_____`.match(/.{6}/g),g=(l,r,j)=>a[7].slice(0,j)+(a[l]+a[r]).repeat(w).slice(j,w*6+1-j)+`  |`.slice(-j))=>[` _____`.repeat(w),g(1,7,2),...[...Array(--h*3)].map((_,i)=>g(i%6,(i+3)%6,"312"[i%3])),g(h=h%2*6,6-h,3),g(8,8,1)].join`
`
<div oninput=o.textContent=+h.value&&+w.value?f(h.value,w.value):''><input id=h type=number min=1><input id=w type=number min=1><pre id=o>
展开摘要

这是我的批处理答案的端口，只是为了查看它是否与@ edc65的答案竞争。令人讨厌的长字符串包含拼图碎片。前六块代表竖锯内部一列的两行。第七片代替竖立线用于竖锯的倒数第二行。第八片代替第五片在拼图的第二行上使用，并且还充当拼图的左边缘。第九块是拼图的最后一行。

— 尼尔
source
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.