ไม่นะ! ฉันมีการทดสอบทางทฤษฎีในไม่ช้าและฉันยังจำเครื่องชั่งไม่ได้! ช่วยฉันจำเครื่องชั่งน้ำหนักหลักได้โดยการพิมพ์ดังต่อไปนี้:

7♯ - C♯ D♯ E♯ F♯ G♯ A♯ B♯ C♯
6♯ - F♯ G♯ A♯ B  C♯ D♯ E♯ F♯
5♯ - B  C♯ D♯ E  F♯ G♯ A♯ B
4♯ - E  F♯ G♯ A  B  C♯ D♯ E
3♯ - A  B  C♯ D  E  F♯ G♯ A
2♯ - D  E  F♯ G  A  B  C♯ D
1♯ - G  A  B  C  D  E  F♯ G
0  - C  D  E  F  G  A  B  C
1♭ - F  G  A  B♭ C  D  E  F
2♭ - B♭ C  D  E♭ F  G  A  B♭
3♭ - E♭ F  G  A♭ B♭ C  D  E♭
4♭ - A♭ B♭ C  D♭ E♭ F  G  A♭
5♭ - D♭ E♭ F  G♭ A♭ B♭ C  D♭
6♭ - G♭ A♭ B♭ C♭ D♭ E♭ F  G♭
7♭ - C♭ D♭ E♭ F♭ G♭ A♭ B♭ C♭

นี่คือรหัส - กอล์ฟดังนั้นรหัสที่สั้นที่สุดจึงชนะ คุณสามารถใช้#และbสัญลักษณ์แทน♯และ♭ตามลำดับ

แก้ไข: หากคุณกำลังใช้♯และ♭สัญญาณคุณจะต้องนับเป็นไบต์เดียว นี่คือการไม่ให้ข้อเสียที่ไม่เป็นธรรม

Charcoal , 66 65 ไบต์ (ถ้าใช้ # และ b)

↑⮌…0¦8‖Ｏ⸿×⁷♭Ｍ→×⁷♯→⸿⸿¹⁵ＦＥ⁸﹪⊕⊗ι⁷«⸿⸿✂׳FCGDAEBι⁺¹⁵ι→⸿✂⭆♭ ♯×⁷κι⁺¹⁵ι»⟲

ลองออนไลน์! การเชื่อมโยงคือการใช้รหัสเวอร์ชันอย่างละเอียด คำอธิบาย:

↑⮌…0¦8‖Ｏ

พิมพ์ตัวอักษร0เพื่อ7กลับด้านจากนั้นสะท้อนด้วยการทับซ้อน รายการปกติพิมพ์ลงดังนั้นการพิมพ์ขึ้นไปจริง ๆ พิมพ์ไปทางขวา; เราจะหมุนทุกอย่างให้เข้าที่ท้ายที่สุด

⸿×⁷♭Ｍ→×⁷♯

เริ่มบรรทัดใหม่แล้วพิมพ์แฟลต 7 และ 7 sharps โดยมีช่องว่างระหว่าง

→⸿⸿¹⁵

เว้นบรรทัดว่างไว้แล้วพิมพ์ 15 -วินาที

ＦＥ⁸﹪⊕⊗ι⁷«

นำตัวเลข 0 ถึง 7 มาเป็นสองเท่าเพิ่ม 1 จากนั้นลดโมดูโล 7. วนรอบผลลัพธ์

⸿⸿✂׳FCGDAEBι⁺¹⁵ι

ปล่อยให้บรรทัดว่างแล้วนำ 15 ชิ้นของสตริงข้อความที่เพิ่มขึ้นสามเท่าโดยเริ่มจากค่าปัจจุบัน

→⸿✂⭆♭ ♯×⁷κι⁺¹⁵ι

ในบรรทัดถัดไปใช้แฟลต 15 ตัวอักษรช่องว่างและชาร์ปซ้ำกัน 7 ครั้ง

»⟲

หลังจากพิมพ์โน้ตทั้งหมดแล้วให้หมุนทุกอย่างเข้าที่

Ruby , 113 ไบต์ ( 131 126 108 105 ด้วย # และ b)

-7.upto(7){|i|print i.abs," ♭♯"[i<=>0]," - ",(4..11).map{|j|("FCGDAEB"*3)[k=j*2%7-i]+"♭♯ "[~k/7]}*" ",$/}

ลองออนไลน์!

Ruby , 116 ไบต์ (108 กับ # และ b)

ลองออนไลน์!

Ruby , 126 ไบต์ (118 กับ # และ b)

ลองออนไลน์!

Ruby , 131 ไบต์พร้อม # และ b

ลองออนไลน์!

Python 3 , 135 ไบต์

นับ♯และ♭เป็น 1 ไบต์ละ

ขอบคุณZacharýสำหรับ -6 ไบต์

for i in range(15):k=' ♯♭'[(i<7)-(i>7)]+' -';print(str(i-7)[-1]+k,*[v+k[a+8>i>a]for a,v in zip([1,3,5,0,2,4,6,1],('CDEFGAB'*8)[i*3:])])

ลองออนไลน์!

รุ่น GNU , 148 144 + 1 = 145 ไบต์

+1 ไบต์สำหรับการ-rตั้งค่าสถานะ

s/^/ 7# - C# D# E# F# G# A# B# \n65432101234567/
:
s/((.).(. - )((\S..){3})([^-]+)..\n)([0-7])/\1\2\7\3\6\2 \4\n/
s/ 0#/b0b/
t
s/^.//gm
s/0b/0 /

ลองออนไลน์!

คำอธิบาย

ก่อนอื่นแทรกเทมเพลตแปลก ๆ :

 7# - C# D# E# F# G# A# B# 
65432101234567

หมายเหตุช่องว่างนำหน้าและต่อท้ายบนบรรทัดแรก

ในลูปให้ใช้หมายเลขแรกจากบรรทัดสุดท้ายและแทนที่ด้วยส่วนของบรรทัดที่สองถึงครั้งสุดท้ายดังนี้:

 7# - C# D# E# F# G# A# B# 
│ └┬─┘└───┬───┘└───┬────┘
2  3      4        6
│  │      └────────│──┐
├──│────────────┐  │  │
│  │      ┌─────│──┘  │
│ ┌┴─┐┌───┴────┐│ ┌───┴───┐
 6# - F# G# A# B  C# D# E# 

ในขณะที่คุณสามารถมองเห็นพื้นที่เริ่มต้น (จับภาพ 2) Bจะใช้ในการแทนที่ตัวอักษรหลังจากที่

เมื่อถึงแทนที่พื้นที่เริ่มต้นด้วย0 bห่วงอย่างต่อเนื่อง แต่แทนที่จะเปลี่ยน#s bพร้อมด้วยช่องว่างในบรรทัดต่อมาในแต่ละพื้นที่จะถูกแทนที่ด้วย

สุดท้ายทำล้างเล็ก ๆ น้อย ๆ : เอาตัวละครชั้นนำจากแต่ละบรรทัดและแทนที่ด้วย0b0

Befunge, 134 132 130 ไบต์

<v:,,," - ",g2+!!\`0::,+*86*-1*2`0::p00:<75
@>4*65*+81v>55+,$$\:00g0`!\9p3+7%\1-:8+#^_
 b#"A"%7:\_^#:-1,*84,g2*+1`0g00!!g9%7:\+1,+

ลองออนไลน์!

คำอธิบาย

• เราเริ่มต้นด้วยการวนรอบนอกนับจาก 7 ถึง -7 เราจะเรียกสิ่งนี้ว่าแถวจำนวน
• สำหรับแต่ละแถวเราเริ่มต้นด้วยการเขียน'0'+abs(row)(จำนวนสเกล) จากนั้นคำนวณ(row>0)+(row!=0)เพื่อค้นหาว่ามันเป็นธรรมชาติคมหรือแบนในตาราง#b(คุณจะเห็นสิ่งนี้ในตอนเริ่มต้นของบรรทัดที่สามของรหัส)
• จากนั้นเราจะคำนวณทราบขนาดเริ่มต้นที่n30 + row*4เป็น ในที่สุดนี้จะเป็น mod 7 ดังนั้นให้คิดว่ามันเป็นลำดับที่ซ้ำกัน 2,5,1,4,0,3,6 (เช่น CFBEADG)
• วงในของเรา, i , นับจาก 8 เป็น 1, สำหรับโน้ตแปดตัวในสเกล, เพิ่มnในแต่ละการวนซ้ำ
• 'A' + n%7ตัวอักษรของโน้ตก็คือ ไม่ว่าจะคมหรือแบนจะพิจารณาจากการมองi%7ในตาราง ตารางจะเริ่มต้นจริงทั้งหมดตั้งแต่ระดับแรกคือชาร์ปทั้งหมด
• อย่างไรก็ตามหลังจากที่แต่ละแถวออกผลลัพธ์เราจะอัพเดทตารางโดยสลับหนึ่งค่า ในการย้ำแรกที่เราจะสลับค่าชดเชยที่ 5 (offset+3)%7แต่ในแต่ละวงจะมีการปรับชดเชยโดย
• ในครึ่งแรกของเอาต์พุตเมื่อแถวมากกว่าศูนย์เราจะสลับค่าตารางเหล่านี้เป็นเท็จ ในช่วงครึ่งหลังของเอาต์พุตเมื่อแถวน้อยกว่าหรือเท่ากับศูนย์เราจะตั้งค่าให้กลับเป็นจริง

Bubblegum , 107 ไบต์

เกณฑ์ Bubblegum

00000000: 4dca a90d 0301 1443 41ee 2a9e f4b1 a5ec  M......CA.*.....
00000010: 8d73 f7e1 fe8b 48a0 e968 aec1 3c87 d7f0  .s....H..h..<...
00000020: 1e3e c377 b80f 8ff9 a3ce c165 74d4 31b8  .>.w.......et.1.
00000030: 8c8a da07 1751 4fdb e022 ea69 1d5c 443d  .....QO..".i.\D=
00000040: 2d83 8ba8 a71b b888 7a5a 828b 524f 6b70  -.......zZ..ROkp
00000050: 51fa 690b 2e4b 47ed c165 e9a8 23b8 2c1d  Q.i..KG..e..#.,.
00000060: 7506 97a5 a3ae e0b2 74d4 0f              u.......t..

ลองออนไลน์!

JavaScript (ES6), 130 124 ไบต์

หรือ128 121 ไบต์พร้อมขึ้นบรรทัดใหม่

f=(y=14,x=8)=>x?f(y,x-1)+' '+'BCDEFGA'[(y*3+x)%7]+'# b'[(x*5%7+y)/7|0]:(y?f(y-1)+`
`:'')+`${y<7?7-y+'#':y>7?y-7+'b':'0 '} -`

O.innerText = f()

<pre id=O style="font-size:11px"></pre>

C,  212   189   186  185 ไบต์

ขอบคุณ @Jonathan Frech สำหรับการบันทึกไบต์!

#define N n>0?35:98:32);
f(i,n){for(n=8;--n+8;puts(""))for(i=-1,printf("%d%c -",abs(n),n?N++i<8;)printf(" %c%c",(n*4+65+i)%7+65,"\377\277\273\233\231\211\10\0@Ddfv\367\377"[n+7]&1<<i?N}

ลองออนไลน์!

คลี่:

#define N n>0 ? 35 : 98 : 32);
f(i, n)
{
    for (n=8; --n+8; puts(""))
        for (i=-1, printf("%d%c -", abs(n), n?N ++i<8;)
            printf(" %c%c",
                (n*4+65+i)%7 + 65,
                "\377\277\273\233\231\211\10\0@Ddfv\367\377"[n+7] & 1<<i ? N
}

เยลลี่ ,  57 56 55  54 ไบต์

-1 ไบต์ขอบคุณEriktheOutgolfer (ใช้7ŒRเพื่อแทนที่-7r7)

_Ṃị“ b#”
=”B+\Çż
×3⁵+€ịØAḣ7¤ḊḊÇ€Z
7ŒRµṠÑżAW€żÇj€”-UK€Y

โปรแกรมเต็มรูปแบบพิมพ์เอาต์พุตที่ต้องการ (ใช้#, b)

ลองออนไลน์!

อย่างไร?

_Ṃị“ b#” - Link 1, getSharpsFlatsOrSpaces: list of integers
 Ṃ       - minimum (of the input list)
_        - subtract (from the input list) -- for our purposes this resets whatever our
         -       1st value is to 0, since our inputs are always monotonically increasing
   “ b#” - literal list of characters = [' ', 'b', '#']
  ị      - index into (1-based and modular)

=”B+\Çż - Link 2, addSharpsFlatsOrSpaces: list of characters  e.g."CFBEADGCFBEADGC"
 ”B     - literal character 'B'
=       - equals? (vectorises)                      [0,0,1,0,0,0,0,0,0,1,0,0,0,0,0]
    \   - cumulative reduce with:
   +    -   addition                                [0,0,1,1,1,1,1,1,1,2,2,2,2,2,2]
     Ç  - call the last link (1) as a monad                       "##       bbbbbb"
      ż - zip (with input) ["#C","#F"," B"," E",...," F","bB","bE","bA","bD","bG","bC"]

×3⁵+€ịØAḣ7¤ḊḊÇ€Z - link 3, getNoteLetters: list of integers          e.g. [-7,-6,...,6,7]
×3               - multiply by three       [-21,-18,-15,-12,-9,-6,-3,0,3,6,9,12,15,18,21]
  ⁵              - literal ten                                                         10
   +€            - add for €ach (in [1,10])   [[-20,...,22],[-19,...,23],...,[-11,...31]]
          ¤      - nilad followed by link(s) as a nilad:
      ØA         -   yield uppercase alphabet                "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        ḣ7       -   head to index seven                                        "ABCDEFG"
     ị           - index into ["ADGCFBEADGCFBEA","BEADGCFBEADGCFB","CFBEADGCFBEADGC",...]
           Ḋ     - dequeue    ["BEADGCFBEADGCFB","CFBEADGCFBEADGC","DGCFBEADGCFBEAD",...]
            Ḋ    - dequeue    ["CFBEADGCFBEADGC","DGCFBEADGCFBEAD","EADGCFBEADGCFBE",...]
             Ç€  - call the last link(2) as a monad for €ach
                 -    [[["#C","#F"," B"," E",...," F","bB","bE","bA","bD","bG","bC"],...]
               Z - transpose           [["#C","#D",...,"#C"],["#F",..." B",...,"#F"],...]

7ŒRµṠÑżAW€żÇj€”-UK€Y - Main link: no arguments
7ŒR                  - absolute range of seven     [-7,-6,-5,-4,-3,-2,-1,0,1,2,3,4,5,6,7]
   µ                 - start a new monadic chain (call that r)
    Ṡ                - sign (of r)                 [-1,-1,-1,-1,-1,-1,-1,0,1,1,1,1,1,1,1]
     Ñ               - call the next link (1) as a monad                "####### bbbbbbb"
       A             - absolute value (of r)              [7,6,5,4,3,2,1,0,1,2,3,4,5,6,7]
      ż              - zip                      [[7,'#'],[6,'#'],...,[0,' '],...,[7,'b']]
        W€           - wrap €ach        [[[7,'#']],[[6,'#']],...,[[0,' ']],...,[[7,'b']]]
           Ç         - call the last link (3) as a monad (with r)      see link 3 example
          ż          - zip                     [[[['#',7]],["#C","#D",...,"#C"]],
                                                [[['#',6]],["#F",...," B",..."#F"]], ...]
              ”-     - literal character '-'
            j€       - join for €ach            [[['#',7],'-',"#C","#D",..."#C"],
                                                 [['#',6],'-',"#F",...," B",..."#F"],...]
                U    - upend (reverse each)     [[[7,'#'],'-',"C#","D#",..."C#"],
                                                 [[6,'#'],'-',"F#",...,"B ",..."F#"],...]
                 K€  - join €ach with spaces            [[7+"# - C# D# ... C#"],
                                                         [6+"# - F# ... B  ... F#"], ...]
                   Y - join with newlines
                     - implicit print to STDOUT

CJam , 109 106 94 94 bytes

{_0={_z/}|" b#"=a}:A;15,{X7-_zs\A+" - "+o7,0+{YX+7%65+c"2461357"Y=aiX\-_7,#){;0}&AS++o}fYNo}fX

ลองออนไลน์

Java 8, 255 ไบต์

นับ♯และ♭เป็น 1 ไบต์

v->{String r="",t="GABCDEF";for(int i=-8;++i<8;r+="\n"){r+=(i<0?-i+"♯":i>0?i+"♭":"0 ")+" - ";for(String c:((t=t.substring(3)+t.substring(0,3))+t.charAt(0)).split(""))r+=c+("BEADGCF".substring(i<0?7+i:i).contains(c)?i<0?"♯":" ":i>0?"♭":" ")+" ";}return r;}

คำอธิบาย:

ลองออนไลน์

v->{                   // Method with empty unused parameter and String return-type
  String r="",         //  Result-String, starting empty
         t="GABCDEF";  //  Temp-String `t`, starting at "GABCDEF"
  for(int i=-8;++i<8;  //  Loop from -7 to 7 (inclusive); range (-8;8) == [-7;7]
      r+="\n"){        //    After every iteration: append the result with a new-line
    r+=                //   Append the result-String with:
       (i<0?           //    If `i` is negative:
         -i+"♯"        //     Append the absolute value of `i` + a literal "♯"
        :i>0?          //    Else-if `i` is positive:
         i+"♭"         //     Append `i` + a literal "♭"
        :              //    Else (`i` is 0):
         "0 ")         //     Append a literal "0" + space
     +" - ";           //   And then append a literal " - "
  for(String c:((t=t.substring(3)+t.substring(0,3))
                       //  Split String `t` in the middle,
                       //  and swap the two parts (i.e. "GABCDEF" becomes "CDEFGAB")
                +t.charAt(0))
                       //  Then append the first character
                .split(""))
                       //  And loop over each character:
     r+=c+             //   Append the result-String with this character, plus:
          ("BEADGCF".substring(i<0?
                       //    If `i` is negative
            7+i        //     Take the last `-i` characters of "BEAFGCF"
           :           //    Else (`i` is 0 or positive)
            i)         //     Take the last `7-i` characters of "BEAFGCF"
          .contains(c)?//    And if these last characters contain the current character:
            i<0?       //     And `i` is negative:
             "♯"       //      Append a literal "♯"
            :          //     Else (`i` is 0 or positive)
             " "       //      Append a space
          :i>0?        //    Else-if `i` is positive
            "♭"        //     Append a literal "♭"
          :            //    Else:
           " ")        //     Append a space
      +" ";}           //   And then append a space
  return r;}           //  Return the result-String