Вступ

Код Парсонса - це просто простий спосіб описати коливання звуку в музичному творі, будь то нота вище чи нижче, ніж попередня.

Навіть якщо ви хочете запам'ятати мелодії, ви все ще можете пригадати, якщо нота піднімається вгору чи вниз, таким чином код Парсонса може допомогти вам визначити музику за допомогою пошукової системи.

Опис

Кожна варіація представлена ​​одним символом, який є одним із наступних:

• Rякщо примітка така ж, як і попередня (означає " R epeat" )
• Uякщо примітка вище попередньої (означає " U p" )
• Dякщо нота нижча за попередню (означає " власне D " )

Початкова примітка записується як *.

Приклад

Ось приклад коду Парсонса (початок "Оди радістю" ):

*RUURDDDDRUURDR

Ви можете насправді візуалізувати його так:

      *-*                    
     /   \                   
    *     *                  
   /       \                 
*-*         *         *-*    
             \       /   \   
              *     *     *-*
               \   /         
                *-*          

Ми будемо називати цей контур відтепер.

Правила оформлення таких countours розглядаються самостійно пояснено з допомогою наведеного вище прикладу.

Виклик

Тепер настає справжній виклик.

Напишіть програму, яка, задаючи контур як вхід, виводить відповідний код Парсонса.

Вас не просять намалювати контур, а насправді навпаки.
Від контуру знайдіть оригінальний код Парсонса.

Правила

• Діють звичайні правила кодового гольфу
• Виграє найкоротша програма в кількості байтів
• Вхід є контурним, а вихід повинен бути дійсним кодом Парсонса
• Деталі про додатковий пробіл для введення не мають значення. Робіть все, що найкраще підходить для вас
• Вам заборонено вводити жорсткий код, так чи інакше, частини виводу та / або програми, використовуючи додатковий пробіл через попереднє правило

Примітки

• Це може бути корисно для тестування
• Відповідний код Парсонса *є*
• Порожній рядок не є дійсним контуром
• Код Парсонса завжди починається з*

Pyth - 28 25 27 25 байт

2 бади збережено завдяки @Jakube.

s+\*@L"RDU"-VFtBxR\*%2C.z

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

CJam, 21 байт

qN/:.e>(o2%:i"DRXU"f=

Складіть рядки ( :), векторизуючи ( .) символьну максимальну операцію e>. Оскільки у кожному стовпці є лише один символ, який не є пробілом, це буде результатом, оскільки простір має менший код ASCII, ніж усі друковані символи, що не є пробілами.

Зніміть зміну та надрукуйте першу зірочку (o, а потім перетасуйте всі інші ( 2%) знаки, що залишилися, з UDRвикористанням модульної індексації.

Старе рішення (29 байт)

'*qN/z2%'*f#0+2ew);::-"RDU"f=

qN/отримує рядки введення. zтранспонує цю матрицю символів. 2%скидає кожен непарний ряд. '*f#знаходить індекс зірочки в кожному рядку. 0+2ew);отримує всі послідовні пари індексів. ::-обчислює їх відмінності, і "RDU"f=відображає їх на листи ( з допомогою модульної індексації: 0 → R, 2 → U, -2 ≡ 1 → D). Ведучий '*претендує на зірочку.

EDIT : Я змінився, 2ewщоб 0+2ew);працювати навколо CJam, не обробляючи ew(послідовні фрагменти) у списках, які занадто короткі. Це змушує код працювати для вхідного рядка *.

Спробуйте тут або подивіться це в дії:

Python 3, 129 108 98 86 байт

Напевно, існує кілька способів пограти в цей гольф, але мені більше подобається, що я все це звів до однієї лінії.

Редагувати: зараз використовується''.translate()

Редагувати: Дякую wnnmaw .

Редагувати: я змінив формат введення на масив рядків замість рядка, розділеного новим рядком, щоб зберегти байти. Також в останньому редагуванні я змішав UіR , тому я це виправив.

lambda a:'*'+"".join(('UR'[j<'/']+'D')[j>'/']for l in zip(*a)for j in l if j in'-/\\')

Вхід повинен бути масивом рядків. У наведеному вище прикладі це виглядає приблизно так:

["      *-*                    ","     /   \                   ","    *     *                  ","   /       \                 ","*-*         *         *-*    ","             \       /   \   ","              *     *     *-*","               \   /         ","                *-*          "]

Безголівки:

def f(a):
    s = ''
    for c in zip(*a):           # transpose
        for d in c:             # for each letter in column c
            if e in "-/\\":     # if that letter is either -,/,\
                if e < '/':     # if < '/' (same as if == '-')
                    s += "R"
                elif e > '/':   # if > '/' (same as if == '\')
                    s += "D"
                else:           # if == '/'
                    s += "U"
        return "*" + s          # in the code we ''.join() it all together
                                # in this ungolfing, we add to an empty string

Рубі, 87 байт

Потрібні пробіли у вході, щоб усі рядки були однакової довжини.

$><<?*+$<.readlines.map(&:chars).transpose.join.gsub(/./,{?-=>:R,?/=>:U,?\\=>:D}).strip

Japt, 38 байт 40 41 45 46 48

Збережено 2 байти завдяки @ETHproductions

'*+U·y £Yu ?"RUD"g1+(XrS c -47 g):P} q

Якби була команда обрізки, це було б лише 38 байт; -; додасть пояснення, коли я закінчу гольф. The:P не програма, яка намагається бути смішною, це насправді програма, яка ігнорує символів, які не важливі.

Спробуйте в Інтернеті

Haskell, 89 байт

import Data.List
m '/'="U"
m '-'="R"
m '\\'="D"
m _=""
('*':).(>>=(>>=m)).transpose.lines

Приклад використання:

*Main> ('*':).(>>=(>>=m)).transpose.lines $ "      *-*                    \n     /   \\                   \n    *     *                  \n   /       \\                 \n*-*         *         *-*    \n             \\       /   \\   \n              *     *     *-*\n               \\   /         \n                *-*          "
"*RUURDDDDRUURDR"

*Main> ('*':).(>>=(>>=m)).transpose.lines $ "*"
"*"

Перемістіть введення та замініть символи // -/ \однорядними рядками "U"/ "R"/ "D". Усі інші символи замінюються порожніми рядками "", які згодом зникають, об'єднуючи все. Нарешті, додайте зірочку *.

Математика, 103 байти

"*"<>(Differences@Position[Thread@Characters@StringSplit[#,"
"],"*"][[;;,2]]/.{-2->"U",0->"R",2->"D"})&

Коротко кажучи, враховуючи, що це складне завдання обробки.

JavaScript (ES6) 90

Анонімна функція. Він сканує вхідний рядок char за допомогою char, враховуючи позицію в поточному рядку. Роблячи це, він будує вихідний масив subsituting U D Rдля / \ -в потрібному місці

c=>[...c].map(c=>c>'*'?t[i++]=c>'/'?'D':c<'/'?'R':'U':c<' '?i=0:++i,t=['*'],i=0)&&t.join``

Матлаб, 62 байти

r=@(s)[85-(s<14)*3-(s>59)*17,''];@(p)r(sum(p(:,2:2:end)-32))

Для цього потрібно ввести прямокутний (однакова кількість символів у кожному рядку). Напр

    ['      *-*                    ';    '     /   \                   ';    '    *     *                  ';    '   /       \                 ';    '*-*         *         *-*    ';    '             \       /   \   ';    '              *     *     *-*';    '               \   /         ';    '                *-*          '];

Пояснення

sum(p(:,2:2:end)-32)        % exctract every second column, substract 32 (spaces->zeros) 
                            % and sum column wise (results in a vector of 3 different values)
[85-(s<14)*3-(s>59)*17,'']  % map each of the values to the corresponding value of the letter and convert back to characters