aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPhilip Hood <hood@panix.com>2020-10-19 14:33:52 -0400
committerPhilip Hood <hood@panix.com>2020-10-19 14:33:52 -0400
commit6012336a8dbad470ad110a67b8e2f8a61b9e95b1 (patch)
tree3d45ee5652076ce51243399b073657ddc6516b67
parent52ae56bdd93bb55f04ee3d75bc45365b31e80306 (diff)
downloadperlweeklychallenge-club-6012336a8dbad470ad110a67b8e2f8a61b9e95b1.tar.gz
perlweeklychallenge-club-6012336a8dbad470ad110a67b8e2f8a61b9e95b1.tar.bz2
perlweeklychallenge-club-6012336a8dbad470ad110a67b8e2f8a61b9e95b1.zip
c code for challenge #83.
-rw-r--r--challenge-083/pkmnx/c/ch-1.c37
1 files changed, 37 insertions, 0 deletions
diff --git a/challenge-083/pkmnx/c/ch-1.c b/challenge-083/pkmnx/c/ch-1.c
new file mode 100644
index 0000000000..837b5927d7
--- /dev/null
+++ b/challenge-083/pkmnx/c/ch-1.c
@@ -0,0 +1,37 @@
+#include <stdio.h>
+#include <ctype.h>
+
+int main() {
+
+ char c;
+ char state;
+
+ long tot = 0;
+ long acc = 0;
+ long c_cnt = 0;
+
+ while ( (c = getchar()) != EOF ) {
+
+ if ( isspace(c) ) {
+ state = 's';
+ } else {
+ state = state == 's' ?'c' :'w';
+ acc++;
+ }
+
+ if ( c_cnt >= 1 ) {
+ tot += state == 'c' ?acc : 0;
+ }
+
+ if ( state == 'c' ) {
+ c_cnt++;
+ acc = 0;
+ }
+
+ }
+
+ printf( "%ld\n", tot );
+
+ return 0;
+
+}