代码高尔夫：蜂巢

Question

挑战

根据字符数计算的最短代码将根据用户输入生成蜂巢。

蜂巢被定义为由用户输入的大小为两个大于零的正数的六边形网格（无需验证输入）。第一个数字 (W) 代表蜂箱的宽度 - 或者 - 每行有多少个六边形。第二个数字 (H) 代表蜂箱的高度 - 或者 - 每列有多少个六边形。

单个六边形由三个 ASCII 字符组成：_、/ 和 \，以及三行：

 __
/  \
\__/

六边形相互补充：第一列第一个蜂箱将处于“低”位置，第二个蜂箱将处于“高”位置 - 以相同的图案交替和重复，形成 W 六边形。这将重复 H 次以形成总共 WxH 的六边形。

测试用例：

Input:
    1 1
Output:
     __
    /  \
    \__/

---

Input:
    4 2
Output:
        __    __
     __/  \__/  \
    /  \__/  \__/
    \__/  \__/  \
    /  \__/  \__/
    \__/  \__/

---

Input:
    2 5
Output:
        __ 
     __/  \
    /  \__/
    \__/  \
    /  \__/
    \__/  \
    /  \__/
    \__/  \
    /  \__/
    \__/  \
    /  \__/
    \__/

---

Input:
    11 3
Output:
        __    __    __    __    __
     __/  \__/  \__/  \__/  \__/  \__
    /  \__/  \__/  \__/  \__/  \__/  \
    \__/  \__/  \__/  \__/  \__/  \__/
    /  \__/  \__/  \__/  \__/  \__/  \
    \__/  \__/  \__/  \__/  \__/  \__/
    /  \__/  \__/  \__/  \__/  \__/  \
    \__/  \__/  \__/  \__/  \__/  \__/

---

代码计数包括输入/​​输出（即完整程序）。

Answer 1

Perl，99 个字符

@P=map{$/.substr$".'__/  \\'x99,$_,$W||=1+3*pop}0,(3,6)x pop;
chop$P[0-$W%2];print"    __"x($W/6),@P

上次编辑：保存了一个字符，将 -($W%2) 替换为 0-$W%2（感谢 A. Rex)

解释：

对于宽度 W 和高度 H，输出为 2+2 * H 行长和 3 * W+1 个字符宽，输出中间有很多重复。

为了方便起见，我们让 $W 为 3 * W + 1，即输出的字符宽度。

最上面一行由模式 " __" 组成，重复 W/2 == $W/6 次。

偶数行由重复模式 "\__/ " 组成，并被截断为 $W 字符。第二行输出是一种特殊情况，其中第二行的第一个字符应该是空格而不是 \。

奇数行由重复模式 "/ \__" 组成，并被截断为 $W 字符。

我们构造一个字符串： " " 。 “__/\”x 99。请注意，该字符串的开头是第二行所需的输出。该行从位置 3 开始是奇数行的所需输出，从位置 6 开始是偶数行的所需输出。

map 调用的 LIST 参数以 0 开头，后跟 H 次重复的 (3,6)。 map 调用创建一个从适当位置开始的子字符串列表，长度为 $W = 3 * W + 1 个字符。

在打印结果之前还需要进行一项调整。如果 W 是奇数，则第二行 ($P[0]) 上有一个额外的字符需要被砍掉。如果 W 是偶数，则底行 ($P[-1]) 上有一个额外的字符需要砍掉。

Answer 2

Python 2.6 - 144 个字符，包括换行符

如果允许输入以逗号分隔，我可以节省大约 20 个字符。

C,R=map(int,raw_input().split())
print C/2*"    __"+"\n "+("__/  \\"*99)[:3*C-C%2]
r=0
exec'r+=3;print ("\__/  "*99)[r:r+3*C+1-r/6/R*~C%2];'*2*R

从命令行获取输入的版本多了 4 个字节：

import sys
C,R=map(int,sys.argv[1:])
print C/2*"    __"+"\n "+("__/  \\"*99)[:3*C-C%2]
r=0
exec'r+=3;print ("\__/  "*99)[r:r+3*C+1-r/6/R*~C%2];'*2*R

Answer 3

C89（136 个字符）

x;y;w;main(h){for(h=scanf("%d%d",&w,&h)*h+2;y++
<h;++x)putchar(x>w*3-(y==(w&1?2:h))?x=-1,10:
"/  \\__"[--y?y-1|x?(x+y*3)%6:1:x%6<4?1:5]);}

Answer 4

Perl，160 个字符

$w=shift;for$h(-1..2*shift){push@a,join'',(('\__','/  ')x($w+$h))[$h..$w+$h]}
$a[0]=~y#\\/# #;$a[1]=~s/./ /;s/_*$//for@a;$a[$w%2||$#a]=~s/. *$//;print$_,$/for@a

根本不涉及任何聪明之处：只需用字符填充数组，然后剔除那些看起来丑陋的字符。

strager 的杰作移植到 Perl 后只有 137 个字符，但所有功劳都应归于他。

$w=shift;$\=$/;for$y(1..($h=2+2*shift)){print map+(split//,'_ \__/  ')
[$y-1?$y-2|$_?($_+$y%2*3)%6+2:1:$_%6<4],0..$w*3-!($w&1?$y-2:$y-$h)}

Answer 5

J, 143 个字符

4(1!:2)~(10{a.)&,"1({.4 :0{:)".(1!:1)3
|:(18,(}:,32-+:@{:)3 3 8 1 1 10$~3*x){(,' '&(0})"1,' '&(0 1})"1)(,}."1)(}."1,}:"1)(3++:y)$"1'/\',:' _'
)

在处理可变长度字符串和面向控制台的情况下，使用 J 感觉非常尴尬以其他语言假定的用户交互。不过，我想这还不错......

再次窃取想法（一旦你找到一种以数组结构的方式看待问题的方法，J 就更容易使用），这里是mobrule 的杰作移植于 124（糟糕，它比原来的还要长）：

4(1!:2)~({.4 :0{:)".(1!:1)3
(x}~' '_1}(x=.-1-+:2|x){])((10{a.),(' ',,99#'__/  \',:'    __'){~(i.>:3*x)+])"0]595 0,3 6$~+:y
)

Answer 6

C#，216 个字符

class B{static void Main(string[]a){int b=0,i=0,w=int.Parse(a[0])+1,z=2*w*(int.Parse(a[1])+1);for(;i<z;b=(i%w+i/w)%2)System.Console.Write("\\/ "[i>w&(w%2>0?i<z-1:i!=2*w-1)?b>0?0:1:2]+(++i%w<1?"\n":b>0?"__":"  "));}}

较少混淆：

class B{
    static void Main(string[]a){
       int b=0,
           i=0,
           w=int.Parse(a[0])+1,
           z=2*w*(int.Parse(a[1])+1);

       for(;i<z;b=(i%w+i/w)%2)
           System.Console.Write(
             "\\/ "[i>w&(w%2>0?i<z-1:i!=2*w-1)?b>0?0:1:2]
             +
             (++i%w<1?"\n":b>0?"__":"  ")
           );
    }
}

我使用了以下方法：

input: 4 2
cols:  0 00 1 11 2 22 3 33 4 44     
row 0:" |  | |__| |  | |__| |"
    1:" |__|/|  |\|__|/|  |\|"
    2:"/|  |\|__|/|  |\|__|/|"
    3:"\|__|/|  |\|__|/|  |\|"
    4:"/|  |\|__|/|  |\|__|/|"
    5:"\|__|/|  |\|__|/|  | |"

1. 从零迭代到 (W+1)*(H*2+1)。 *2 是因为每个梳子有 2 行高，+1 表示第一行和行尾。
2. 每次迭代渲染六边形的两个“部分”：
3. 在第一部分的“ ”、“\”和“/”之间决定
4. 在第二部分的“__”、“  ”和“\n”之间决定

如果你观察足够大的蜂窝，这种模式就会很明显。一半逻辑仅用于解决第一行、第二行末尾和最后一个单元中的异常。

Answer 7

Ruby，164

$ ruby -a -p bh.rb

strager 的 Ruby 杰作...

w,h = $F; w=w.to_i
(1..(h = h.to_i * 2 + 2)).each { |y|        
  (0...(w * 3 + (y != ((w & 1) != 0 ? 2 : h) ? 1:0))).each { |x|
    
gt; << ('_ \__/  ' [
      y - 1 != 0 ?
        (y - 2 | x) != 0 ?
          (x + y % 2 * 3) % 6 + 2 : 1 : (x % 6 < 4) ? 1:0]).chr
  }
  
gt; << $/
}

又名

w,h=$F;w=w.to_i
(1..(h=h.to_i*2+2)).each{|y|(0...(w*3+(y!=((w&1)!=0?2:h)?1:0))).each{|x|
gt;<<('_ \__/  '[y-1!=0?(y-2|x)!=0?(x+y%2*3)%6+2:1:(x%6<4)?1:0]).chr}
gt;<<$/}

Answer 8

NewLisp：257个字符

我确信这不是最佳解决方案：

(silent(define(iv)(println)(set v(int(read-line))))(i'w)(i'h )(set't(+(* 3 w)1))(set'l " __/ \\__/ ")(define(pse(b 0))(println(slice(append(dup" "b)( dup(s 6 l)w))0 e)))(p 0 t)(p 4(- t(% w 2))1)(dotimes(n(- h 1))(p 6 t)(p 9 t))(p 6 t)(p 9(- t(%(+ w 1)2))))

更少混淆：

(silent
  (define (i v)
          (println)
          (set v (int (read-line))))
  (i 'w)
  (i 'h)
  (set 't (+ (* 3 w) 1))
  (set 'l "    __/  \\__/  ")
  (define (p s e (b 0))
          (println (slice (append (dup " " b) (dup (s 6 l) w)) 0 e)))
  (p 0 t)
  (p 4 (- t (% w 2)) 1)
  (dotimes (n (- h 1))
    (p 6 t)
    (p 9 t))
  (p 6 t)
  (p 9 (- t(% (+ w 1)2))))

我确信我可以以不同的方式编写循环并保存两行和一个例如，几个字符，但已经晚了......

Answer 9

Golfscript，88 个字符

基于 mobrule 的解决方案。为了让它比那个小，需要做很多工作！换行只是为了清晰起见。

~:r;:c 3*):W 6/"    __"*n
[][0]r[3 6]*+{[" ""__/  \\"99*+>W<]+.},;
c 2%-1 1if:r%)[-1<]+r%
n*

解释：

~:r;,:c              # read input into rows, columns
3 *):W               # store c*3+1 into W
6 /"    __"*n        # write out "    __" W/6 times, plus newline
[]                   # initialize output array
[0]r[3 6]*+          # create array [0] + [3,6] repeated r times
{                    # for every entry in the input array...
[" ""__/  \\"99*+    #   create the magic string
>W<                  #   truncate it between [n:W], where n is the cur entry
]+                   #   store this line in the output array
.},;                 # repeat for every entry in array
                     # now to handle the extra cases:
c 2%-1 1if:r%        # reverse the array if c is odd, do nothing if it's even
)[-1<]               # take the last entry in the array, cut off the last char
+r%                  # put it back on the array, and un-reverse it
n*                   # now join the array with newlines

---

Here is my original entry at 118 characters:

入场晚了，但它是第二小的！ （我只是用这些来学习 Golfscript）。换行是为了清晰起见。

~:r;:c 2%:o;c 2/:b"    __"*n:e
{e" ""\\"if"__/  \\"b*o{"__"e{"":e}"/"if}{"":e}if n
"/""  \\__/"b*o"  \\"""if n}r*
"\\__/  "b o+*

Answer 10

C89 - 261 个必要字符

所有空格都可以删除。我的解决方案使用板的旋转......

x,y,W,h,B[999],*a,*b,*c,*d;
main(w){
  for(scanf("%d%d",&h,&w);y<h;y++,*b++ = *c++ = 63)
    for(x=0,
        W=w*2+2-(h==1),
        a=B+y*W*3+y%2,
        b=a+W,
        c=b+W,
        d=c+W;x++<w;)

      *a++ = 60,
      *a++ = *d++ = 15,
      *b++ = *c++ = 63,
      *b++ = *c++ = 0,
      *d++ = 60;

  for(x=W;--x>=0;puts(""))
    for(y=0;y<h*3+1;putchar(B[x+y++*W]+32));
}

Answer 11

F#，303 个字符

let[|x;y|]=System.Console.ReadLine().Split([|' '|])
let p=printf
let L s o e=p"%s"s;(for i in 1..int x do p"%s"(if i%2=1 then o else e));p"\n"
if int x>1 then L" ""  "" __ ";L" ""__""/  \\"
else L" ""__"""
for i in 1..int y-1 do(L"/""  \\""__/";L"\\""__/""  \\")
L"/""  \\""__/"
L"""\\__/""  "

编辑

现在终于发布了一些其他答案，我不介意分享一个不太模糊的版本：

let [|sx;sy|] = System.Console.ReadLine().Split([|' '|])
let x,y = int sx, int sy

let Line n start odd even =
    printf "%s" start
    for i in 1..n do
        printf "%s" (if i%2=1 then odd else even)
    printfn ""

// header
if x > 1 then
    Line x " "   "  "   " __ "
    Line x " "   "__"   "/  \\"
else    
    Line x " "   "__"   "    "

// body
for i in 1..y-1 do
    Line x "/"    "  \\"   "__/"
    Line x "\\"   "__/"    "  \\"

// footer
Line x "/"   "  \\"    "__/"
Line x ""    "\\__/"   "  "

Answer 12

C# 377 chars

不想让等待“有趣”C# 答案的人失望。
不幸的是，它不是 250 行...;)

using System;
class P{
    static void Main(string[] a){
        int i,j,w=Int32.Parse(a[0]),h=Int32.Parse(a[1]);
        string n="\n",e="",o=e,l="__",s=" ",r=s+s,b=@"\",f="/";
        string[] t={r+r,l,b+l+f,r,l,f+r+b,e,f,b,s};
        for(i=0;i<w;)o+=t[i++%2];
        for(i=0;i<2*h;i++){
            o+=n+(i%2==0?i!=0?b:s:e);
            for(j=0;j<w;)
                o+=t[((j+++i)%2)+4];
            o+=i!=0?t[((w+i)%2)+6]:e;
        }
        o+=n;
        for(i=0;i<w;)o+=t[i++%2+2];
        Console.Write(o);
    }
}

Answer 13

Groovy，#375 字符

相同的逻辑 & @markt 在 C# 中实现的代码，但为 Groovy 更改了一些地方:)

public class FunCode {
        public static void main(a) {
            int i,j,w=Integer.parseInt(a[0]),h=Integer.parseInt(a[1]);
            String n="\n",e="",o=e,l="__",s=" ",r=s+s,b="\\",f="/";
            def t=[r+r,l,b+l+f,r,l,f+r+b,e,f,b,s];
            for(i=0;i<w;)o+=t[i++%2];
            for(i=0;i<2*h;i++){
                o+=n+(i%2==0?i!=0?b:s:e);
                for(j=0;j<w;)
                    o+=t[((j+++i)%2)+4];
                o+=i!=0?t[((w+i)%2)+6]:e;
            }
            o+=n;
            for(i=0;i<w;)o+=t[i++%2+2]; println(o);
        }
    }

Answer 14

Lua，227 个字符

w,h,s=io.read("*n"),io.read("*n")*2+2," " for i=1,h do b=(i%2>0 and "/  \\__" or "\\__/  "):rep(w/2+1):sub(1,w*3+1) print(i==1 and b:gsub("[/\\]",s) or i==2 and b:gsub("^\\",s):gsub("/$",s) or i==h and b:gsub("\\$",s) or b) end

208 个字符，当从命令行读取宽度和高度时。

s,w,h=" ",... h=h*2+2 for i=1,h do b=(i%2>0 and "/  \\__" or "\\__/  "):rep(w/2+1):sub(1,w*3+1) print(i==1 and b:gsub("[/\\]",s) or i==2 and b:gsub("^\\",s):gsub("/$",s) or i==h and b:gsub("\\$",s) or b) end