와 같이 반복되는 문자 가 없는 좋아하는 6 개의 문자 영어 단어를 선택하십시오 wombat.

각 행과 열에 모든 순서대로 단어의 모든 문자가 포함 되도록 주석없이 N × N 문자 그리드로 프로그램을 작성 하십시오. 프로그램은 단어의 정의를 36 자 이상으로 출력해야합니다 .

규칙

• 표준 출력으로 출력합니다. 입력이 없습니다.
• 귀하의 단어는 Dictionary.com에 있어야하며 az 만 포함 해야합니다 . 적절한 명사, 머리 글자, 약어, 수축이 없습니다.
• 프로그램 및 출력에는 인쇄 가능한 ASCII 문자 (16 진 코드 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.

펄-포도-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 자입니다.

자바 스크립트-액션-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 

베 펀지 93, n = 13

문자열을 "vand 로 리디렉션하여 작동합니다 >". 이것은 측면 길이와 단어 길이가 공통 길이이고 측면 길이가 11보다 큰 경우에만 작동합니다. 지금은 "word"에 대해 작동 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 (워드 : "파인더", 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로 컴파일했습니다 -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"."

골프 스크립트로 인코딩 된 웜뱃 예제. 출력

Cute short-legged Australian marsupials.

질문에 주어진대로. 흥미로운 부분은 대부분의 단어와 답변을 사용하고 당신이 GolfScript 내장 된 매우 드문 생성하지 않는 한 단순히 길이로 용액에 해당하는 문자를 삽입 할 수 있다는 것입니다 p, n명백한 것들에있는. 다른 모든 조합은 기본적으로 유효하지 않은 유효한 GolfScript 변수로 이어집니다.

베 펀지 -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

파이썬, 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

펄-반복-11

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

산출:

repeat
repeat
repeat
repeat
...keeps going

되돌아 보면 이걸 루프로 만들었을 것입니다.

루비 ,, hatersN = 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공간을 얻는 또 다른 방법입니다). 많은 막 다른 골목과 여러 가지 오탐이있었습니다. 그리고 ... 성공!

누군가 관심이 있다면 해킹 된 발전기 프로그램 의 요지 가 있습니다.

골프 스크립트 (n = 10)

내 첫 골프 스크립트! 인쇄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...

(단어에서 줄 바꿈을하는 것은 의도적입니다. 그렇지 않으면 사각형보다 앞뒤 공백이 생길 수 있기 때문입니다.)

파이썬, 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입니다. ¹

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"  :)

다음과 같은 (정확히 불완전한) 정의를 출력합니다.

quines 인쇄 quines, 인쇄 quines, 인쇄 quines, 인쇄 quines, 인쇄 quines, 인쇄 quines, 인쇄 quines, 인쇄 quines, 인쇄 quines, 인쇄 quines, 인쇄 quines, 인쇄 quines, 인쇄 quines, quines 인쇄, quines 인쇄, quines 인쇄, 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"

나머지 코드는 임의의 작업이 아닙니다. "filler"섹션의 주된 어려움은 평가할 수 없었습니다 q. 사용자에게 입력 줄을 묻습니다 (TIO에서는 문제가되지 않지만 모든 환경에서 올바르게 설정하고 싶었습니다). 나는 단락 논리 연산자를 사용 |하고 &, 그리고 원을 ?방지하기 위해 q의 평가.

_{¹ Dictionary.com에는 quine 항목이 있으며 하단에 프로그래밍 의미에 대한 섹션이 있습니다. "퀸"은 셀 수있는 명사이므로 "퀸"은 유효한 단어라고 주장합니다.}

자바 스크립트, N = 8

내 말은 경고 입니다.

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

내 코드는 자바 스크립트 경고 기능의 정의를 여러 번 출력합니다. Javascript의 경고 정의는 "function alert () {[native code]}"입니다.

처음 세 줄의 코드 만 실제로 출력에 기여합니다. 마지막 5 줄은 구문 오류이지만 원래 규칙에 따르면 출력이 올바른 한 모든 코드를 실행해야하는 것은 아닙니다.

바이올린에 대한 링크는 다음과 같습니다. http://jsfiddle.net/tze76pum/