소개

어린 시절의 노래 Eeny, meeny, miny, moe 는 종종 태그를 재생할 때 누가 "그것"인지 선택하는 데 사용되었습니다. 모든 사람은 원 안에 서서 무작위로 선택된 한 사람을 가리 킵니다. 그들은 노래 할 것이다 :

Eeny, meeny, miny, moe,
발가락으로 호랑이를 잡아라.
그가 외면한다면, 그를
보내라, Eeny, meeny, miny, moe.

그들은 각 단어를 부를 때 원의 다음 사람을 가리 켰습니다. 마지막 "moe"가 불려질 때 지적 된 사람은 "it"입니다. 아이들은 즉시 일어나서 흩어졌습니다.

골

입력, 자식 수 및 지정된 시점에서 노래 된 단어를 나열하는 가장 짧은 프로그램을 바이트 단위로 구현하십시오.

우승자는 1 주일 이내에 선발됩니다.

입력

STDIN에서, 단일의 양의 정수인 하위 수. 노래의 단어 수보다 많을 수 있습니다.

산출

STDOUT에 각 줄이 자식을 나타내고 가리키는 단어라는 노래가 포함 된 목록을 씁니다. 자식이 너무 많으면 빈 줄이 생략 될 수 있습니다.

요구 사항

• 항상 첫 번째 아이부터 시작하십시오.
• 문장 부호없이 단어를 표시하십시오.
• 마지막 "moe"는 "MOE!"로 강조되어야합니다. 구두점 포함

예

입력

3

산출

Eeny moe tiger toe hollers go miny
meeny Catch by If let Eeny MOE!
miny a the he him meeny

입력

7

산출

Eeny by him
meeny the go
miny toe Eeny
moe If meeny
Catch he miny
a hollers MOE!
tiger let

입력

1

산출

Eeny meeny miny moe Catch a tiger by the toe If he hollers let him go Eeny meeny miny MOE!

입력

21

산출

Eeny
meeny
miny
moe
Catch
a
tiger
by
the
toe
If
he
hollers
let
him
go
Eeny
meeny
miny
MOE!

티 스크립트 , 82 바이트

D`${a="Ey Ú9y ·ny "}¶e C® a g by e e If  Ò@s ¤t m go ${a}MOE!`q.KαtΣj═)j╝

압축 해제, 청크, 조옮김, 결합, 출력.

설명

              // Implicit: x = input
D`...blah...` // Decompress "Eeny miny moe..."
q             // Split
Kα            // chunk into x-size blocks (α == x)
t             // Transpose
Σ             // Loop through lines
j═)             // Join with spaces
j╝            // Join with newline

온라인으로 사용해보십시오

비경쟁 81 바이트

은 α체인 점점되지 않았다 .나는 버그 수정이에 있었다 있도록

D`${a="Ey Ú9y ·ny "}¶e C® a g by e e If  Ò@s ¤t m go ${a}MOE!`qKαtΣj═)j╝

Pyth, 103 89 84 자

@Dennis 및 @FryAmTheEggman 덕분에 문자열 압축으로 18 바이트 절약 @isaacg
덕분에 다른 바이트 절약

경고 : 코드에는 인쇄 할 수없는 항목이 많이 있습니다. 아래 링크를 사용하여 사용해보십시오.

VQjd%Q>cs[J."@y)òÎ5O¹c×Ú"."@yæ\J}ÇZH66¥ÓÀD¸¶=ðÉ §J%ÔþÖúÅ="J"MOE!")\@N

온라인으로 사용해보십시오 | 테스트 스위트

아마 골프를 쳤다. 제안을 환영합니다!

작동 원리

VQjd%Q>cs[J."..."."..."J"MOE!")\@N    Implicit: Q = eval(input)
VQ                                    For each item N in range 0...int(Q):
         [                    )        Create an array out of the following:
          J."..."                       Set J to this string, decompressed. ("Eeny@meeny@miny@")
                 ."..."                 This string, decompressed. ("moe@Catch@...let@him@go@")
                       J                J.
                        "MOE!"          "MOE!".
        s                              Join the array with the empty string.
       c                       \@      Split the result on "@".
      >                          N     Cut off the first N items.
    %Q                                 Take every Qth item.
  jd                                   Join with spaces.

젤리, 84 바이트

“£Dṡ“Ṙ©“Ė“¡Ḳ⁵“=U“¡Ẹ⁵“¡Ṇm“ȯf“ŀQ“ÞṖċ¥“ṅ_“Ẉ1“¡æḷ“¡ƒmxĠ“¡ṇƭEỤr“¡Þ¦»ṫ-2;;“MOE!”W¤sƓZj€⁶j⁷

온라인으로 사용해보십시오!

자바 스크립트 (ES6), 167 바이트

l=Array(n=+prompt()).fill``;`${s=`Eeny meeny miny `}moe Catch a tiger by the toe If he hollers let him go ${s}MOE!`.split` `.map((w,i)=>l[i%n]+=w+` `);alert(l.join`
`)

설명

l=Array(              // l = array of lines
  n=+prompt()         // n = input number
).fill``;             // initialise l as empty strings

`${s=`Eeny meeny miny `}moe Catch a tiger by the toe If he hollers let him go ${s}MOE!`

.split` `.map((w,i)=> // for each word w
  l[i%n]+=w+` `       // add it to the lines
);
alert(l.join`
`)                    // output the lines

하스켈 160 157 바이트

import Data.Lists
unlines.map unwords.transpose.(`chunksOf`(["moe Catch a tiger by the toe If he hollers let him go","MOE!"]>>=words.("Eeny meeny miny "++)))

"Eeny meeny miny "다른 부분 ( "moe Catch ..."및 "MOE!") 앞에 두 문자열을 연결하고, 단어로 분할하고, 필요한 크기의 청크를 가져오고, 단일 문자열로 다시 바꾸고 연결합니다.

@Mauris는 공통 서브 스트링 "Eeny meeny miny"를 f빼내고 포인트를 없앰 으로써 3 바이트를 찾았 습니다.

파이썬 2, 154 147 바이트

편집 : 조 윌리스 감사합니다!

i=input()
s='Eeny meeny miny '
for j in range(i):print' '.join((s+'moe Catch a tiger by the toe If he hollers let him go '+s+'MOE!').split()[j::i]) 

이것은 [0 :: n]이리스트의 n 번째 요소를 인쇄하는 트릭을 사용합니다.

여기 사용해보십시오

루비, 160 바이트

puts (a=[*%w[Eeny meeny miny moe Catch a tiger by the toe If he hollers let him go Eeny meeny miny MOE!].each_slice(gets.to_i)])[0].zip(*a[1..-1]).map{|x|x*' '}

문자열을 "압축"하려는 모든 시도는 방금 길어졌습니다. 아직 시도 중 ...

puts                      # output to STDOUT...
(a=                       # assign this stuff to the variable a
 [*                       # convert to array...
  %w[blah blah]           # %w splits on spaces
  .each_slice(gets.to_i)  # split into slices of input number
 ]
)[0]                      # take the first element of a
.zip(*a[1..-1])           # zip it with the remaining elements
                          #   because transpose complains about ragged 2D arrays
.map{|x|x*' '}            # join all sub-arrays on space
                          #   puts automatically inserts newlines for us

JavaScript (ES6), 189 바이트 :

a=prompt(),b=Array(a--).fill``,c=0;"Eeny meeny miny moe Catch a tiger by the toe If he hollers let him go Eeny meeny miny MOE!".split` `.map(v=>(b[c]+=v+' ',c+=c>a-1?-c:1));alert(b.join`\n`)

설명:

a=prompt(), //Get the STDIN
b=Array(a--).fill``, //Make an array based on how many kids there are
c=0; //Start the iteration variable
"Eeny meeny miny moe Catch a tiger by the toe If he hollers let him go Eeny meeny miny MOE!"
.split` `.map(
    v=>(
        b[c] += v + ' ',
        c += c > a - 1 ? -c : 1
    )
);alert(b.join`\n`)

파이썬 3, 279 278 272 173 바이트

(말 그대로 나를 100 + 바이트를 구한 Mathias Ettinger에게 감사드립니다 ! )

s=" Eeny meeny miny moe Catch a tiger by the toe If he hollers let him go Eeny meeny miny moe!";w=s.split();i=input();i=int(i)
for z in range(i):W=w[z::i];print(" ".join(W))  

누군가가 팁이나 sugestions를 가지고 있다면 정말 감사합니다. 감사!

Mathematica, 154 바이트

StringRiffle[Thread@Partition[StringSplit@"Eeny meeny miny moe Catch a tiger by the toe If he hollers let him go Eeny meeny miny MOE!",#,#,1,""],"
"," "]&

대부분의 다른 답변의 split-chunk-transpose-join-output 방법을 사용합니다.

MATLAB, 167 바이트 / 문자 :

n=input('');s='Eeny meeny miny ';s=strsplit([s 'moe Catch a tiger by the toe If he hollers let him go ' s 'MOE!']);f=@fprintf;for i=1:n f('%s ',s{i:n:end});f('\n');end

설명:

n=input('');             % Grab the input (number of children)
s='Eeny meeny miny ';    % Common string portion
% Build the full string and split into cell array at spaces
s=strsplit([s 'moe Catch a tiger by the toe If he hollers let him go ' s 'MOE!']);
f=@fprintf;              % Just a shorthand for later (only saves 1 char here)
for i=1:n                % Loop to the number of children
    f('%s ',s{i:n:end}); % Print each nth word, shifted by child
    f('\n');             % Start each child's words on a new line
end

이 기간 동안 수상을하지는 않았지만 재미있었습니다. :-)

apt, 90 87 86 바이트

Uo mW{V=`EydÚ9yd·nyd` +`¶C®»dgdbydÈIfddÒ@sd¤tdmdgod{V}MOE!` qd f@Y%U¥W} m¸·

많은 인쇄 할 수없는 것들. 온라인으로 사용해보십시오!

작동 원리

              // Implicit: U = input
Uo mW{     }  // Create the range 0...U and map each item W to:
V=`...`       //  Set V to this string, decompressed. "Eenydmeenydmined"
+`...{V}MOE!` //  Concatenate it with this string, decompressed, with V inserted.
qd            //  Split at "d"s.
f@Y%U¥W       //  Filter to only the items where (index % U == W).
m¸            // Map each item by joining with spaces.
·             // Join the result with newlines.

다른 구분 기호로 문자열을 압축하려고했습니다. 공백보다 효율적인 유일한 방법은 소문자이지만 대부분은 이미 사용되므로 문자열을 분할하는 데 사용할 수 없습니다. 나머지 압축으로 얼마나 많은 압축을 달성했는지는 다음과 같습니다.

space -> 69 bytes
c -> 66 (including a null byte)
d -> 65
j -> 69
k -> 69
p -> 68
q -> 69
s -> 61 (but there's an s in "hollers")
u -> 65
w -> 67
x -> 69
y -> 69

현재 나는을 사용하고 d있습니다. 을 사용하여 s다른 문자를 대체 하여 바이트를 저장할 수 있습니다 hollers.