Code Golf - Musical Score
Code Golf http://codegolf.com/musical-score
a='' a=a+chomp while gets k=a.size/12 b=' '*12*k for i in 0...k for j in 0...12 b[12*i+j]=a[k*j+i] end $_=b[12*i...12*(i+1)] if i%4==0 print " FEDCBAGFE"[$_.index('o'),1] f=(~/\|/) end if i%4==1 print ~/\\{3}/?"/32 ":~/\\{2}/?"/16 ":~/\\{1}/?"/8 ":f ?"/4 ":' ' end end
Idea is to transpose input rows/columns.
Size: 288