miscellaneous/array0.rkt at main · alpha-beta-eta/miscellaneous
Basically, I follow the idea in the link below:
Image Processing Playground with Array Languages
(faithfully) translate the OCaml code into Racket and make a few modications of the original code.
An Example:
(emitPPM
cmap1
(<< (array '(2 2) (const 4))
((repeated 8)
(expander scale-twice 1.3)))
"0.ppm")
I hope you can have fun with it.