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

histogram=: <: @ (#/.~) @ (i.@#@[ , I.)
require'plot'
plot ((% * 1 + i.)100) ([;histogram) 10000 ?@$ 0
Update all new Tasks 2015-02-20 09:02:09 -05:00			`histogram=: <: @ (#/.~) @ (i.@#@[ , I.)`
			`require'plot'`
2016 Update 2016-12-05 22:15:40 +01:00			`plot ((% * 1 + i.)100) ([;histogram) 10000 ?@$ 0`