选择您喜欢的没有重复字母的 6字母普通英语单词，例如wombat。

在不带注释的N×N个字符的网格中编写程序，以使每一行和每一列都以小写形式以任意顺序包含单词的所有字母。该程序必须输出36个字符或更多字符的单词定义。

规则

• 输出到标准输出。没有输入。
• 您的单词必须在Dictionary.com上并且只能包含az。没有专有名词，缩写，缩写，紧缩。
• 您的程序和输出只能包含可打印的ASCII字符（十六进制代码20至7E）。（这不计入程序网格中的必要换行符。）
• 注释是编译器或解释器传统上忽略的任何内容。您可以使用对输出无贡献或未正式执行的代码。
• 输出定义应该是语法上和准确的，但肯定是有趣或聪明的。
• 至少包含单词的6个唯一字母小写的任何行或列均有效。对角线无所谓。

计分

这是代码高尔夫，但是由于所有提交的文件都必须采用相同的正方形格式，因此您可以简单地用N指定得分。最低的N获胜，当然N不能低于6。如果是平局，则以票数最高的答案为准。

例

如果您说的话，wombat您的程序可能如下所示（N = 7）：

wombatD
ombatEw
mbatFwo
bat(wom
atWwomb
tBwomba
)wombat

注意，每一行和每一列都有字符w o m b a t。

输出可能是：（40个字符）

Cute short-legged Australian marsupials.

Perl-葡萄-11

编辑：我不小心使这12行...

$epagsr=$";
$,=$epagsr;
/gaerp/;say
grep!/a*s/,
qw(A searpg
purple sgar
rpssg pear?
No, a sgerp
s great pse
as grape; s
eat prgpsga
up! sgarse)

输出：

A purple pear? No, a great grape; eat up!

更新！

我取消了一行，以使其降至11，但是我不得不更改句子。希望这次我没有犯任何错误！

$gpasre=$";
$,=$gpasre;
/paerg/;say
grep!/a*s/,
qw(A sgrpea
purple sarg
ressp game?
No, a rgspe
s great gsp
as grape; s
eat),$spegr

输出：

A purple game? No, a great grape; eat

输出为37个字符。

Javascript-动作-15x15

“绝对不是最短的PEW，而是PEW PEW。” - 占士邦

ction="action "
ction+="means "
actionac="PEW "
ctionact="PEW "
tionacti="PEW "
ionactio="PEW "
onaction="PEW "
nactiona="PEW "
ction+=actionac
ction+=ctionact
ction+=tionacti
ction+=ionactio
ction+=onaction
ction+=nactiona
alert(""+ction)

链接到jsfiddle

输出（37个字符）：

action means PEW PEW PEW PEW PEW PEW 

Befunge 93，n = 13

这可以通过使用"v和重定向字符串来实现>"。这只有在边长和字长互质，当侧长度大于11眼下，它的工作原理为“字”的作品vwombat，因此对wombat。

"laip"vwombat
wombat>"usr"v
"am "vwombat>
ombat>"nai"vw
lar"vwombat>"
mbat>"tsu"vwo
 d"vwombat>"A
bat>"egg"vwom
-"vwombat>"el
at>"tro"vwomb
"vwombat>"hs 
t>"tuC"vwomba
vwombat>:#,_@

产出 Cute short-legged Australian marsupial

C（单词：“ finder”，N = 16）

main() finder{ f
printf(finder  i
"it's defined "r
"as a t"finder d
"hing t"finder e
"hat ca"finder r
"n find other t"
"hings" finder);
finder finder f\
inder finder fi\
nder finder fin\
der finder find\
er finder finde\
r finder finder
 finder finder n
return 0;finder}

与GCC一起编译，带有options -Dfinder="" -Df="" -Di="" -Dn="" -Dd="" -De="" -Dr=""。

输出it's defined as a thing that can find other things（50个字符）。我相信它遵循所有规则，但是如果有任何错误，请随时告诉我！

GolfScript，N = 12

wombat"Cute"
ombat" sho"w
mbat"rt-l"wo
bat"egge"wom
at"d Au"womb
twomb"stra"a
wom"lian "bt
ttwomb"mar"t
"sup"wbwomat
"ia"womabbtt
"ls"bawomtbt
aaawomobt"."

用GolfScript编码的袋熊示例。输出是

Cute short-legged Australian marsupials.

如问题中所给。有趣的是，您可以使用大多数单词和答案，并且只需将相应的字母插入解决方案中即可，只要您不生成内置的GolfScript（这是非常罕见的p）n就可以了。所有其他组合会导致有效的GolfScript变量，默认情况下为no-op。

Befunge-98（n = 12）

我选择开尔文是因为其中有av。产出kelvin is like celsius but it's lowe

"ewol "vnlik 
"t's"ke<ilnv 
kelniv"t i"< 
elnik>"ub "v 
nkv"elsius"< 
ln>"c eki"vl 
v0ke"is l"<n 
>" nivlek" v 
ielnv,k4'k#< 
 vivlevlnek< 
 ilkkninevei 
  elnkn vnle

Python，n = 15

词是“独木舟”

def canoe(s='S\
ecret weap',sno
='ce',a='ons o\
f the Can',oces
=1,oesn=1,c='a\
dian navy',cose
="""aoenscanaen
canceessanoeeca
anoasanooscanoe
noescccccaeescc
oescneocaeoesca
escaoescan"""):
 canoes=s + a+c
 print (canoes)
s=1;    canoe()

输出：

Secret weapon of the Canadian navy

Perl-重复-11

$repeat=qq(
repeat);say
"repeat\n"x
length'pear
repeatrepea
epeatrepeat
peatrepeatr
eatrepeatre
atrepeatrep
trepeatrepe
repeat....'

输出：

repeat
repeat
repeat
repeat
...keeps going

回首过去，也许我应该使它成为一个循环。

红宝石，haters，N = 10

经过数小时的手工尝试，编写了一个生成器程序，并调整了参数，终于找到了N = 10的解决方案！

aser=ts=?h
tah=re=?\s
sh='Haters
nurse hate
in hardest
hearts.'  
rtse=erha=
era=sh.tr'
',tah;aser
 puts erha

输出Haters nurse hate in hardest hearts.，正好36个字符。在线尝试！

我选择Ruby是因为它的变量不需要$（Perl），并且单引号引起来的字符串可以包含换行符（Python）。该tr方法使用了我单词中的两个字母的事实是意外的收获。该程序的核心很简单：

# Store the definition, with newlines
sh='Haters
nurse hate
in hardest
hearts.'
# Transliterate newline to space
erha=sh.tr('
',' ')
# Output
puts erha

让所有的字母来排队，当然，是不是很简单。我在相同的结构上经历了几种变体，并在此过程中了解了一些关于Ruby的知识（tr不需要括号，这?\s是获得空间的另一种方法）。有很多死胡同和一些误报。然后...成功！

如果有人感兴趣，这是我被黑在一起的生成器程序的要点。

Golfscript（n = 10）

我的第一个golfscript！它打印kelvin is like celsius but it's lowe

"kelvin is
like ce"vn
evn"lsiu"k
k"s "elvni
in"bu"kelv
"t "knviel
vl"it'"nke
nevkil"s l
o"ivnkel"w
e"lnevik

GolfScript，13x13

不是最小的...

squae"A squar
"uarsquaresqu
uareq"e has f
"resuaresquar
resqa"our equ
"squresquares
quars"al side
"arequaresqua
areuq"s and r
"esqaresquare
esqur"ight an
"quaesquaresq
quar"gles..."

... 但是 ...

A squar
e has f
our equ
al side
s and r
ight an
gles...

（在这些单词中使用换行符是有意的，因为否则我将使用前导或尾随的空格，看起来空格较少。）

Python，N = 11

单词是“父母”。这段代码并不漂亮，但是可以正常工作。

eprnt=" a "
at="person"
rnep="that"
nrpt="made"
ea= " prnt"
e="parent:"
pa =(eprnt+
at+" "+rnep
+ea[0]+nrpt
+ eprnt+at)
print(e+pa)

输出： parent: a person that made a person

编辑：不知何故我错过了列还必须包含单词的事实。回想起来，一种包含结尾字符作为该语言一部分的语言不太适合此难题。

点，n = 14（非竞争）

语言比问题要新。这个词是quines。^1个

n_n|quine say&
qu ines     qi
as  harle quin
se?(equins)ns.
 plums|quinces
|quicken bus++
iness|q++++i u
u:++ingl es?eq
ni*:u; s|qe:",
which "Rns|que
eRL:i|quotesne
PUsn    quiet!
u|qe."print".s
JW"quines"  :)

输出以下（公认不完整）的定义：

奎因印花奎因，其中奎因印花，奎因印花，奎因印花，奎因印花，奎因印花，奎因印花，奎因印花，奎因印花，奎因印花，奎因印花，奎因印花，奎因印花，奎因印花奎因，印有奎因，奎尼有印，奎因，有奎尼，印有奎因

在线尝试！

代码的有意义部分因此运行：

++i          Increment i (initially set to 0)
++++i        Increment i twice
u:++i        Increment i again and assign to u (i & u are now 4)
i*:u         Multiply i by u in-place (i is now 16)
e:",         Assign the string ",\nwhich " to e...
which "Rns   after replacing the newline with a space
eRL:i        Make a list of 16 copies of e and assign back to e
ePUs         Push a space to the front of list e
e."print".s  Concatenate "print" and a space to each element of e...
JW"quines"   and join on "quines", wrapping the result in "quines"

其余代码是任意无操作。“填充器”部分中的主要困难是从不评估q，因为它会提示用户输入一行（TIO上不是问题，但我想在所有环境中均使其正确）。我使用了短路逻辑运算符|和&，和三元?来防止进行q求值。

_{¹ Dictionary.com在quine上有一个条目，底部是编程含义部分。由于“ quine”是一个可数名词，因此我认为“ quines”是一个有效的词。}

Javascript，N = 8

我的意思是警报。

s= alert
alert(s+
s+alert)
aaltrsee
leraatts
ertsalar
rtsaaela
tsaesarl

我的代码多次输出javascript警报功能的定义。JavaScript的alert定义是“ function alert（）{[native code]}”。

实际上只有前三行代码对输出有贡献。最后5行是语法错误，但是原始规则指出，只要输出正确，就不必执行所有代码。

这是小提琴的链接：http : //jsfiddle.net/tze76pum/