Skip to main content
1 of 3
theorist
  • 1.5k
  • 6
  • 12

Wolfram Language (Mathematica), 142 bytes

BarChart[1~Table~6,BarOrigin->Left,ChartStyle->{Purple,Blue,Green,Yellow,Orange,Red},BarSpacing->0,Axes->False,ChartBaseStyle->EdgeForm[None]] 

enter image description here

theorist
  • 1.5k
  • 6
  • 12