Trompet genellikle perdeli bir valfli nefesli enstrüman vardır B♭. Ses, enstrüman içindeki havayı değiştirmek için oyuncu dudaklarını titreştiğinde verilir. Bu titreşim, kişinin ağzını embouchure adı verilen belirli bir şekilde ayarlayarak elde edilir. Daha sıkı veya daha gevşek dudaklı farklı embouchures farklı perdeler üretir.

Ayrıca, trompetteki her bir valf de cihazın perdesini değiştirir. Bir valf basıldığında, aletin borusunun içindeki bir yolu kapatarak havanın daha uzun bir yoldan akmasını sağlar, böylece orijinal sesin perdesini düşürür. Bu meydan okuma için, B♭ilk valfin adımı tam adım düşürdüğü, ikincisi adımı yarım adım düşürdüğü ve üçüncüsü adımı bir ve bir düşürdüğü standart trompet dikkate alınacaktır. yarım adım.

Meydan okuma

Zorluğunuz, iki girdi verilen embouchureve valvesçalınan notanın perdesini belirleyen bir program veya işlev oluşturmaktır .

Bu zorluğun amaçları için, notlar diziyi takip edecektir:

B♭, B, C, C♯, D, E♭, E, F, F♯, G, G♯, A.

kurallar

• G / Ç herhangi bir makul yöntemle alınabilir / verilebilir .
• Standart boşluklar geçerlidir.
• Kullanmanıza izin verilir bve #bunun yerine ♭ve ♯isterseniz.
• İçin giriş valves, boşaltma valfleri listesi ( 1, 3) veya bir boole listesi ( 1, 0, 1) olarak alınabilir .
• Bu kod golf , her dilde en kısa kod kazanır.

Test Durumları:

Valves bu test durumlarında, boole listesi olarak verilir; burada 0, depresif ve 1, basılı anlamına gelir.

Embouchure:    Valves:   Output:
B♭             0 0 0     B♭
B♭             0 1 0     A
B♭             1 0 1     F
C♯             0 0 1     B♭
C♯             1 1 1     G
E♭             1 0 0     C♯
G              0 1 1     E♭
G♯             1 0 0     F♯
G♯             0 0 1     F
G              1 0 0     F
F♯             1 0 0     E
D              1 0 1     A
A              1 1 1     E♭
E              1 1 0     C♯
E              0 0 1     C♯

Feragatname: Henüz bir müzisyen değilim, bu yüzden test senaryolarında yapabileceğim herhangi bir kasap için özür dilerim. Düzeltmeler takdir edilmektedir.

piton 3 2, 125 119 81 bayt

lambda e,f,s,t,n=2*'A G# G F# F E Eb D C# C B Bb'.split():n[n.index(e)+2*f+s+3*t]

Çevrimiçi deneyin!

Jonathan Allan sayesinde çok bayt kurtardı.

Orijinal çözümüm ( Python 3'te ):

n=2*'Bb B C C# D Eb E F F# G G# A'.split()
e,f,s,t=str(input()).split()
print(n[n.index(e,9)-2*int(f)-int(s)-3*int(t)])

Çevrimiçi deneyin!

@HyperNeutrino sayesinde 6 bayt tasarruf edildi.

açıklama

İlk olarak, notlar bir dizi yapmak, ancak uzunluğu iki katına, bu yüzden etrafında döngü hakkında endişelenmenize gerek Bbyok A.

Sonra, aşağıdaki biçimde girdi alıyorum (örneğin):

Bb 1 0 1

Daha sonra n.index(e,9)( notu 9iki katına) ortasında iyi başlamak emin olmak için kullanarak başlangıç ​​notunun dizinini bulmak . Ifade ile istenen ofset hesaplamak:

2*int(f) - int(s) - 3*int(t)

fBirinci valf nerede , sikinci valf ve tüçüncü valf .

Son olarak, ofseti başlangıç ​​dizininden çıkararak listede bulunan notu yazdırır.

Wolfram Dili (Mathematica) , 100 bayt (ve çalışan bir trompet için 134)

l="Bb,B,C,C#,D,Eb,E,F,F#,G,G#,A"~StringSplit~",";f=l[[Mod[#&@@#&@@l~Position~#-2#2-#3-3#4-1,12]+1]]&

Çevrimiçi deneyin!

Oldukça açık.

l="Bb,B,C,C#,D,Eb,E,F,F#,G,G#,A"~StringSplit~",";f=EmitSound@SoundNote[l[[Mod[#&@@#&@@l~Position~#-2#2-#3-3#4-1,12]+1]],1,"Trumpet"]&

34 bayt maliyeti için daha iyi bir çıktı.

Jöle ,  37  36 bayt

ØAḣ7;⁾#b“®JXrẊỤȥ’ṃnŒl$œṗ$Ḋ©i_⁸æ.J¤ị®

Valfleri solda bir liste olarak 1s veya 0s listesi olarak kabul eden [second, first, third]ve sağda karakterlerin bir listesini döndüren karakter listesi olarak embouchure'u kabul eden ikili bir bağlantı .

Çevrimiçi deneyin!

Nasıl?

ØAḣ7;⁾#b“®JXrẊỤȥ’ṃnŒl$œṗ$Ḋ©i_⁸æ.J¤ị® - Link: list of integers, V; list of characters, E
ØA                                   - yield uppercase alphabet
  ḣ7                                 - head to index 7 = "ABCDEFG"
     ⁾#b                             - literal list of characters = "#b"
    ;                                - concatenate = "ABCDEFG#b"
        “®JXrẊỤȥ’                    - literal integer = 2270857278734171
                 ṃ                   - base decompress (i.e. convert to base 9 using the 'digits' "bABCDEFG#")
                                     -                 = "ABbBCC#DEbEFF#GG#"
                        $            - last two links as a monad:
                     $               -   last two links as a monad:
                   Œl                -     to lower case = "abbbcc#debeff#gg#"
                  n                  -     not equal? (vectorises) = [1,1,0,1,1,1,0,1,1,0,1,1,1,0,1,1,0]
                      œṗ             -   partition at truthy indices = [[],"A","Bb","B","C","C#","D","Eb","E","F","F#","G","G#"]
                         Ḋ           - dequeue = ["A","Bb","B","C","C#","D","Eb","E","F","F#","G","G#"]
                          ©          - copy to register and yield
                           i         - first index of E in there
                                 ¤   - nilad followed by links as a nilad:
                             ⁸       -   chain's left argument, V
                                J    -   range of length [1,2,3]
                              æ.     -   dot product (i.e. 1*second + 2*first + 3*third)
                            _        - subtract
                                   ® - recall from register
                                  ị  - index into (1-based and modular)

Ruby , 71 bayt

->e,(b,c,d){a=%w{Bb B C C# D Eb E F F# G G# A};a[a.index(e)-b*2-c-d*3]}

Çevrimiçi deneyin!

70 karakter ancak 80 bayt

->e,(b,c,d){a="B♭BCC♯DE♭EFF♯GG♯A".scan /.\W?/;a[a.index(e)-b*2-c-d*3]}

Çevrimiçi deneyin!

Javascript 96 bayt

@Vasilescur fikrini takiben, bu js

(a,b,c,d,_="B♭,B,C,C♯,D,E♭,E,F,F♯,G,G♯,A".split`,`)=>(l=_.concat(_))[l.indexOf(a,9)-(2*b+c+3*d)]

a=(a,b,c,d,_="B♭,B,C,C♯,D,E♭,E,F,F♯,G,G♯,A".split`,`)=>(l=_.concat(_))[l.indexOf(a,9)-(2*b+c+3*d)]
console.log(a('B♭',0,0,0))
console.log(a('B♭',0,1,0))
console.log(a('B♭',1,0,1))
console.log(a('C♯',0,0,1))
console.log(a('C♯',1,1,1))
console.log(a('E♭',1,0,0))
console.log(a('G',0,1,1))
console.log(a('G♯',1,0,0))
console.log(a('G♯',0,0,1))
console.log(a('G',1,0,0))
console.log(a('F♯',1,0,0))
console.log(a('D',1,0,1))
console.log(a('A',1,1,1))
console.log(a('E',1,1,0))
console.log(a('E',0,0,1))

Toplu, 188 bayt

@set n=%1
@set/aC=0,D=2,Eb=3,E=4,F=5,G=7,A=9,Bb=10,B=11,n=(%n:#=+1%+12-%2*2-%3-%4*3)%%12
@for %%n in (C.0 C#.1 D.2 Eb.3 E.4 F.5 F#.6 G.7 G#.8 A.9 Bb.10 B.11)do @if %%~xn==.%n% echo %%~nn

Kullanımları #ve b: bu araçlar Ebve Bbyasal değişken isimleridir; #, bir dize değiştirme işlemi yapılarak işlenir +1. Daha sonra dizi değişiminin sonucu otomatik olarak değerlendirilir ve sonuç bir listeye bakılmadan önce vanalar dikkate alınır.

Stax , 32 bayt

τ┤=Yº○!AÄΔâß₧←╥╟ö'ÄD├æñßf╧å▬tó÷╖

Çevrimiçi çalıştırın ve hata ayıklayın

Bir not adı ve depresif vanaların bir listesini alır. Bir dizi not adı oluşturur, ardından toplam vana aralığını hesaplar ve notu dizideki bu ofsetten alır.

"AbABbBCC#DEbEFF#G" just a literal
{VA#}(Y             partition at capital letters and store in y
,]I                 get the index of the input note
,2R:t               swap 1s and 2s in valve list
{-F                 subtract valve list from note index
y@                  look up result from note array

Bunu çalıştır

Python 2 , 84 79 bayt

lambda e,a,b,c,s='Bb B C C# D Eb E F F# G G# A'.split():s[s.index(e)-2*a-b-3*c]

Çevrimiçi deneyin!

C (gcc) , 92 86 82 bayt

*r=L"扢bc⍣d扥ef⍦g⍧a",*u;v(z,y,x,w)short*z;{u=wcschr(r,*z);u-=2*y+x+3*w;u+=(u<r)*12;}

Çevrimiçi deneyin!

@ Vazt uygulamasından uyarlanmıştır .

Perl6 / Rakudo 73 karakter

Teknik olarak bu 83 bayttır, çünkü Unicode karakterleri koydum, ancak ASCII eşdeğerleri için takas etmek 73 bayt verecekti.

Bunun {code block}gibi parametreleri $^aolan bir lambda, imzalı ($a, $b, $c, $d).

{$_=2*$^b+$^c+3*$^d;'AG♯GF♯FEE♭DC♯CBB♭'x 2~~/$^a(\w\W?)**{$_}/~~/\w\W?$/}

Bunu aramak:

say { ... }("D", 1, 0, 1)
>> A

Az-golfed:

sub f($a, $b, $c, $d) {
   my $totalShift = 2*$b + $c + 3*$d;
   my $doubledScale = 'AG♯GF♯FEE♭DC♯CBB♭' x 2;
   my $matchEmbOnward = $doubledScale ~~ / $^a (\w\W?)**{$totalShift} /;
   my $matchFinalNote = $marchEmbOnward ~~ / \w \W? $ /;
   return $matchFinalNote;
}

Burada '...' x 2, xinfix operatörünü kullanarak bir dizeyi ikiye katlıyoruz , daha sonra smartmatch operatörünü kullanarak embouchure ve n notlarını araıyoruz '...' ~~ /.../- üzerinde \w\W?bir kelime char olan regex menteşeleri, belki de kelime olmayan bir char.

Biz o aracılığıyla n örnekleri için bakmak (\w\W?)**{$_}zaten = n hesaplanan ettik $_params $biçin $d. Bu, embouchure notundan ortaya çıkan nota bir eşleşme sağlar, bunun sonuncusunu istiyoruz, böylece bunu başka biriyle eşleştiriyoruz ~~ /\w\W?$/.

İlk hesaplanması blokta örtük param oluşturulmasına $_izin vermek için gereklidir $^b.

76 karakter

Dize eşleşmeleri yerine bir dizi kullanan bir alternatif 3 karakter daha:

{$_=<B♭ B C C♯ D E♭ E F F♯ G G♯ A>;.[((.first: $^a,:k)-2*$^b-$^c-3*$^d)%12]}

Listede embouchure bulunması ile bulunur @arr.first: $^a, :k, bu bulunan öğenin dizinini (anahtarını) döndürür :k.

İçin diziyi ayarlanması $_(bir nesne olarak) bize kullanmanızı sağlar .firstve .[ ]çok fazla karakter harcamadan üzerinde.

C (gcc) , 155 bayt

char r[][12]={"bb","b","c","c#","d","eb","e","f","f#","g","g#","a"};u;v(z,y,x,w)char*z;{for(;u<12;u++)if(!strcmp(z,r[u]))break;u=u-2*y-x-3*w;u=u<0?12+u:u;}

Çevrimiçi deneyin!

Basit yaklaşım.

Valf girişi 0,1'dir.

Embouchure girişi küçük harf olmalıdır. İlginç bir şekilde, TiO strcmpi()dahil etmeden string.hbulmuyor, mingw-gcc ise standart -Wimplicit-function-declarationuyarıyla izin veriyor .