Введение:

Я думаю, что мы все это знаем, и, вероятно, она была переведена на множество разных языков: детская песня "Голова, плечи, колени и пальцы":

Голова, плечи, колени и пальцы, колени и пальцы
Голова, плечи, колени и пальцы, колени и пальцы
И глаза и уши, рот и нос
Голова, плечи, колени и пальцы, колени и пальцы
Википедия

Вызов:

Входные данные: положительное целое число.

Выходные данные: Выведите одно из следующих слов на основе ввода в качестве n-го индекса:

head
shoulders
knees
toes
eyes
ears
mouth
nose

Здесь части тела дополнены индексами:

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.

Правила соревнований:

• Вам, конечно, разрешено использовать 1-индексированный ввод вместо 0-индексированный. Но, пожалуйста, укажите, какой из них вы использовали в своем ответе.
• Вывод нечувствителен к регистру, так что если вы хотите вывести его заглавными буквами, это нормально.
• Вы должны поддерживать ввод как минимум до 1000.

Основные правила:

• Это код-гольф , поэтому выигрывает самый короткий ответ в байтах.
  Не позволяйте языкам кода-гольфа отговаривать вас от публикации ответов на языках, не относящихся к кодексу. Попробуйте придумать как можно более короткий ответ для «любого» языка программирования.
• К вашему ответу применяются стандартные правила , поэтому вы можете использовать STDIN / STDOUT, функции / метод с правильными параметрами, полные программы. Ваш звонок.
• По умолчанию лазейки запрещены.
• Если возможно, добавьте ссылку с тестом для вашего кода.
• Также, пожалуйста, добавьте объяснение, если это необходимо.

Контрольные примеры (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 байта

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

Попробуйте онлайн! или как тестовый набор

объяснение

“‡ä¾Ø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

Короче говоря, мы строим список ['head', 'shoulders', 'knees', 'toes', 'knees', 'toes', 'head', 'shoulders', 'knees', 'toes', 'knees', 'toes', 'eyes', 'ears', 'mouth', 'nose', 'head', 'shoulders', 'knees', 'toes', 'knees', 'toes']и индексируем его с помощью ввода (0-indexed).

JavaScript (ES6), 91 88 87 байт

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

Как это работает

У нас есть 4 различные пары слов, которые всегда появляются вместе: за «головой» всегда следуют «плечи», за «коленями» всегда следуют «пальцы ног» и т. Д.

Поэтому мы можем использовать следующий индекс:

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

И сжать всю последовательность (в обратном порядке) в следующую двоичную маску:

00 00 01 11 10 00 00 01 00 00 01

Мы используем [ 'knees', 'toes' ]в качестве первой пары, чтобы получить как можно больше ведущих нулей.

Мы дополняем эту последовательность дополнительным, 0так что извлеченное значение предварительно умножается на 2, что приводит к:

0b00000111100000010000010 = 245890

Отсюда и окончательная формула для правильного слова:

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

Контрольные примеры

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 байта

Таблица поиска кажется лучше. Также укоротил большую строку и переупорядочил предметы. -5 байт спасибо Роду за использование строки в качестве списка.

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

исходное решение:

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 байта

Код 73 байта + 1 для -p.

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

Использует индексирование на основе 0. Не выводит разделитель, но это можно изменить с -lпомощью флагов.

Попробуйте онлайн .

Python 2, 97 90 байт

Может быть, есть какая-то математика, из-за которой мне не нужно составлять список слов, но пока это работает!

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

^{Спасибо Flp.Tkc за сохранение 7 байтов :)}

Java 7, 155 137 131 123 111 110 байт

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

-12 байт благодаря @Neil .
-1 байт, бесстыдно создавая порт удивительного ответа @Arnauld .

Ява индексируется 0, так что это то, что я использовал.

Ungolfed & тестовый код:

Попробуй это здесь.

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));
  }
}

Выход:

head
shoulders
shoulders
ears
knees
nose
ears
knees
nose
knees

C, 153 байта, 141 байта

*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];}

Спасибо @cleblanc за 4 байта. Объявление b глобально бросает тонну предупреждений о приведении к int, но не сломалось для меня.

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];
}

Это не самый маленький ответ, но мне понравилась техника, и я с удовольствием нашел несколько шаблонов.

Changelog:

• Перемещен bв глобальный, чтобы избежать char(4 байта)
• a > 11 && a < 16=> (a & 12) > 8(2 байта)
• i=(a-6)%10=> i=(a+4)%10так что i < 2 && i >= 0=> i < 2(6 байт)

JavaScript (ES6) 91 89 байт

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 байт

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

Создает символьный вектор для работы в качестве справочной таблицы. Принимает ввод из stdin ( 1-indexed) и %%22находит соответствующую часть тела.

Бонус: %%векторизован, что означает, что это будет работать и с векторными входами.

Тестовые случаи на R-fiddle (обратите внимание, что это именованная функция, потому scanчто не работает на R-fiddle)

JQ, 80 символов

(77 символов кода + 3 символа командной строки)

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

Образец прогона:

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

Он-лайн тест (пропуск -rчерез URL не поддерживается - проверьте Raw Output самостоятельно.)

WinDbg, 207 157 151 байт

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

-50 байтов за счет кодирования смещения / длины частей тела в виде символов ascii.

-6 байт, используя локальную переменную при поиске смещения / длины.

Ввод осуществляется с помощью значения, установленного в псевдорегистре $t0.

Как это работает:

* 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.

Пример вывода:

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 байт

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

0-индексированные

Вплоть до 91 после удаления str_split, не понимал, что строки PHP были доступны как массив символов (вещь PHP 5+?)

До 102 благодаря предложению insertusername для удаления строковых кавычек и разрешения уведомлений

Желе , 55 байт

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

Попробуйте онлайн! (Индекс на основе 1)

Давай! В самом деле?

В качестве бонуса, это сжатая строка, которую я должен был использовать вместо верхней строки:

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

Оба кодируют эту строку:

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

Угадай, мне пора идти сейчас

Powershell, 91 байт, с нулевым индексом

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

Очень простой подход - генерировать массив первых 22 элементов, используя, где это возможно, умножение строк, компилируя их с пробелами и разделяя в конце. (расщепление на 2 байта короче, чем эквивалентная установка в виде массива), затем просто найдите точку в этом массиве, используя модуль ввода, не совсем интересный или зависящий от языка.

Прецедент:

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
....

и т.п.

рубин, 81 байт

Лямбда-функция, использующая нулевую индексацию.

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

объяснение

Мы генерируем следующий массив, из которого мы используем первые 16 элементов, покрывающих правильные строки 2,3,4 песни:

%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

Мы берем n по модулю 22, чтобы свести его к одному стиху, затем вычитаем 6. Теперь индекс 6 (например) был изменен на 0 и указывает на правильное слово. Индексы 0..5, которые указывают на первую строку песни, теперь отрицательны. Мы используем &15(идентично, %16но избегаем необходимости в скобках), чтобы отобразить 1-ю строку песни на 4-ю строку. Таким образом индекс 0-> -6->10

в тестовой программе

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 байт

0 индексированные

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

Попробуйте онлайн!

объяснение

Как указал Арно , слова идут парами, поэтому у нас есть индекс всего из 11 значений, а затем добавляем слово номер% 2, чтобы получить соответствующее слово в паре. Слова помещаются в стек как одна строка, разделенная звездочками, чтобы сэкономить место. Мы проверяем разрывы слов, принимая значение char по модулю 7, поскольку только звездочка кратна 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 байт

Golfed:

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

Нужна таблица вроде этой, где первый столбец автоматически увеличивается:

Это одноиндексный ответ. Таблица заполняется при первом создании хранимой процедуры - это не позволило бы мне выполнить все INSERTв одном выражении, к сожалению, эта функция доступна только в >=SQL 2008. После этого он использует %22трюк из других ответов. После заполнения таблицы используется только последняя часть:

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

Баш (с ред.), 83 символа

1-индексированных

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

Образец звонка:

 $ bash test.sh 1001
 knees

постоянный ток , 135 байт

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

Попробуйте онлайн!

Массивы dcдолжны быть построены по одному элементу за раз, что берет на себя всю тяжесть этого упражнения. Поскольку «глаза», «уши», «рот» и «нос» появляются в нашем массиве только один раз, мы просто вставляем их. Но для остальных мы экономим несколько байтов, помещая их в стек, например x[head]x, где x является серединой его трех значений, затем мы запускаем макрос, [:add6-r;ar:adA+r;ar:a]dshxчтобы поместить его в массив, вытягиваем его обратно, вставляем в то же значение, меньшее шести, вытягиваем обратно, а затем помещаем в последний раз в исходное значение плюс десять Мы используем среднее значение, потому что dcпозволяет нам использовать шестнадцатеричные цифры даже в десятичном режиме, а вычитание Aна один байт меньше, чем сложение16- это также работает только потому, что все средние значения меньше пятнадцати. Мы должны делать колени и пальцы ног дважды, и сделать наш макрос достаточно умным, чтобы разобраться в этом, дороже, чем просто запустить макрос дважды; но мы сохраняем байты здесь, загружая ранее сохраненную копию строки вместо того, чтобы записывать ее снова ( B 3;aBпротив B[toes]B- я думаю, что это экономит всего 3 байта).

Как только мы построим массив, все, что нам нужно сделать, это 22%затем ;apизвлечь его из массива и распечатать.

C # 6, 138 байт

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];

repl.it demo

Ungolfed + комментарии:

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 байт

=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)

Использует @ Neil's MOD(MOD(MOD(B1+16,22),16),10)для сохранения 15байтов.