diff options
| author | drbaggy <js5@sanger.ac.uk> | 2022-02-23 12:01:46 +0000 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2022-02-23 12:01:46 +0000 |
| commit | 1f0b1bb7c4547e1a90c6a9e5e3e917896cec09f7 (patch) | |
| tree | 3367cd541740d269c24d7c5fd77dcf97b335e1b8 /challenge-153/abigail/java/ch-2.java | |
| parent | 6969759d9c3f60d28741151faf35d479fe671cf0 (diff) | |
| parent | b44719f171b42ef306e7e50933125b7b1371b38d (diff) | |
| download | perlweeklychallenge-club-1f0b1bb7c4547e1a90c6a9e5e3e917896cec09f7.tar.gz perlweeklychallenge-club-1f0b1bb7c4547e1a90c6a9e5e3e917896cec09f7.tar.bz2 perlweeklychallenge-club-1f0b1bb7c4547e1a90c6a9e5e3e917896cec09f7.zip | |
vi ch-2Merge remote-tracking branch 'upstream/master'
Diffstat (limited to 'challenge-153/abigail/java/ch-2.java')
| -rw-r--r-- | challenge-153/abigail/java/ch-2.java | 30 |
1 files changed, 30 insertions, 0 deletions
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); + } + } +} |
