From 6d7e1942a22328ba6c83e771d113957909eaabcf Mon Sep 17 00:00:00 2001
From: Abigail <abigail@abigail.freedom.nl>
Date: Mon, 21 Feb 2022 13:37:03 +0100
Subject: Solutions for week 153

---
 challenge-153/abigail/java/ch-2.java | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 challenge-153/abigail/java/ch-2.java

(limited to 'challenge-153/abigail/java/ch-2.java')

diff --git a/challenge-153/abigail/java/ch-2.java b/challenge-153/abigail/java/ch-2.java
new file mode 100644
index 0000000000..1fc60b7431
--- /dev/null
+++ b/challenge-153/abigail/java/ch-2.java
@@ -0,0 +1,30 @@
+//
+// See https://theweeklychallenge.org/blog/perl-weekly-challenge-153
+//
+
+//
+// Run as: ln ch-2.java ch2.java; javac ch2.java; java ch2 < input-file
+//
+
+import java.util.*;
+
+public class ch2 {
+    public static void main (String [] args) {
+        Scanner scanner = new Scanner (System . in);
+        int [] fac = new int [10];
+        fac [0] = 1;
+        for (int n = 1; n <= 9; n ++) {
+            fac [n] = n * fac [n - 1];
+        }
+        while (scanner . hasNextInt ()) {
+            int num = scanner . nextInt ();
+            int sum = 0;
+            int n   = num;
+            while (n > 0) {
+                sum += fac [n % 10];
+                n   /= 10;
+            }
+            System . out . printf ("%d\n", sum == num ? 1 : 0);
+        }
+    }
+}
-- 
cgit