language-agnostic - 高尔夫代码: hive

Question

Locked. This question and its answers are locked，因为该问题是题外话，但具有历史意义。它目前不接受新的答案或互动。








挑战

字符计数最短的代码，它将根据用户输入生成 hive 。

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

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

 __
/  \
\__/

六边形彼此完成: hive 的第一列将为“低”，第二列将为高-交替并重复以形成W六边形的相同模式。这将重复H次以形成总共WxH的六边形。

测试用例:

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

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

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

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

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

最佳答案

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开头，后跟(3,6)的H个重复。 map调用创建一个子字符串列表，这些子字符串从适当的位置开始，并且 $W = 3 * W + 1个字符长。

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

关于language-agnostic - 高尔夫代码: hive ，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/1540030/

上一篇：messaging - Apache Camel 生产者和消费者

下一篇：.net - 对多线程应用程序进行单元测试？

相关文章：

python - 查找图像中的空白区域

python - 函数式编程方法，或大多数 Pythonic 方法，一次使用两个相邻变量遍历数组

language-agnostic - 两个整数的比较和相加 : in detail

language-agnostic - Code Golf : Code 39 Bar Code

language-agnostic - Code Golf:为我打造弧线

algorithm - 考虑代理质量的转向行为

language-agnostic - Code Golf 新年版 - 整数到罗马数字

php - 简单的 PHP 表单 : Attachment to email (code golf)

language-agnostic - Code Golf : Calculate Orthodox Easter date

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开头，后跟(3,6)的H个重复。 map调用创建一个子字符串列表，这些子字符串从适当的位置开始，并且 $W = 3 * W + 1个字符长。

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