1 files changed, 26 insertions, 0 deletions
diff --git a/challenge-001/abigail/java/ch-1.java b/challenge-001/abigail/java/ch-1.java
new file mode 100644
index 0000000000..bc45a794a8
--- /dev/null
+++ b/challenge-001/abigail/java/ch-1.java
@@ -0,0 +1,26 @@
+//
+// See https://theweeklychallenge.org/blog/perl-weekly-challenge-001
+//
+
+//
+// Run as: ln ch-1.java ch1.java; javac ch1.java; java ch1 < input-file
+//
+
+import java.util.*;
+
+public class ch1 {
+    public static void main (String [] args) {
+        Scanner scanner = new Scanner (System . in);
+        while (scanner . hasNextLine ()) {
+            String line = scanner . nextLine ();
+            int count   = 0;
+            int index   = line . indexOf ('e');
+            while (index >= 0) {
+                count ++;
+                index = line . indexOf ('e', index + 1);
+            }
+            System . out . println (line . replaceAll ("e", "E"));
+            System . out . println (count);
+        }
+    }
+}