3 lines
103 B
Text
3 lines
103 B
Text
histogram=: <: @ (#/.~) @ (i.@#@[ , I.)
|
|
require'plot'
|
|
plot ((% * 1 + i.)100) ([;histogram) 10000 ?@$ 0
|