SC2011: Lean code solution in awk

By
gojko
– May 26, 2011Posted in: articles
BEGIN {RS=",|\n"}
/Apples|Pommes|Mele/{total+=100; apples++; if (apples%4==0) total-=100;}
/Pommes/{pommes++; if (pommes%3==0) total-=100; }
/Mele/{mele++; if (mele%2==0) total-=50;}
/Cherries/{total+=75; cherries++; if (cherries%2==0) total-=20;}
/Bananas/{total+=150; bananas++; if (bananas%2==0) total-=150;}
//{fruit++; if (fruit%5==0) total-=200;}
END{print total;}