Merge branch 'master' of github.com:seaker/perlweeklychallenge-club

1 files changed, 18 insertions, 0 deletions

diff --git a/challenge-002/paulo-custodio/cpp/ch-1.cpp b/challenge-002/paulo-custodio/cpp/ch-1.cpp
new file mode 100644
index 0000000000..1399dfe279
--- /dev/null
+++ b/challenge-002/paulo-custodio/cpp/ch-1.cpp
@@ -0,0 +1,18 @@
+/*
+Challenge 002
+
+Challenge #1
+Write a script or one-liner to remove leading zeros from positive numbers.
+*/
+
+#include <iostream>
+#include <cctype>
+
+int main(int argc, char* argv[]) {
+    if (argc==2) {
+        char* p = argv[1];
+        while (*p=='0' && isdigit(p[1]))
+            p++;
+        std::cout << p << std::endl;
+    }
+}