Introduction:

Je pense que nous le savons tous, et il a probablement été traduit dans de nombreuses langues: la chanson pour enfants "Head, Shoulders, Knees and Toes":

Tête, épaules, genoux et orteils, genoux et orteils
Tête, épaules, genoux et orteils, genoux et orteils
Et yeux et oreilles et bouche et nez
Tête, épaules, genoux et orteils, genoux et orteils
wikipedia

Défi:

Entrée: Un entier positif.

Sortie: affichez l'un des mots suivants en fonction de l'entrée en tant que nième index:

head
shoulders
knees
toes
eyes
ears
mouth
nose

Ici, les parties du corps sont ajoutées aux index:

Head (0), shoulders (1), knees (2) and toes (3), knees (4) and toes  (5)
Head (6), shoulders (7), knees (8) and toes (9), knees (10) and toes (11) 
And eyes (12) and ears (13) and mouth (14) and nose (15)
Head (16), shoulders (17), knees (18) and toes (19), knees (20) and toes (21)

Head (22), shoulders (23), knees (24) and toes (25), knees (26) and toes  (27)
Head (28), shoulders (29), knees (30) and toes (31), knees (32) and toes (33) 
And eyes (34) and ears (35) and mouth (36) and nose (37)
Head (38), shoulders (39), knees (40) and toes (41), knees (42) and toes (43)

etc.

Règles du défi:

• Vous êtes bien sûr autorisé à utiliser une entrée indexée 1 au lieu de l'index 0. Mais veuillez préciser celui que vous avez utilisé dans votre réponse.
• La sortie est insensible à la casse, donc si vous voulez la sortir en majuscules, c'est très bien.
• Vous devez prendre en charge jusqu'à 1 000 entrées au minimum.

Règles générales:

• C'est du code-golf , donc la réponse la plus courte en octets est gagnante.
  Ne laissez pas les langues de golf de code vous décourager de publier des réponses avec des langues autres que le golf de code. Essayez de trouver une réponse aussi courte que possible pour «n'importe quel» langage de programmation.
• Des règles standard s'appliquent à votre réponse, vous êtes donc autorisé à utiliser STDIN / STDOUT, des fonctions / méthodes avec les paramètres appropriés, des programmes complets. Ton appel.
• Les failles par défaut sont interdites.
• Si possible, veuillez ajouter un lien avec un test pour votre code.
• Veuillez également ajouter une explication si nécessaire.

Cas de test (indexés 0):

Input:  Output:
0       head
1       shoulders
7       shoulders
13      ears
20      knees
35      ears
37      nose
98      knees
543     nose
1000    knees

05AB1E , 36 35 34 octets

“‡ä¾ØsÏ©s¸±s“#2䤫Г—íÖÇ©¢ÄÓ#s)˜è

Essayez-le en ligne! ou en tant que suite de tests

Explication

“‡ä¾ØsÏ©s¸±s“                        # dictionary string 'head shoulders knees toes'
             #                       # split on spaces
              2ä                     # split in 2 parts
                ¤                    # get the last part ['knees', 'toes']
                 «                   # concatenate and flatten
                                     # STACK: [['head', 'shoulders'], ['knees', 'toes'], 'knees', 'toes']
                  Ð                  # triplicate
                   “—íÖÇ©¢ÄÓ        # dictionary string 'eyes ears mouth nose'
                             #s      # split on spaces and swap top 2 elements of stack
                               )˜    # wrap stack in a list and flatten
                                 è   # index into list with input

En bref, nous construisons la liste ['head', 'shoulders', 'knees', 'toes', 'knees', 'toes', 'head', 'shoulders', 'knees', 'toes', 'knees', 'toes', 'eyes', 'ears', 'mouth', 'nose', 'head', 'shoulders', 'knees', 'toes', 'knees', 'toes']et l'indexons avec une entrée (indexée 0).

JavaScript (ES6), 91 88 87 octets

n=>'knees,toes,head,shoulders,eyes,ears,mouth,nose'.split`,`[(245890>>(n%22&~1))&6|n%2]

Comment ça marche

Nous avons 4 paires de mots distincts qui apparaissent toujours ensemble: «tête» est toujours suivi par «épaules», «genoux» est toujours suivi par «orteils», etc.

Par conséquent, nous pouvons utiliser l'index suivant:

00: [ 'knees', 'toes' ]
01: [ 'head', 'shoulders' ]
10: [ 'eyes', 'ears' ]
11: [ 'mouth', 'nose' ]

Et compressez toute la séquence (dans l'ordre inverse) dans le masque binaire suivant:

00 00 01 11 10 00 00 01 00 00 01

Nous utilisons [ 'knees', 'toes' ]comme première paire pour obtenir autant de zéros de tête que possible.

Nous complétons cette séquence avec un extra 0afin que la valeur extraite soit prémultipliée par 2, ce qui conduit à:

0b00000111100000010000010 = 245890

D'où la formule finale pour le mot correct:

(245890 >> (n % 22 & ~1)) & 6 | n % 2

Cas de test

let f =

n=>'knees,toes,head,shoulders,eyes,ears,mouth,nose'.split`,`[(245890>>(n%22&~1))&6|n%2]

console.log(f(0));    // head
console.log(f(1));    // shoulders
console.log(f(7));    // shoulders
console.log(f(13));   // ears
console.log(f(20));   // knees
console.log(f(35));   // ears
console.log(f(37));   // nose
console.log(f(98));   // knees
console.log(f(543));  // nose
console.log(f(1000)); // knees

Python 2, 158 148 137 128 114 109 104 octets

La table de recherche semble meilleure. Également raccourci la grosse chaîne et réorganisé les articles. -5 octets grâce à Rod pour avoir utilisé une chaîne comme liste.

c=int('602323'*2+'4517602323'[input()%22])
print"smkteehnhonoyaeooueeerasutesssdelhs"[c::8]+"ders"*(c<1)

solution initiale:

n=input()%22
n-=10*(n>15)
if n>=12:n-=8
else:n%=6;n-=2*(n>3)
print"hskteemnehnoyaooaoeeerusduessste ls   h  d       e       r       s"[n::8].strip()

Perl, 74 octets

73 octets code + 1 pour -p.

$_=(@a=(head,shoulders,(knees,toes)x2),@a,eyes,ears,mouth,nose,@a)[$_%22]

Utilise l'indexation basée sur 0. N'affiche pas de séparateur, mais cela pourrait être modifié avec -ldans les drapeaux.

Essayez-le en ligne .

Python 2, 97 90 octets

Il y a peut-être un peu de calcul qui fait que je n'ai pas à faire la liste de mots, mais cela fonctionne pour l'instant!

lambda n,k='head shoulders '+'knees toes '*2:(k*2+'eyes ears mouth nose '+k).split()[n%22]

^{Merci à Flp.Tkc pour avoir économisé 7 octets :)}

Java 7, 155 137 131 123 111 110 octets

String c(int i){return"knees,toes,head,shoulders,eyes,ears,mouth,nose".split(",")[(245890>>(i%22&~1))&6|i%2];}

-12 octets grâce à @Neil .
-1 octet en créant sans vergogne un port de la réponse étonnante de @Arnauld .

Java est indexé 0, c'est donc ce que j'ai utilisé.

Non testé et code de test:

Essayez ici.

class M{
  static String c(int i){
    return "knees,toes,head,shoulders,eyes,ears,mouth,nose".split(",")
      [(245890>>(i%22&~1))&6|i%2];
  }

  public static void main(String[] a){
    System.out.println(c(0));
    System.out.println(c(1));
    System.out.println(c(7));
    System.out.println(c(13));
    System.out.println(c(20));
    System.out.println(c(35));
    System.out.println(c(37));
    System.out.println(c(98));
    System.out.println(c(543));
    System.out.println(c(1000));
  }
}

Sortie:

head
shoulders
shoulders
ears
knees
nose
ears
knees
nose
knees

C, 153 octets 141 octets

*b[]={"head","shoulders","knees","toes","eyes","ears","mouth","nose"};i;char*g(a){a%=22;i=(a+4)%10;return b[a<4?a:(a&12)>8?a-8:i<2?i:a%2+2];}

Merci à @cleblanc pour 4 octets. Déclarer b globalement lance une tonne d'avertissements sur la conversion en int, mais n'a pas été interrompu pour moi.

Ungolfed:

*b[]={"head","shoulders","knees","toes","eyes","ears","mouth","nose"};
i;
char* g(a) {
    a%=22;
    i=(a+4)%10;
    return b[a < 4        ? a
            :(a & 12) > 8 ? a-8
            :i < 2        ? i
            :               a % 2 + 2];
}

Ce n'est pas la plus petite réponse, mais j'ai aimé la technique et j'ai eu du plaisir à trouver quelques modèles.

Journal des modifications:

• Déplacé bvers global pour éviter char(4 octets)
• a > 11 && a < 16=> (a & 12) > 8(2 octets)
• i=(a-6)%10=> i=(a+4)%10pour que i < 2 && i >= 0=> i < 2(6 octets)

JavaScript (ES6) 91 89 octets

f=
n=>((d='head:shoulders:'+(b='knees:toes:')+b)+d+'eyes:ears:mouth:nose:'+d).split`:`[n%22]

console.log(f.toString().length)
console.log(f(0) === 'head')
console.log(f(1) === 'shoulders')
console.log(f(7) === 'shoulders')
console.log(f(13) === 'ears')
console.log(f(20) === 'knees')
console.log(f(35) === 'ears')
console.log(f(37) === 'nose')
console.log(f(98) === 'knees')
console.log(f(543) === 'nose')
console.log(f(1000) === 'knees')

R, 95 octets

c(o<-c("head","shoulders",y<-c("knees","toes"),y),o,"eyes","ears","mouth","nose",o)[scan()%%22]

Crée un vecteur de caractères pour fonctionner comme une table de recherche. Prend l'entrée de stdin ( 1-indexed) et %%22pour trouver la partie du corps correspondante.

Bonus: %%est vectorisé, ce qui signifie que cela fonctionnera également avec des entrées vectorielles.

Cas de test sur R-fiddle (Notez qu'il s'agit d'une fonction nommée car scanelle ne fonctionne pas sur R-fiddle)

jq, 80 caractères

(Code de 77 caractères + option de ligne de commande de 3 caractères)

((("head shoulders "+"knees toes "*2)*2+"eyes ears mouth nose ")*2/" ")[.%22]

Échantillon échantillon:

bash-4.3$ jq -r '((("head shoulders "+"knees toes "*2)*2+"eyes ears mouth nose ")*2/" ")[.%22]' <<< 1000
knees

Test en ligne (le passage -rpar l'URL n'est pas pris en charge - vérifiez vous-même la sortie brute.)

WinDbg, 207 157 151 151 octets

ea2000000"headshoulderskneestoeseyesearsmouthnoseAEEJNFSENFSEAEEJNFSENFSEWE[E_FdEAEEJNFSENF";r$t4=(@$t0%16)*2+2000027;da1FFFFBF+by(@$t4) Lby(@$t4+1)-41

-50 octets en codant le décalage / la longueur des parties du corps en caractères ascii.

-6 octets en utilisant une variable locale lors de la recherche du décalage / de la longueur.

L'entrée se fait avec une valeur définie dans le pseudo-registre $t0 .

Comment ça marche:

* Initialization, writes this string at address 0x2000000. The nonsense after the body parts
* are the offsets and lengths of the body parts in the first part of the string, each of
* which is incremented by 0x41 to make it a printable ascii character.
ea 2000000 
        "headshoulderskneestoeseyesearsmouthnoseAEEJNFSENFSEAEEJNFSENFSEWE[E_FdEAEEJNFSENF";


* Display the output:
r$t4=(@$t0%16)*2+2000027
da1FFFFBF+by(@$t4) Lby(@$t4+1)-41

* Display output explanation:
r $t4 = (@$t0%16)*2+2000027   * Set $t4 = input, @$t0, mod 22, doubled +0x2000027
by(@$t4)                      * byte_at(@$t4)-0x41 is the {Offset} into the string 
                              * for the start of output. The -0x41 is already subtracted
                              * from 0x2000000 to make 0x1FFFFBF.
Lby(@$t4+1)-41                * byte_at(@$t4+1)-0x41 is the {Length} of the output.
da 1FFFFBF+{Offset} L{Length} * Display {Length} chars from {Offset} of the above string.

Exemple de sortie:

0:000> r$t0=0
0:000> ea2000000"headshoulderskneestoeseyesearsmouthnoseAEEJNFSENFSEAEEJNFSENFSEWE[E_FdEAEEJNFSENF";r$t4=(@$t0%16)*2+2000027;da1FFFFBF+by(@$t4) Lby(@$t4+1)-41
02000000  "head"


0:000> r$t0=1
0:000> ea2000000"headshoulderskneestoeseyesearsmouthnoseAEEJNFSENFSEAEEJNFSENFSEWE[E_FdEAEEJNFSENF";r$t4=(@$t0%16)*2+2000027;da1FFFFBF+by(@$t4) Lby(@$t4+1)-41
02000004  "shoulders"


0:000> r$t0=7
0:000> ea2000000"headshoulderskneestoeseyesearsmouthnoseAEEJNFSENFSEAEEJNFSENFSEWE[E_FdEAEEJNFSENF";r$t4=(@$t0%16)*2+2000027;da1FFFFBF+by(@$t4) Lby(@$t4+1)-41
02000004  "shoulders"


0:000> r$t0=0n13
0:000> ea2000000"headshoulderskneestoeseyesearsmouthnoseAEEJNFSENFSEAEEJNFSENFSEWE[E_FdEAEEJNFSENF";r$t4=(@$t0%16)*2+2000027;da1FFFFBF+by(@$t4) Lby(@$t4+1)-41
0200001a  "ears"


0:000> r$t0=0n20
0:000> ea2000000"headshoulderskneestoeseyesearsmouthnoseAEEJNFSENFSEAEEJNFSENFSEWE[E_FdEAEEJNFSENF";r$t4=(@$t0%16)*2+2000027;da1FFFFBF+by(@$t4) Lby(@$t4+1)-41
0200000d  "knees"


0:000> r$t0=0n35
0:000> ea2000000"headshoulderskneestoeseyesearsmouthnoseAEEJNFSENFSEAEEJNFSENFSEWE[E_FdEAEEJNFSENF";r$t4=(@$t0%16)*2+2000027;da1FFFFBF+by(@$t4) Lby(@$t4+1)-41
0200001a  "ears"


0:000> r$t0=0n37
0:000> ea2000000"headshoulderskneestoeseyesearsmouthnoseAEEJNFSENFSEAEEJNFSENFSEWE[E_FdEAEEJNFSENF";r$t4=(@$t0%16)*2+2000027;da1FFFFBF+by(@$t4) Lby(@$t4+1)-41
02000023  "nose"


0:000> r$t0=0n98
0:000> ea2000000"headshoulderskneestoeseyesearsmouthnoseAEEJNFSENFSEAEEJNFSENFSEWE[E_FdEAEEJNFSENF";r$t4=(@$t0%16)*2+2000027;da1FFFFBF+by(@$t4) Lby(@$t4+1)-41
0200000d  "knees"


0:000> r$t0=0n543
0:000> ea2000000"headshoulderskneestoeseyesearsmouthnoseAEEJNFSENFSEAEEJNFSENFSEWE[E_FdEAEEJNFSENF";r$t4=(@$t0%16)*2+2000027;da1FFFFBF+by(@$t4) Lby(@$t4+1)-41
02000023  "nose"


0:000> r$t0=0n1000
0:000> ea2000000"headshoulderskneestoeseyesearsmouthnoseAEEJNFSENFSEAEEJNFSENFSEWE[E_FdEAEEJNFSENF";r$t4=(@$t0%16)*2+2000027;da1FFFFBF+by(@$t4) Lby(@$t4+1)-41
0200000d  "knees"

PHP, 91 102 118 128 129 129 octets

<?=[head,shoulders,knees,toes,eyes,ears,mouth,nose]['0123230123234567012323'[$argv[1]%22]];

0 indexé

Jusqu'à 91 après la suppression de str_split, je ne savais pas que la chaîne PHP était accessible en tant que tableau de caractères (une chose PHP 5+?)

Jusqu'à 102 grâce à la suggestion d'insertion de nom d'utilisateur pour supprimer les guillemets et autoriser les notifications

Gelée , 55 octets

“¥ḷne“¥ṇṭḲ»ẋ2ṭ“¢1$“@⁼5⁼»µẋ2;“¥ḳVo“¥ḳ'k“£Qo“£³ạ»;⁸FḊḲ
ị¢

Essayez-le en ligne! (Indice basé sur 1)

Allons! Vraiment?

En prime, voici la chaîne compressée que je devais utiliser à la place de la ligne supérieure:

“¡¦ṡb[wfe=⁺żɦ4Gƈġhḳ"ẇ⁴ż>oH¹8ṡʠʠḟṀUṿḶ>¬Þ:ĖẇrṗṁɼlDṫỤ¬ȷ⁶Dḥci*⁻³GḲOÞạṖṃ\»

Les deux codent cette chaîne:

head shoulders knees toes knees toes head shoulders knees toes knees toes eyes ears mouth nose head shoulders knees toes knees toes

Je suppose que je devrais faire de l'exercice maintenant: P

Powershell, 91 octets, indexé zéro

$a='head shoulders '+'knees toes '*2;($a*2+'eyes ears mouth nose '+$a).Split()[$args[0]%22]

Approche très simple, générez le tableau des 22 premiers éléments en utilisant une multiplication de chaînes si possible, en les compilant avec des espaces et en les séparant à la fin. (le fractionnement est 2 octets plus court que la configuration équivalente en tant que tableau), puis il suffit de trouver le point dans ce tableau en utilisant le module de l'entrée, pas exactement intéressant ou spécifique à la langue.

Cas de test:

PS C:\++\golf> 0..1000|%{.\hskt $_}
head
shoulders
knees
toes
knees
toes
head
shoulders
knees
toes
knees
toes
eyes
ears
mouth
nose
head
shoulders
knees
toes
knees
toes
head
shoulders
knees
toes
....

etc.

rubis, 81 octets

Fonction lambda utilisant l'indexation zéro.

->n{("head shoulders#{" knees toes "*2}eyes ears mouth nose".split*2)[n%22-6&15]}

explication

Nous générons le tableau suivant, dont nous utilisons les 16 premiers éléments, couvrant les lignes 2,3,3,4 correctes de la chanson:

%w{head shoulders knees toes knees toes
   eyes ears mouth nose
   head shoulders knees toes knees toes

   eyes ears mouth nose}                  #last 4 elements not used

Nous prenons n modulo 22 pour le réduire à un seul verset, puis nous soustrayons 6. L'index 6 (par exemple) a maintenant été changé en 0 et pointe vers le bon mot. Indique 0..5 qui pointent vers la première ligne du morceau sont désormais négatifs. Nous utilisons &15(identique à %16mais évite le besoin de crochets) pour mapper la 1ère ligne de la chanson à la 4ème ligne. Ainsi index 0-> -6->10

dans le programme de test

f=->n{("head shoulders#{" knees toes "*2}eyes ears mouth nose".split*2)[n%22-6&15]}

#call as below to test index 0..43
44.times{|i|p f[i]}

Befunge, 129 119 octets

0 indexé

&29+2*%:2/v>00p>%#7_v
+%2\-"/"g2<|<:-1g007<"head*shoulders*knees*toes*eyes*ears*mouth*nose"p00
02202246022>$$:>7#:%#,_@

Essayez-le en ligne!

Explication

Comme Arnauld l'a souligné, les mots viennent par paires, nous avons donc un index de seulement 11 valeurs, puis ajoutons le mot numéro% 2 pour obtenir le mot approprié dans la paire. Les mots sont poussés sur la pile sous la forme d'une chaîne unique séparée par des astérisques pour économiser de l'espace. Nous testons les sauts de mots en prenant la valeur de caractère modulo 7, car seul l'astérisque est un multiple de 7.

&29+2*%               n = getint() % 22             // % 22 to ensure it's in range
:2/2g                 i = index_array[n/2]          // we use n/2 because words are paired
-"/"                  i -= '/'                      // convert from ASCII to 1-based value
\2%+                  i += n%2                      // get the correct word in the pair
00p                   index = i                     // save for later

"head*shoulders*knees*toes*eyes*ears*mouth*nose"    // push all the words onto the stack

700g1-:|              while (index-1 != 0) {        // the 7 is used in the drop loop   
  00p                   index = index-1             
  >%#7_                 do while (pop() % 7)        // drop up to the next '*' (%7==0)
                      }                    

$$                    pop();pop()                   // get rid of index and extra 7

: 7 % _               while ((c = pop()) % 7)       // output up to the next '*' (%7==0)
 > : ,                  putchar(c)

SQL 2005 747 octets

Golfé:

GO
CREATE PROCEDURE H @n INT AS BEGIN IF NOT EXISTS(SELECT*FROM R)BEGIN INSERT INTO R VALUES('head')INSERT INTO R VALUES('shoulders')INSERT INTO R VALUES('knees')INSERT INTO R VALUES('toes')INSERT INTO R VALUES('knees')INSERT INTO R VALUES('toes')INSERT INTO R VALUES('head')INSERT INTO R VALUES('shoulders')INSERT INTO R VALUES('knees')INSERT INTO R VALUES('toes')INSERT INTO R VALUES('knees')INSERT INTO R VALUES('toes')INSERT INTO R VALUES('eyes')INSERT INTO R VALUES('ears')INSERT INTO R VALUES('mouth')INSERT INTO R VALUES('nose')INSERT INTO R VALUES('head')INSERT INTO R VALUES('shoulders')INSERT INTO R VALUES('knees')INSERT INTO R VALUES('toes')INSERT INTO R VALUES('knees')INSERT INTO R VALUES('toes')END SELECT W FROM R WHERE I=@n%22 END

Ungolfed:

GO
CREATE PROCEDURE H
@n INT 
AS 
BEGIN IF NOT EXISTS(SELECT*FROM R)
BEGIN 
INSERT INTO R VALUES('head')INSERT INTO R VALUES('shoulders')INSERT INTO R VALUES('knees')INSERT INTO R VALUES('toes')INSERT INTO R VALUES('knees')INSERT INTO R VALUES('toes')INSERT INTO R VALUES('head')INSERT INTO R VALUES('shoulders')INSERT INTO R VALUES('knees')INSERT INTO R VALUES('toes')INSERT INTO R VALUES('knees')INSERT INTO R VALUES('toes')INSERT INTO R VALUES('eyes')INSERT INTO R VALUES('ears')INSERT INTO R VALUES('mouth')INSERT INTO R VALUES('nose')INSERT INTO R VALUES('head')INSERT INTO R VALUES('shoulders')INSERT INTO R VALUES('knees')INSERT INTO R VALUES('toes')INSERT INTO R VALUES('knees')INSERT INTO R VALUES('toes')
END 
SELECT W FROM R WHERE I=@n%22 END

A besoin d'une table comme celle-ci, où la première colonne est auto-incrémentée:

Il s'agit d'une réponse à un index. Le tableau est rempli la première fois que la procédure stockée est créée - cela ne me permettrait pas de faire tout cela INSERTdans une seule instruction, malheureusement, cette fonctionnalité n'est disponible qu'en >=SQL 2008. Après cela, il utilise l' %22astuce des autres réponses. Une fois le tableau rempli, il n'utilise que la dernière partie:

SELECT W FROM R WHERE I=@n%22

Input:  Output:
R 1       head
R 2       shoulders
R 8       shoulders
R 14      ears
R 21      knees
R 36      ears
R 38      nose
R 99      knees
R 54      nose
R 1001    knees

bash (avec ed), 83 caractères

1 indexé

ed<<<"a
head
shoulders
knees
toes
eyes
ears
mouth
nose
.
3,4t4
1,6y
6x
$(($1%22))"

Exemple d'appel:

 $ bash test.sh 1001
 knees

DC , 135 octets

6[head]6[:add6-r;ar:adA+r;ar:a]dshx7[shoulders]7lhx8[knees]8lhxA 2;aAlhx9[toes]9lhxB 3;aBlhx[eyes]C:a[ears]D:a[mouth]E:a[nose]F:a22%;ap

Essayez-le en ligne!

Les tableaux dcdoivent être construits un élément à la fois, ce qui prend le poids de cet exercice. Étant donné que les «yeux», les «oreilles», la «bouche» et le «nez» n'apparaissent qu'une seule fois dans notre tableau, nous les insérons simplement. Mais pour les autres, nous économisons quelques octets en les mettant sur la pile comme x[head]x, où x est le milieu de ses trois valeurs, puis nous exécutons la macro [:add6-r;ar:adA+r;ar:a]dshxpour la placer dans le tableau, la retirer, la remettre à la même valeur moins six, la retirer, puis la remettre une dernière fois à la valeur d'origine plus dix. Nous utilisons la valeur moyenne parce quedc nous permet d'utiliser des chiffres hexadécimaux même en mode décimal, et la soustraction Aest un octet de moins que l'ajout16- cela ne fonctionne que parce que toutes les valeurs moyennes sont inférieures à quinze. Nous devons faire les genoux et les orteils deux fois, et rendre notre macro suffisamment intelligente pour trier cela est plus cher que de simplement exécuter la macro deux fois; mais nous économisons des octets ici en chargeant une copie de la chaîne précédemment stockée au lieu de la réécrire ( B 3;aBvs B[toes]B- je pense que cela économise 3 octets au total).

Une fois que nous avons construit le tableau, tout ce que nous devons faire est 22%, puis ;apde le tirer à partir du tableau et d' impression.

C # 6, 138 octets

string F(int i)=>(i+10)%22<4?"eyes,ears,mouth,nose".Split(',')[(i+10)%22%4]:"head,shoulders,knees,toes,knees,toes".Split(',')[(i+6)%22%6];

démo repl.it

Ungolfed + commentaires:

string F(int i)=>
    // Is it eyes/ears/mouth/nose?
    (i+10)%22<4
        // If yes, then set index to 4-word line and take modular 4
        // String array constructed by splitting comma-delimited words
        ? "eyes,ears,mouth,nose".Split(',')
            [(i+10)%22%4]
        // Else set index to last 6-word line and take modular 6
        : "head,shoulders,knees,toes,knees,toes".Split(',')
            [(i+6)%22%6];

Excel, 146 octets

=MID("Head     ShouldersKnees    Toes     Eyes     Ears     Mouth    Nose",CHOOSE(MOD(MOD(MOD(B1+16,22),16),10)+1,1,10,19,28,19,28,37,46,55,64),9)

Utilise @ Neil's MOD(MOD(MOD(B1+16,22),16),10)pour économiser des 15octets.