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

4 lines
96 B
Plaintext

histogram=: <: @ (#/.~) @ (i.@#@[ , I.)
require'plot'
plot ((%*1+i.)100) ([;histogram) ?10000#0