HexaGolf:字词


25

另见:Rotatagons

挑战

给定一个字符串作为输入,输出其字形。

字角

字形是表示六边形字符串的一种方式。现在,让我们从字符串创建一个wordagon hexa

首先,从字符串中的第一个字符开始,然后将其放置在中心:

h

然后,将字符串中的下一个字符添加并添加一个六边形层:

 e e
e h e
 e e

然后,添加下一层:

  x x x
 x e e x
x e h e x
 x e e x
  x x x

最后,添加最后一层:

   a a a a
  a x x x a
 a x e e x a
a x e h e x a
 a x e e x a
  a x x x a
   a a a a

现在,您有了字符串的字形hexa

例子

这是我之前准备的:

hello

    o o o o o
   o l l l l o
  o l l l l l o
 o l l e e l l o
o l l e h e l l o
 o l l e e l l o
  o l l l l l o
   o l l l l o
    o o o o o

PPcg

   g g g g
  g c c c g
 g c P P c g
g c P P P c g
 g c P P c g
  g c c c g
   g g g g

o *

  * * *
 *     *
*   o   *
 *     *
  * * *

(T_T)

    ) ) ) ) )
   ) T T T T )
  ) T _ _ _ T )
 ) T _ T T _ T )
) T _ T ( T _ T )
 ) T _ T T _ T )
  ) T _ _ _ T )
   ) T T T T )
    ) ) ) ) )

请注意,尾随和/或前导换行符是允许的。

获奖

以字节为单位的最短代码获胜。


14
如果有人在Hexagony中这样做,会获得加分吗?;)
Kevin Cruijssen

输入字符串可以包含换行符吗?我认为这不会带来任何实现问题,只会产生无效的字形
Aaron

@Aaron否,输入字符串将永远不会包含换行符
Beta Decay

输出是从函数返回换行符的字符串是否可以?
丹尼尔(Daniel)

2
w 我很失望,因为我将标题读为“ word-dragons” ...
mbomb007'9

Answers:



19

Python 2,83字节

s=input()
l=len(s)
while 1:l-=1;y=abs(l);print' '*y+' '.join(s[:y:-1]+s[y]*y+s[y:])

打印字形,然后崩溃(仅打印到STDERR)。

例:

% python2.7 wordagon.py <<<'"abcde"' 2&>/dev/null
    e e e e e
   e d d d d e
  e d c c c d e
 e d c b b c d e
e d c b a b c d e
 e d c b b c d e
  e d c c c d e
   e d d d d e
    e e e e e

xnor保存了5个字节。谢谢!


2
优雅的解决方案。
DavidC

1
您可以通过y执行操作n=len(s)\nwhile 1:n-=1;y=abs(n);...并终止于错误来遍历。
xnor

10

Vim,92个字节

:se ri|s/./ &/g
ⓋCⓇ"Ⓓ␛$vpmlmrqqYpi ␛`ljxxhmlylv`rjlmr:s/\%V\(.\)./Ⓡ" /g
@qq@qVdy2G:g/^/m0
Gp

带圆圈的字母表示Control+字母;␛是逃脱。

航天员


3
这不算作按键吗?
索伦

1
@moo_we_all_do 不。这是代码高尔夫球(与编辑高尔夫相对),因此所有答案均应按字节计分。
Martin Ender

第二个@q对我造成无限循环。如果将其删除,它会完美运行。
MTCoster

6

数学100 219个字节

如果ASCII-Art不必是Terminal-Art,则这应该有效。

我先前的陈述错误地画了一颗星星,而不是六边形。我看不出我过得如何!

c = CirclePoints@6;
f@s_:=Graphics[{Text[s~StringPart~1,{0,0}],Flatten@Table[Text[StringPart[s,n+1],#]&/@Subdivide[Sequence@@#,n]&/@Partition[Riffle[(n)CirclePoints@6,RotateLeft[n CirclePoints@6]],2],{n,1,StringLength@s-1}]},BaseStyle->20]

CirclePoints@6 假设中心位于原点,则返回单位六边形的顶点。

Subdivide相邻顶点的坐标找到沿各个边的等距位置。

StringLength -1输入字符串从1到的计数器允许分别处理单词层的每一层。
随着n增加,每个顶点到原点的距离也相应增加。

Text[s~StringPart~1,{0,0}] 在原点打印输入的第一个字母。


f @“ Wordagon”

字角


出于好奇,这就是明星版的样子。我知道,这远远超出了预期。它仅在六角形的顶点显示字母。

Graphics@Table[Text[Style[StringPart[#, r + 1], 54], r {Cos@t, Sin@t}], {t, 0, 2π, π/3}, {r, 0, StringLength@# - 1}] &["Hexa"]

六


5
您能张贴星星的样子吗?:D
Beta Decay's

当然。现在已发布。
DavidC

2
哇,那
真是

3

Ruby,82个字节

->s{n=s.size-1
(r=-n..n).map{|i|(" "*k=i.abs)+r.map{|j|s[[k+j,k,-j].max]}*" "}*$/}

沿1-n..n-1i = y和j = x方向迭代。每行都没有前导空格,输出结果如下所示,这是从s 索引 中选择一个字符的结果[[i.abs+j,i.abs,-j].max]。添加前导空格形成所需的六边形。

f f f f
f l l l f
f l o o l f
f l o G o l f
f l o o l f
f l l l f
f f f f

取消测试程序

f=->s{
  n=s.size-1             n=string length - 1
  (r=-n..n).map{|i|      iterate from -n to n, build an array of lines
    (" "*k=i.abs)+       k=i.abs. Start each line with k spaces.
    r.map{|j|            iterate from -n to n, build an array of characters.
      s[[k+j,k,-j].max]  select character from s (store null string in array if index past end of string)
    }*" "                concatenate the array of characters into a line, separated by spaces
  }*$/                   concatenate the array of lines into a single string, separate by newlines
}

puts f[gets.chomp]

典型输出

   f f f f
  f l l l f
 f l o o l f
f l o G o l f
 f l o o l f
  f l l l f
   f f f f

3

JavaScript(ES6),118个字节

s=>[...Array((l=s.length-1)*2+1)].map((_,i,a)=>a.map((_,j)=>s[Math.max(i-l,l-i,j-l,i-j,l+l-i-j)]||``).join` `).join`\n`

其中\n代表文字换行符。基于我对Hexplosive ASCII艺术挑战的答案,尽管解决方案的某些部分类似于@LevelRiverSt的Ruby答案。Math.max产生的各个组件为以下内容产生以下输出l=3

    i - l           l - i           j - l            i - j        l + l - i - j
- - - - - - -   3 3 3 3 3 3 3   - - - 0 1 2 3    0 - - - - - -    6 5 4 3 2 1 0
- - - - - - -   2 2 2 2 2 2 2   - - - 0 1 2 3    1 0 - - - - -    5 4 3 2 1 0 -
- - - - - - -   1 1 1 1 1 1 1   - - - 0 1 2 3    2 1 0 - - - -    4 3 2 1 0 - -
0 0 0 0 0 0 0   0 0 0 0 0 0 0   - - - 0 1 2 3    3 2 1 0 - - -    3 2 1 0 - - -
1 1 1 1 1 1 1   - - - - - - -   - - - 0 1 2 3    4 3 2 1 0 - -    2 1 0 - - - -
2 2 2 2 2 2 2   - - - - - - -   - - - 0 1 2 3    5 4 3 2 1 0 -    1 0 - - - - -
3 3 3 3 3 3 3   - - - - - - -   - - - 0 1 2 3    6 5 4 3 2 1 0    0 - - - - - -

取最大值,并l除去大于的值,从而产生六边形形状,而其余值映射到字符串中的字符:

6 5 4 3 3 3 3      3 3 3 3          a a a a
5 4 3 2 2 2 3     3 2 2 2 3        a x x x a
4 3 2 1 1 2 3    3 2 1 1 2 3      a x e e x a
3 2 1 0 1 2 3   3 2 1 0 1 2 3    a x e h e x a
4 3 2 1 1 2 3    3 2 1 1 2 3      a x e e x a
5 4 3 2 2 2 3     3 2 2 2 3        a x x x a
6 5 4 3 3 3 3      3 3 3 3          a a a a

1

05AB1E,31个字节

R.pvy`¹gN-©×NFs.ø}Sðý®ð×ì})¦«»

说明

利用对称性仅生成六边形的顶部,
然后将其镜像以形成下部。

R.pv                     }       # for each prefix of the reversed string
                                 # ['f', 'fl', 'flo', 'floG']
    y`                           # split into chars, ex: 'f', 'l', 'o'
      ¹gN-©×                     # repeat the last char len(input)-N times, 
                                 # where N is the 0-based list index of the current prefix
                                 # ex: 'oo'
            NF   }               # N times do
              s.ø                # surround current char with the next char on stack
                                 # ex: 'floolf'
                  Sðý            # insert spaces between each letter, ex: 'f l o o l f'
                     ®ð×ì        # prefix string with len(input)-N spaces
                                 # ex: '  f l o o l f'
                          )      # wrap all strings in a list
                           ¦    # create a reversed copy of the list and 
                                 # remove the first item (as we only need the middle once)
                             «»  # concatenate the lists and merge with newlines

在线尝试!


0

Python 2,104字节

def f(s):
 for n in range(len(s)*2-1):x=abs(n-len(s)+1);print' '*x+' '.join(s[x+1:][::-1]+s[x]*x+s[x:])

0

PHP-202字节

$w=$argv[1];$l=$i=$a=strlen($w)-1;while(-$l<=$i){$s=join(" ",str_split(str_repeat($w[$l],($a-1)/2).substr($w,$a?$a:1,$l+1),1));echo str_pad("",$a).strrev($s).($a%2?" ":" {$w[$a]} ")."$s
";$a=abs(--$i);}

从命令行使用:

php.exe -r "put the escaped code here" "put your desired word here"

例如:

php.exe -r "$w=$argv[1];$l=$i=$a=strlen($w)-1;while(-$l<=$i){$s=join(\" \",str_split(str_repeat($w[$l],($a-1)/2).substr($w,$a?$a:1,$l+1),1));echo str_pad(\"\",$a).strrev($s).($a%2?\" \":\" {$w[$a]} \").\"$s\n\";$a=abs(--$i);}" "example"

测试套件

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.