ギターのタブを生成しますか?


24

入力として指定されたコードのギタータブを生成する最短のプログラムを作成します。

あなたの中のギタリストが利点を持たないように、そしてそれを決定論的(そしておそらくコーディングをより簡単にする)にするために、ここに承認された和音の唯一の形式があります:

Major chords:

  E   F   F#  G   G#  A   A#  B   C   C#  D   D#
e 0---1---2---3---4---0---1---2---3---4---5---6---
B 0---1---2---3---4---2---3---4---5---6---7---8---
G 1---2---3---4---5---2---3---4---5---6---7---8---
D 2---3---4---5---6---2---3---4---5---6---7---8---
A 2---3---4---5---6---0---1---2---3---4---5---6---
E 0---1---2---3---4---0---1---2---3---4---5---6---

Minor chords:

  Em  Fm  F#m Gm  G#m Am  A#m Bm  Cm  C#m Dm  D#m
e 0---1---2---3---4---0---1---2---3---4---5---6---
B 0---1---2---3---4---1---2---3---4---5---6---7---
G 0---1---2---3---4---2---3---4---5---6---7---8---
D 2---3---4---5---6---2---3---4---5---6---7---8---
A 2---3---4---5---6---0---1---2---3---4---5---6---
E 0---1---2---3---4---0---1---2---3---4---5---6---

各シリーズの最初の5つのコードと最後の7つのコードの形式は異なることに注意してください。

すべてのコードは単純なメジャーまたはマイナーコードです(7番目またはその他のバリエーションはありません)。

あなたもフラットの世話をする必要があります。通知:

A# = Bb
C# = Db
D# = Eb
F# = Gb
G# = Ab

B#, Cb, E# and Fb are not used

上記のように、出力にはコード名の最初の列が含まれている必要があります。コード名を先頭に含める必要ありませ。コードは-上記のように3で区切る必要があります。最後の3つ-はオプションです。

入力は、スペースで区切られたコード名で構成される文字列です。

入力例は次のとおりです。

Bm Gb A E G D Em F#

対応する出力は次のとおりです。

e 2---2---0---0---3---5---0---2---
B 3---2---2---0---3---7---0---2---
G 4---3---2---1---4---7---0---3---
D 4---4---2---2---5---7---2---4---
A 2---4---0---2---5---5---2---4---
E 2---2---0---0---3---5---0---2---

...そして副次的な質問:歌の例は何ですか?:)
ジュールオレオン

5
ホテルカリフォルニア:P
マシュー

はい、あなたは勝ちます!:)
ジュールオレオン

クールなアイデア。プレイする時間があったらいいのに!
イグビーラージマン

回答:


9

JavaScript、297 277 262 235 223文字

ゴルフバージョンでは、キャリッジリターンは重要ではありません。答えを読みやすくするためだけにあります。セミコロンは重要です。

編集:外側mapをwhileループおよびその他の編集に置き換えました。最後に、Golfscriptバージョンの2倍のサイズの内部(今のところ)!

編集:indexOfを数学に置き換え、ルックアップテーブルを分解し、その他の小さな改善を行いました。

編集:私は不必要に食べていたファイナルに別のmapものforを入れて\n。最後に、ジュールのPythonバージョンの内部。

i=prompt(o='').split(' ');for(r=6;o+=' EADGBe'[r]+' ',r--;o+='\n')
for(j=0;n=i[j++];o+=(([84,13,52,5][2*/m/.test(n)+x]*8>>2*r&3)+y-7*x)+'---')
y=n.charCodeAt(0),y=(2*y-(y>66)-(y>69)+(n[1]<'$')-(n[1]=='b')+2)%12,x=y>6;alert(o)

出力では、---オプションの末尾が次のように利用されなくなりました。

e 2---2---0---0---3---5---0---2---
B 3---2---2---0---3---7---0---2---
G 4---3---2---1---4---7---0---3---
D 4---4---2---2---5---7---2---4---
A 2---4---0---2---5---5---2---4---
E 2---2---0---0---3---5---0---2---

くそー、私は私が思うjavascriptのつらいen望を持っています。よくできました。
ケケケラ

7

Golfscript、136文字

[["eBGDAE"{[]+" "+}/]]\" "/{.-2\{"bm#A B C D E F G"?.)!!*(+}/14%.3>-.8>-.7/@109?0>2*+[963 780 882 753]{3base(;}%=\7%{+'---'+}+%}%+zip n*

完全に23文字(17.5%)が、各出力行の開始時にこれらの2文字を処理します。

エッジケースをテストするサンプル出力:

$ golfscript.rb tabs.gs <<<"E G# Ab A Db D# Em G#m Abm Am D#m"
e 0---4---4---0---4---6---0---4---4---0---5---
B 0---4---4---2---6---8---0---4---4---1---6---
G 1---5---5---2---6---8---0---4---4---2---7---
D 2---6---6---2---6---8---2---6---6---2---7---
A 2---6---6---0---4---6---2---6---6---0---5---
E 0---4---4---0---4---6---0---4---4---0---5---

私はこれに約1時間しか費やしていないので、おそらく少なくとも5〜10文字減らすことができます。概念的には、DocMaxのソリューションと非常によく似ています。4つのケースのルックアップテーブルで、オフセットでインクリメントし、文字列を正しい順序で結合します。


+1:Golfscriptが大好きな男!今日、何度かコードをトリムする場所を見つけましたが、50%ずつではありません!便利なインタープリターがありません:EbのD#を返しますか?
DocMax

ところで、サンプルの最後のノートはC#mと一致していますが、コマンドラインにはD#mと表示されています。タイプミスかバグ?
DocMax

@DocMax、バグ。D#ではなくD#mだけに影響する理由がわかりません。これはデバッグするのが面白いでしょう。7のブロックを最初に持っておくと便利なので、注文をやり直します。Ebは実際にはエッジケースではありません。
ピーターテイラー

最後の1つには\ nが含まれていたことがわかりました。これは、ルックアップテーブルに含まれていないため、文字に相当する値だけ値を引き下げていました。
ピーターテイラー

4

これをコーディングした後、これをもっと賢く行うことができることに気付きました...多分私は別のエントリを作成します。最速であることでポイントを獲得できることを願っています!

とにかく、Perlには962文字があります。

%c =(B=>{E=>0,F=>1,Gb=>2,G=>3,Ab=>4,A=>2,Bb=>3,B=>4,C=>5,Db=>6,D=>7,Eb=>8,Em=>0,Fm=>1,Gbm=>2,Gm=>3,Abm=>0,Am=>1,Bbm=>2,Bm=>3,Cm=>4,Dbm=>5,Dm=>6,Ebm=>7},G=>{E=>1,F=>2,Gb=>3,G=>4,Ab=>5,A=>2,Bb=>3,B=>4,C=>5,Db=>6,D=>7,Eb=>8,Em=>0,Fm=>1,Gbm=>2,Gm=>3,Abm=>4,Am=>2,Bbm=>3,Bm=>4,Cm=>5,Dbm=>6,Dm=>7,Ebm=>8},D=>{E=>2,F=>3,Gb=>4,G=>5,Ab=>6,A=>2,Bb=>3,B=>4,C=>5,Db=>6,D=>7,Eb=>8,Em=>2,Fm=>3,Gbm=>4,Gm=>5,Abm=>6,Am=>2,Bbm=>3,Bm=>4,Cm=>5,Dbm=>6,Dm=>7,Ebm=>8},A=>{E=>2,F=>3,Gb=>4,G=>5,Ab=>6,A=>0,Bb=>1,B=>2,C=>3,Db=>4,D=>5,Eb=>6,Em=>2,Fm=>3,Gbm=>4,Gm=>5,Abm=>6,Am=>0,Bbm=>1,Bm=>2,Cm=>3,Dbm=>4,Dm=>5,Ebm=>6},E=>{E=>0,F=>1,Gb=>2,G=>3,Ab=>4,A=>0,Bb=>1,B=>2,C=>3,Db=>4,D=>5,Eb=>6,Em=>0,Fm=>1,Gbm=>2,Gm=>3,Abm=>4,Am=>0,Bbm=>1,Bm=>2,Cm=>3,Dbm=>4,Dm=>5,Ebm=>6});
%b=('A#'=>'Bb','C#'=>'Db','D#'=>'Eb','F#'=>'Gb','G#'=>'Ab');
foreach(qw(e B G D A E)){p($_,@ARGV)}
sub p{$s = shift;print "$s ";$s = uc($s);foreach(@_){while(($h,$f)=each(%b)){s/$h/$f/}print "$c{$s}->{$_}---"}print "\n"}

対応する出力は次のとおりです。

dhrasmus:Desktop standage$ perl guitar Bm Gb A E G D Em F#
e 2---2---0---0---3---5---0---2---
B 3---2---2---0---3---7---0---2---
G 4---3---2---1---4---7---0---3---
D 4---4---2---2---5---7---2---4---
A 2---4---0---2---5---5---2---4---
E 2---2---0---0---3---5---0---2---

4

より短いソリューションが既に与えられているので(GolfScriptを気にせずに!)、ここに私のものがあります:

Python、229文字

s=[("E EmF FmF#GbG GmG#AbA AmA#BbB BmC CmC#DbD DmD#Eb".find("%-02s"%s[:2])/4,s[-1]!='m')for s in raw_input().split()]
for c in range(6):
 l='eBGDAE'[c]+' '
 for(i,M)in s:x=i>4;l+=`i-5*x+2*(2<c+x<5)+(M+x)*(c==2-x)`+"---"
 print l

出力:

> echo "Bm Gb A E G D Em F#" | python guitar.py
e 2---2---0---0---3---5---0---2---
B 3---2---2---0---3---7---0---2---
G 4---3---2---1---4---7---0---3---
D 4---4---2---2---5---7---2---4---
A 2---4---0---2---5---5---2---4---
E 2---2---0---0---3---5---0---2---

3

Python、449文字

z=int
f=str
r=range
j=''.join
n='E F F# G G# A A# B C C# D D#'.split()
n+=[x+'m'for x in n]
c=[j([f(z(x)+i)for x in'001220'])for i in r(5)]+[j([f(z(x)+i)for x in'022200'])for i in r(7)]
c+=[x[:2]+f(z(x[2])-1)+x[3:]for x in c[:5]]+[x[0]+f(z(x[1])-1)+x[2:]for x in c[5:]]
a=[c[n.index((chr(ord(i[0])-1)+'#'+i[2:]).replace('@','G')if len(i)-1 and i[1]=='b'else i)]for i in raw_input().split()] 
for i in r(6):print'eBGDAE'[i],j([x[i]+'-'*3 for x in a])

3

C99-231文字

コードはコマンドラインで指定され、コードごとに1つの引数が与えられます。もちろん、いかなる種類の入力検証もありません。

#include<stdio.h>
int main(int c,char**v){for(char*o="e0)B2)G2*D2+A0+E0)",i,m;*o;o+=3,v-=c,puts(""))for(printf("%c ",*o);*++v;printf("%c---",i-(i>2)-i/9+o[1+i/8]-(*o-66-i/8*5?0:m?m+2[*v]>99:0)))m=1[*v],i=(**v*2-4+m/35-m/98*3)%14;}

サンプル実行:

$ ./a.out Bm Gb A E G D Em F#
e 2---2---0---0---3---5---0---2---
B 3---2---2---0---3---7---0---2---
G 4---3---2---1---4---7---0---3---
D 4---4---2---2---5---7---2---4---
A 2---4---0---2---5---5---2---4---
E 2---2---0---0---3---5---0---2---

ゴルフをしていない

#include<stdio.h>
int main(int c,char**v){
     // o points to three characters per output line:
     //   string name, number for A, adjusted number for E (ASCII code minus 7)
     char* o="e0)B2)G2*D2+A0+E0)",
          i, // chord: A=0, A#=1, ..., G#=13, allowing also 3="E#" and 9="B#"
          m; // second character in chord name
     for (; *o; o+=3) {
          printf("%c ", *o);
          for (; *++v; ) {
               m = 1[*v],
               i = (**v*2-4+m/35-m/98*3)%14; // parse & adjust for sharp, flat
               printf("%c---",
                      i-(i>2)-i/9 // eliminate "E#", "B#"
                      +o[1+i/8] // get the number for a major chord
                      // adjust for minor...
                      -(*o-66-i/8*5
                        ? 0
                        : m ? m+2[*v]>99 : 0));
          }
          v -= c; // rewind argument pointer
          puts("");
     }
}

非標準C-206文字

言語仕様を気にしない場合、GCCは、C99変数宣言とK&Rスタイルの引数宣言(およびprintfの暗黙の宣言)を混合している場合でも、次の1ライナーを機能的なバイナリにコンパイルできます。

main(c,v)char**v;{for(char*o="e0)B2)G2*D2+A0+E0)",i,m;*o;o+=3,v-=c,puts(""))for(printf("%c ",*o);*++v;printf("%c---",i-(i>2)-i/9+o[1+i/8]-(*o-66-i/8*5?0:m?m+2[*v]>99:0)))m=1[*v],i=(**v*2-4+m/35-m/98*3)%14;}

2

C ++、432

#include <cmath>
#include <iostream>
F(int c){c-=65;return c*1.6+sin(c/5.+.3);}
T(int a,int s){if(s)return(a=(T(a,s-1)+2)%3)-=(a==1&s>2);return(a<7)*2;}
#define c(a,b) while(*(++j)==a)b;--j; 
#define O std::cout<<
main(int a,char*p[]){
int P=2;for(int i=-1;++i<6;P=2){O p[1][i];O" ";while(P<a){char*j=p[P++];
int f=F(*j);c('#',++f)c('b',--f)
int t=T(f,i)*3.5;if(*(++j)!='m'){--j;t+=(t==3);}
O(f-F(p[1][i])+t+24)%12;O"---";
}O'\n';}}

これには、最初のパラメーターとしてギターのチューニングが必要であることに注意してください。(ほとんどの非標準チューニングは、とんでもない結果をもたらしますが、標準チューニングに満足していると思います。)

ホテルカリフォルニアでは、次のことができます$./a.out EBGDAE Cbm Gb Bbb Fb G D Em F# Bm F# G## D## F## C## D##m E##。結果:

E 2---2---0---0---3---5---0---2---2---2---5---0---3---5---0---2---
B 3---2---2---0---3---7---0---2---3---2---5---0---3---7---0---2---
G 4---3---2---1---4---7---0---3---4---3---6---1---4---7---0---3---
D 4---4---2---2---5---7---2---4---4---4---7---2---5---7---2---4---
A 2---4---0---2---5---5---2---4---2---4---7---2---5---5---2---4---
E 2---2---0---0---3---5---0---2---2---2---5---0---3---5---0---2---

上の4つの弦をマイナー3分の1にチューニングすると、開いている弦がなく、弦に触れずに弦の上に指を置く必要なく、3弦と4弦のコードを多くの反転で簡単に演奏できます。文字列DFG#Bを使用すると、「Bbm F Bbm Gb Db Ebm Db F Bbm F F7 Bbm」(人魚の歌)などのコードシーケンスが非常に簡単に機能します。1フレットだけ上下にシフトする必要があります。ハーフステップのキーチェンジがありますが、それは単にフレットを上げることを意味します。ただし、他の2つの文字列で何をするのが最適かはわかりません。
-supercat

@supercat:面白い、私は...明日私のギターでこれを努める
ターンに止まっcounterclockwis

あなたの意見を聞きたいです。何年も離れて数回ギターを手に取り、運指がarbitrary意的で扱いにくいように思われたため、あきらめ続けました。それから、どのようなチューニングで簡単な運指が可能になるかを考えました。閉形式の和音の間隔はマイナー3分の1から完全な4分の1であるため、弦をマイナー3分の1にチューニングすると、各弦が下の弦よりも低くない位置で減衰します。左利きのギターを試すことができれば、弦の順序が逆になっているパーフェクトフォースを試すことができます。
-supercat

そのまま、マイナーサードにチューニングすると、一番下の弦の最初の指の位置ごとに、3つのメジャーコード反転と3つのマイナーコード反転が使用可能になります。また、上位3本の弦に2本目の指を置くと、7番目のコードを演奏できます。人魚の歌の場合、3番目のフレットで開始し、F-Bb-DFを(指1-3-3-4で)演奏します。FはFACF(1-2-2-4)です。Gbはフレットで、指で1-2-2-4(Fのように)です。Dbはフレットに戻って1-3-4-4です。Ebmがバックアップされました、1-2-4-4。
-supercat

適切な和音がどうあるべきかキーボードを使って練習した後、いくつかの曲(前述のマーメイドソングを含む)をスムーズに演奏できるようになるまでに、ほんの数時間しかかかりませんでした。このスタイルを試してみると、驚くほど自然に感じられ、メジャーとマイナーの各コードの3つの反転すべてを使用する方法がとても気に入っています。メジャーとマイナーのコードだけが必要な場合、F-Ab-B-Eb-Gb-Dのようなチューニングにより、理論的には指が簡単な6本指のメジャーとマイナーのコード(1-2-2-3-4-4または1 -1-2-3-3-4)が、反転なし。
-supercat

2

390345340追記

ギターの実用的なアプローチに簡略化されています(Eシェイプは、Aシェイプの単なるバリエーションであり、1本の指を変更して弦を下にシフトします)。他の回答からエンコードされた文字列のアイデアを借りました。

[/p{print}/x{exch}/e{cvx exec}/d{dup 0
get}/f{forall}(A0#1B2C3D5E7F8G:b;){}forall/m{dup
4 2 copy get 1 sub put}109{m 48}/+{[3 1 roll x{1
index add x}f]}/*{[0 0 2 2 2 0 0]x{load e 48 sub
+}f d 12 gt{-12 +}if d 6 gt{m -7 + 1}{0}ifelse 6
getinterval}>>begin[ARGUMENTS{*}f][(E)(A)(D)(G)(B)(e)]6{[x
e p( )p]x[x{[x e( )cvs p(---)p]}f]x()=}repeat

以前:

450 442 418あとがき

私もこれで出力フォーマットを修正しました。(以前のバージョンは「e」ではなく「E ---」で始まりました。)

<</i{index}/a{add}/p{pop}/x{exch}/g{getinterval}/r{print}/f{forall}/e{exec}>>begin<<65[0
2 3 5 -5 -4 -2]{1 i 1 a}f p 35{1 a}98{1 sub}109{x dup
4 20 put x}>>begin[ARGUMENTS{[x[0 5 12 17 21 24 29
0]x{load e}f x{1 i a x}f]dup 0 get 0 ge{0}{1}ifelse 7
g[0 -5 -10 -15 -19 -24 -29]0 1 6{2 copy get 3 i 2 i
get a 3 copy put p p}for x p 0 6
g}f][(E)(A)(D)(G)(B)(e)]6{[x cvx e r( )r]x[x{[x cvx
e( )cvs r(---)r]}f]x(\n)r}repeat

実行方法:(gsnd -q -- tab.ps Bm Gb A E G D Em F\#シェルからシャープを非表示にします)。

非golfedバージョンがgolfed 1よりもほとんどがより困難でした。しかし、私は徹底的にしようとしました。編集:トリッキーなビットに関するいくつかのコメント。

%!PS
<<    %axioms and operations
/t{2 2 1}    %major tetrachord
/m{t t 2}    %mixolydian mode
/u{2 1 2}    %minor tetrachord
/a{u u}      %aolian mode
/s{m m t}    %2.5-octave mixolydian intervals
/r{3 1 roll}
/${[exch 0 exch{1 index add}forall]}    %running sum: convert (relative)intervals to (abstract)fretstops
/+{[r exch{1 index add exch}forall pop]}    %scale array by scalar
/@{[r{2 copy get r pop}forall pop]}    %select array elements from array of indices
/&{0 1 3 index length 1 sub{    %array2 += array1
    2 copy get 3 index 2 index get add 3 copy put pop pop}for exch pop}
>>begin<<    %map ascii values to scaling functions
65[a]$    %generate fretstops of the A aolian scale to assign scalars to note names
[0 0 0 0 -12 -12 -12]&    %drop E F and G down an octave
{[exch/+ cvx]cvx 1 index 1 add}forall pop    %generate the pairs 'A'->{0 +}, 'B'->{2 +}
35{1 +}     %'#'-> scale up by one
98{-1 +}    %'b'-> scale down by one
109{dup 4 2 copy get 1 sub put}     %'m'-> tweak the 'third' down by one
%generate chord pattern from (string)
/*{[s]$       %generate fretstops of the E mixolydian scale
  [1 4 8 11 13 15 18]    %A-shape figured bass: IV chord of E mixolydian
  -1 +       %convert scale degrees to array indices
  @       %generate chord template by selecting indices from mixolydian scale
  exch{load exec}forall       %execute ascii values, scaling the pattern
  dup 0 get 0 ge{0}{1}ifelse 6 getinterval    %discard first note if it has fallen off the bottom
  [0 -5 -10 -15 -19 -24]&}    %subtract the string offsets
>>begin    %activate definitions
%(A)* pstack()= clear    %[0 0 2 2 2 0]
%(B)* pstack()= clear    %[2 2 4 4 4 2]
%(F#)* pstack()= clear    %[2 4 4 3 2 2]
%(Abm)* pstack()=    %[4 6 6 4 4 4]
[ARGUMENTS{*}forall]    %convert array of strings to array of patterns
[(E)(A)(D)(G)(B)(e)]    %array of string names
6{    %for each "string"
    [exch cvx exec print( )print]    %pop string name and print with space
    exch       %put names behind numbers
    [exch{     %for each "chord"
        [exch cvx exec( )cvs print(---)print]    %pop number, convert, print with trailing hyphens
    }forall]    %zip up chord array for next iteration
    ()=         %print a newline
    exch        %put numbers behind names
}repeat

そして、テストとしての朝日の家はどうですか?

04:51 PM:~ 0> gsnd -q -- tabb.ps Em G A C Em G B B Em G A C Em B Em B|sed 's/^/    /'
e 0---3---0---3---0---3---2---2---0---3---0---3---0---2---0---2---
B 0---3---2---5---0---3---4---4---0---3---2---5---0---4---0---4---
G 0---4---2---5---0---4---4---4---0---4---2---5---0---4---0---4---
D 2---5---2---5---2---5---4---4---2---5---2---5---2---4---2---4---
A 2---5---0---3---2---5---2---2---2---5---0---3---2---2---2---2---
E 0---3---0---3---0---3---2---2---0---3---0---3---0---2---0---2---

ここの別の答えにこのコードのコメントを書きました。
luserはドローグ
弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.