RosettaCodeData/Task/Zhang-Suen-thinning-algorithm/Fortran/zhang-suen-thinning-algorithm-4.f
2023-07-01 13:44:08 -04:00

1 line
59 B
Forth

DOT(WHACK(1:WHACKCOUNT).I,WHACK(1:WHACKCOUNT).J) = 0