Rosetta Code

Zhang-Suen thinning algorithm: Difference between revisions

Page Discussion

Zhang-Suen thinning algorithm (view source)

Revision as of 06:54, 25 July 2014

14 bytes removed ,  9 years ago
m
→‎{{header|Mathematica}}
Line 962:
<lang Mathematica>nB[mat_] := Delete[mat // Flatten, 5] // Total;
 
nA[mat_] := Module[{l, ct = 0, f},
f[a_, b_] := If[a == 0 && b == 1, ct++; b, b];
l = Flatten[mat][[{2, 3, 6, 9, 8, 7, 4, 1, 2}]];
FoldTotal[f, lMap[If[#[[1]], l== 0 && #[[2 ;;]] == 1, 1, 0]; &,
Partition[l, 2, 1]]]
ct];
 
iW1[mat_] :=
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/236213"