language-agnostic - Code Golf : Playing Cubes

Question

已锁定。这个问题及其答案是 locked因为这个问题是题外话，但却具有历史意义。目前不接受新的答案或互动。

挑战

按字符数计算的最短代码，将根据用户输入输出积木塔系列。

输入将是一系列数字(正数、负数和零)，表示当前立方体塔在其索引之后的高度。高度为 0 表示没有塔并且是间隔的。

立方体塔由堆叠的立方体组成。如果当前索引上的输入数字为正，则立方体上升，如果输入数字为负，则立方体下降。使用以下 4 行绘制单个立方体:

   __ /__ /||   | ||___|/

立方体是 3D 的 - 这意味着当两个塔彼此相邻放置时，它们会相互隐藏，从而生成假透视。

所有输入都可以假定为有效且没有错误 - 每个数字在一行上用空格分隔，并且至少有一个数字。

测试用例

Input:    2 -3 -2 1 2 -1Output:       __              __     /__ /|          /__ /|    |   | |        _|   | |    |___|/|      /__|___|/|    |   | |__  _|   |   | |__    |___|/__ /__|___|___|/__ /|        |   |   | |     |   | |        |___|___|/|     |___|/        |   |   | |        |___|___|/        |   | |        |___|/

<小时/>

Input:    1 2 3 4 -2 4 3 2 1Output:                   __      __                  /__ /|  /__ /|               _|   | | |   | |__             /__|___|/| |___|/__ /|           _|   |   | | |   |   | |__         /__|___|___|/| |___|___|/__ /|       _|   |   |   | | |   |   |   | |__     /__|___|___|___|/| |___|___|___|/__ /|    |   |   |   |   | |_|   |   |   |   | |    |___|___|___|___|/__|___|___|___|___|/                    |   | |                    |___|/|                    |   | |                    |___|/

<小时/>

Input:    1 3 3 7 0 -2 -2Output:                   __                 /__ /|                |   | |                |___|/|                 |   | |                 |___|/|                 |   | |                 |___|/|            __  _|   | |          /__ /__|___|/|         |   |   |   | |         |___|___|___|/|        _|   |   |   | |      /__|___|___|___|/|     |   |   |   |   | |    __  __    |___|___|___|___|/   /__ /__ /|                        |   |   | |                        |___|___|/|                        |   |   | |                        |___|___|/

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

Answer 1

Perl 157 个字符

这个条目的灵感来自于 gnibbler 的 Ruby 条目，包括关于在代码中嵌入立方体的部分。还要感谢 Kinopiko 指导我学习 substr 的 4 arg 版本。

@O=($/.$"x99)x99;map{for$n(0..$_-1,$_..-1){map{substr$O[50-2*$n+$_],$W+4/$_,6,
(_,"__"
,"/__ /|",
"|   | |",
"|___|/")[$_]}1..4}$W+=4}@ARGV;print grep/\S/,@O

说明:

第 1 行:选择立方体的去向
第 2-5 行:将立方体放在立方体所在的位置，打印