RosettaCodeData/Task/Statistics-Basic/J/statistics-basic-2.j

mirror of https://github.com/acmeism/RosettaCodeData.git
histogram=: <: @ (#/.~) @ (i.@#@[ , I.)
require'plot'
plot ((% * 1 + i.)100) ([;histogram) 10000 ?@$ 0
	`histogram=: <: @ (#/.~) @ (i.@#@[ , I.)`
	`require'plot'`
	`plot ((% * 1 + i.)100) ([;histogram) 10000 ?@$ 0`