직무

주어진 주파수로 튜닝되고 주어진 지점에서 눌려진 문자열에 대해 소리가 나지 않는 센트 수와 함께 소리를내는 프로그램을 작성하십시오.

간단하게하기 위해, 생성 된 사운드의 주파수와 그것이 눌려지는 오른쪽의 줄 길이는 반비례한다고 가정합니다.

참고 :이 작업은 기본 톤만 다루고 오버톤 / 기타 고조파는 다루지 않습니다.

입력

프로그램에는 두 가지 데이터가 제공됩니다.

• 해당 문자열을 나타내는 임의의 길이의 문자열입니다. 이 문자열은 X를 표시하여 문자열을 누른다.

  [-----] is a string divided in six sections (five divisions).
  [--X--] is a string pressed at the exact center of the string.
  [X----] is a string pressed at 1/6 the length of the string. (Length used is 5/6)
  [-X--] is a string pressed at 2/5 of the length of the string. (Length used is 3/5)
  

  오른쪽의 문자열 부분을 사용하여 음이 들린다 고 가정합니다 X.

• 문자열이 튜닝되는 빈도를 나타내는 숫자 (정수일 필요는 없음). 이 숫자의 정밀도는 소수점 이하 최대 4 자리입니다.

이는 주파수 사이에 존재할 것이다 전달된다고 가정 될 수있다 10 Hz와 40000 Hz.

입력은 원하는 형식으로 전달 될 수 있습니다. 답변에서 프로그램에 입력이 허용되는 방식을 지정하십시오.

산출

프로그램은 12 톤 균등 한 튜닝 시스템에서 가장 가까운 음표 *와 문자열로 표시된 소리가 가장 가까운 음에서 가장 가까운 음의 수를 출력해야합니다 (가장 가까운 센트로 반올림).

+n센트는 n노트 위 -n/ 아래의 센트, 노트 / 플랫 아래의 센트 를 나타내는 데 사용해야합니다 .

노트는 과학적인 피치 표기법으로 출력되어야합니다. A4가로 조정되었다고 가정합니다 440Hz. 평평하고 선명한 음표에는 b 및 #을 사용하십시오. 참고 : 날카 로우거나 평평하게 사용할 수 있습니다. 의 메모에 466.16Hz대해 A#또는 메모에 Bb대해 출력 될 수 있습니다.

출력에 이전에 지정된 두 개의 정보 만 포함되어있는 한 출력 형식은 사용자에게 달려 있습니다 (즉, 가능한 모든 단일 출력을 인쇄하는 것은 허용되지 않음).

* 가장 가까운 음표는 센트 수로 측정 된 입력에 의해 표시되는 소리에 가장 가까운 음표를 의미합니다 (따라서 음표 내에있는 음표 50 cents). 소리가 50 cents반올림 후 두 개의 다른 음표에서 멀어지면 두 음표 중 하나가 출력 될 수 있습니다.

예

프로그램은 다음 예제뿐만 아니라 모든 경우에 작동해야합니다.

Output             Input Frequency   Input String
A4,  +0  cents     220               [-----X-----]
A5,  +0  cents     220               [--------X--]
D5,  -2  cents     440               [--X--------]
B4,  -49 cents     440               [X----------]
A#4, +19 cents*    314.1592          [X-]
Eb9, +8  cents*    400               [-----------------------X]
Eb11,+8  cents*    100               [--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------X]
D#1, +49 cents*    10                [--X]
A0,  -11 cents     11.7103           [---X--]

* 날카 롭거나 평평하게 출력 될 수 있습니다.

잠재적으로 유용한 링크

• 노트와 주파수
• Scientific Pitch Notation의 Wikipedia 페이지
• Cents의 Wikipedia 페이지

이것은 코드 골프 가장 짧은 답변이 이깁니다.

BBC 기본, 161 #

  REM get frequency and string. Store length of string in n for later.
  INPUT f,s$
  n=LEN(s$)

  REM store floating-point value of note in semitones above (C0-0.5). Store integer value in n% (offset effectively means it will be rounded not truncated.)
  n=LN(f*(n-1)/(n-INSTR(s$,"X"))/15.8861)/LN(2)*12
  n%=n

  REM format printing to whole numbers only
  @%=2^17

  REM Output note name and octave. Output cents (discrepancy between n and n%, minus the offset of 0.5)
  PRINT MID$("C C#D D#E F F#G G#A A#B ",n%MOD12*2+1,2);INT(n/12)'(n-0.5-n%)*100'

점수는 댓글을 제외합니다. 아직 골프를 치지 않았습니다.

산출

두 개의 긴 경우를 제외한 모든 테스트 사례에서 올바르게 수행됩니다. 들어 Eb9그것을 테스트 케이스에서 누락 된 하나의 대시가 보인다 (22)이있다 -하나 X(24 개)와 동일한 조각으로 문자열을 분할. 내 수동 계산에 따르면, 이것은 9600Hz이며 D9보다 37 센트 높습니다. 이것이 바로 내 프로그램이 출력하는 것입니다. 다른 대시를 추가하면 Eb9 + 8 센트가 표시됩니다. 불행히도 BBC Basic은 255자를 초과하는 문자열을 처리 할 수 ​​없으므로 Eb11오류가 발생합니다.

C, 179

main(n,d){float f;scanf("%*[^X]%nX%*[-]%n]%f",&n,&d,&f);f=log(f*d/(d-n))*17.3123-57.376;n=d=f+.5;n=n%12*7+784;printf("%c%d%c,%+2.0f cents\n",n/12,(d+9)/12,n%12/7*3+32,(f-d)*100);}

아스키 사진을 한 줄로, 별도의 줄로 주파수를받습니다.

매직 넘버 17.3123와 의 정확도를 줄이면 몇 개의 문자를 삭제할 수 있습니다 57.376.

골프가 없으면 프로그램은 다음과 같습니다.

main(n,d)
{
    float f; // 'float' and '%f' better than 'double' and '%lf'

    scanf("%*[^X]%nX%*[-]%n]%f", &n, &d, &f);
    // n is the number of chars before 'X'
    // d is the number of chars before ']'
    // f is the frequency

    // Calculate the tuned frequency
    f = f * d / (d - n);

    // Convert the frequency to logarithmic scale, relative to pitch A0
    f=log(f)*17.3123-57.376;
    // alternatively: f = log2(f / (440 / 16)) * 12;

    // Round to nearest integer
    n=d=f+.5;

    // Calculate the note name ('A', 'B', etc), multipled by 12 for convenience
    n=n%12*7+784;

    printf("%c%d%c,%+2.0f cents\n", // output example: B4 ,-49 cents
        n/12,        // note name
        (d+9)/12,    // octave number
        n%12/7*3+32, // if n%12 is large enough, it's '#' else ' ' (natural)
        (f-d)*100);  // number of cents; stdio rounds it to integer
}

자바 스크립트 (199)

예를 들어 t('[X-]',314.1592)

t=(s,f)=>{l=s.length-1;p='C C# D D# E F F# G G# A B H'.split(' ');n=12*Math.log2(f*l/(l-s.indexOf('X'))/16.3515978);m=n+.5|0;return p[m%12]+(n/12|0)+' '+((n-m)*100+.5|0)}

결정된. (유럽에 살고 있으므로 Bb 대신 B를 사용하고 B = 대신 H를 사용했습니다.)

파이썬 3 : 175

import math
def t(b,s):l=len(s)-1;n=12*math.log2(b*l/(l-s.index("X"))/16.35);m=round(n);return"%s%s%+d"%(("C C# D D# E F F# G G# A A# B".split()*99)[m],m//12,round(100*(n-m)))

언 골프 드 :

import math

c0 = 16.35

def tuning (base_frequency, string):
    return formatted (note_number (frequency (base_frequency, string)))

def formatted (note_number):
    return "{name}{octave:d}{cents:+d}".format (name=note_name (note_number),
                             octave=octave (note_number),
                             cents=cents_out (note_number))

def note_name (note_number):
    return ("C C# D D# E F F# G G# A A# B".split() * 99)[round (note_number)]

def note_number (frequency):
    return 12 * math.log2 (frequency / c0)

def octave (note_number):
    return round (note_number) // 12

def cents_out (note_number):
    return round (100 * (note_number - round (note_number)))

def frequency (base_frequency, string):
    string_length = len (string) - 1
    held_length = string_length - string.index ("X")
    return base_frequency * string_length / held_length

if "__main__" == __name__:

    print ("Testing functions against known values...")
    assert "A4+0"     == tuning (220,      "[-----X-----]")
    assert "A5+0"     == tuning (220,      "[--------X--]")
    assert "D5-2"     == tuning (440,      "[--X--------]")
    assert "B4-49"    == tuning (440,      "[X----------]")
    assert "A#4+19"   == tuning (314.1592, "[X-]")
    assert "D#9+8"    == tuning (400,      "[-----------------------X]")
    assert "D#11+8"   == tuning (100,      "[--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------X]")
    assert "D#1+49"   == tuning (10,       "[--X]")
    assert "A0-11"    == tuning (11.7103,  "[---X--]")
    print ("Tests passed.")