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