#Mathematica 95 112 100 97 104 chars #
Admittedly not very streamlined:
Take[Flatten@Table[# <> ToString@k & /@ Partition[Characters[" CDb DEb E FGb GAb ABb B"], 2], {k, 0, 8}], {10, 97}] The Flat symbol, although it occupies a single character, is transcribed to SO as \[Flat] so I used the letter "b" here.
Output:
Length@% (* out *) 88 #Mathematica 95 112 100 97 104 chars #
Admittedly not very streamlined:
Take[Flatten@Table[# <> ToString@k & /@ Partition[Characters[" CDb DEb E FGb GAb ABb B"], 2], {k, 0, 8}], {10, 97}] The Flat symbol, although it occupies a single character, is transcribed to SO as \[Flat] so I used the letter "b" here.
Output:
Length@% (* out *) 88 Admittedly not very streamlined:
Take[Flatten@Table[# <> ToString@k & /@ Partition[Characters[" CDb DEb E FGb GAb ABb B"], 2], {k, 0, 8}], {10, 97}] The Flat symbol, although it occupies a single character, is transcribed to SO as \[Flat] so I used the letter "b" here.
Output:
Length@% (* out *) 88 #Mathematica 95 112 100 9797 104 chars #
Admittedly not very streamlined:
Flatten@Table[#Take[Flatten@Table[# <> ToString@k & /@ Partition[Characters["DbPartition[Characters[" CDb DEb E FGb GAb ABb B C"]B"], 2], {k, 0, 8}]~Drop~8], {10, 97}] The Flat symbol, although it occupies a single character, is transcribed to SO as \[Flat] so I used the letter "b" here.
Output:
Length@% (* out *) 88 #Mathematica 95 112 100 97 chars #
Admittedly not very streamlined:
Flatten@Table[# <> ToString@k & /@ Partition[Characters["Db DEb E FGb GAb ABb B C"], 2], {k, 0, 8}]~Drop~8 The Flat symbol, although it occupies a single character, is transcribed to SO as \[Flat] so I used the letter "b" here.
Output:
#Mathematica 95 112 100 97 104 chars #
Admittedly not very streamlined:
Take[Flatten@Table[# <> ToString@k & /@ Partition[Characters[" CDb DEb E FGb GAb ABb B"], 2], {k, 0, 8}], {10, 97}] The Flat symbol, although it occupies a single character, is transcribed to SO as \[Flat] so I used the letter "b" here.
Output:
Length@% (* out *) 88 #Mathematica 95 112 100100 97 chars #
Admittedly not very streamlined:
Take[Flatten@Table[#Flatten@Table[# <> ToString@k & /@ Partition[Characters[" ABb B CDbPartition[Characters["Db DEb E FGb GAb"]GAb ABb B C"], 2], {k, 0, 8}], 100]]~Drop~8 The Flat symbol, although it occupies a single character, is transcribed to SO as \[Flat] so I used the letter "b" here.
Output:
#Mathematica 95 112 100 chars #
Admittedly not very streamlined:
Take[Flatten@Table[# <> ToString@k & /@ Partition[Characters[" ABb B CDb DEb E FGb GAb"], 2], {k, 0, 8}], 100] The Flat symbol, although it occupies a single character, is transcribed to SO as \[Flat] so I used the letter "b" here.
Output:
#Mathematica 95 112 100 97 chars #
Admittedly not very streamlined:
Flatten@Table[# <> ToString@k & /@ Partition[Characters["Db DEb E FGb GAb ABb B C"], 2], {k, 0, 8}]~Drop~8 The Flat symbol, although it occupies a single character, is transcribed to SO as \[Flat] so I used the letter "b" here.
Output: