4 lines
130 B
Forth
4 lines
130 B
Forth
: histogram ( array gmp -- )
|
|
over 256 cells erase
|
|
dup bdim * over bdata + swap bdata
|
|
do 1 over i c@ cells + +! loop drop ;
|