前書き

パーソンズコードが記述するだけの簡単な方法であるピッチ変動をメモは、以前のものよりも高いか低いか、楽曲に。

曲を覚えるのが面倒くさいとしても、音が上がったり下がったりするかどうかはほとんど覚えているので、Parsonsコードは検索エンジンを使用して音楽を識別するのに役立ちます。

説明

各バリエーションは、次のいずれかの単一の文字で表されます。

• Rメモが前のメモと同じ場合（「R epeat」の略）
• Uメモが前のメモよりも高い場合（「U p」の略）
• Dメモが前のメモよりも低い場合（「D所有」の略）

最初のメモはとして書かれてい*ます。

例

次に、Parsonsコードの例を示します（"Ode to Joy"の始まり）：

*RUURDDDDRUURDR

次のように、実際に視覚化できます。

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

これを輪郭と呼びます。

このような国を描くためのルールは、上記の例で説明されていると考えられます。

チャレンジ

今、本当の挑戦が来ます。

入力として輪郭を与え、対応するパーソンズコードを出力するプログラムを作成します。

輪郭を描くように求められませんが、実際は反対です。
輪郭から、元のパーソンズコードを見つけます。

ルール

• コードゴルフの通常の規則が適用されます
• バイト数で最短のプログラムが勝ちます
• 入力は等高線であり、出力は有効なパーソンズコードでなければなりません
• 入力用の余分な空白に関する詳細は関係ありません。
• 前のルールのために、余計な空白を使用して、何らかの方法で出力やプログラムの一部をハードコーディングすることはできません

ノート

• これはテストに役立つかもしれません
• 対応するパーソンズコード*は*
• 空の文字列は有効な輪郭ではありません
• パーソンズ・コードは、常にで始まります*

Pyth- 28 25 27 25バイト

@ジャクベのおかげで2バイトが節約できました。

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

こちらからオンラインでお試しください。

CJam、21バイト

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

文字単位の最大演算を:ベクトル化（.）して、行（）を折りたたみますe>。各列にはスペース以外の文字が1つしかないため、スペースはすべての印刷可能な非スペース文字よりも小さいASCIIコードを持っているため、これが結果になります。

シフトを解除して最初のアスタリスクを出力し(o、モジュラーインデックス2%をUDR使用して残りのchar （）をすべてマップします。

古いソリューション（29バイト）

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

qN/入力行を取得します。zこの文字行列を転置します。2%奇数行ごとにドロップします。'*f#各行のアスタリスクのインデックスを検索します。0+2ew);連続するすべてのインデックスのペアを取得します。::-その違いを計算し、"RDU"f=文字にマップ（モジュラーインデックス経由：0 → R、2 → U、-2 ≡ 1 → D）。大手は、'*アスタリスクを付加します。

編集：私はCJam が短すぎるリストで（連続したスライス）を処理しない2ewよう0+2ew);に動作するように変更しましたew。これにより、入力文字列に対してコードが機能します*。

ここで試してみるか、動作を確認してください。

Pythonの3、129の 108 98 86バイト

おそらくこれをゴルフするいくつかの方法がありますが、私はむしろそれをすべて1行にまとめました。

編集：現在使用中''.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

@ETHproductionsのおかげで2バイト節約

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

トリムコマンドがあった場合、これはたった38バイトです;-; ゴルフが終わったら説明を追加します。: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"ます。他のすべての文字は、空の文字列""に置き換えられます。空の文字列は、すべてを連結することで消えます。最後に、アスタリスクを付加します*。

Mathematica、103バイト

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

これは文字列処理の課題であることを考えると、かなり短いです。

JavaScript（ES6）90

匿名関数。入力文字列を文字ごとにスキャンし、現在の行の位置を考慮に入れます。これをやって、それが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``

Matlab、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