Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Image-convolution/J/image-convolution-1.j
+++ b/Task/Image-convolution/J/image-convolution-1.j
@ -0,0 +1,11 @@
+NB. pad the edges of an array with border pixels
+NB. (increasing the first two dimensions by 1 less than the kernel size)
+pad=: {{
+   rank=.#$m
+   'first second'=. (<.,:>.)-:$m
+    -@(second+rank{.$) {. (first+rank{.$){.]
+}}
+
+kernel_filter=: {{
+   [: (0 >. 255 <. <.@:+&0.5) (1,:$m)+/ .*~&(,/)&m;._3 m pad
+}}