diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2022-03-16 19:10:37 +0000 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2022-03-16 19:10:37 +0000 |
| commit | ffad13c13ff195a048fa7583a8a859fd7e7bf536 (patch) | |
| tree | 1eff316ab6270eb6ed8eeaad0d19982ee80ea444 | |
| parent | 025bd7e3f4de1dbf21b18002a5c1ef705feacede (diff) | |
| download | perlweeklychallenge-club-ffad13c13ff195a048fa7583a8a859fd7e7bf536.tar.gz perlweeklychallenge-club-ffad13c13ff195a048fa7583a8a859fd7e7bf536.tar.bz2 perlweeklychallenge-club-ffad13c13ff195a048fa7583a8a859fd7e7bf536.zip | |
- Added guest contribution by Robert DiCicco.
| -rw-r--r-- | challenge-156/robert-dicicco/bash/ch-1.bash | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/challenge-156/robert-dicicco/bash/ch-1.bash b/challenge-156/robert-dicicco/bash/ch-1.bash new file mode 100644 index 0000000000..e09cefb739 --- /dev/null +++ b/challenge-156/robert-dicicco/bash/ch-1.bash @@ -0,0 +1,25 @@ +#!usr/bin/env bash + +# AUTHOR: Robert DiCicco +# DATE: 16-MAR-2022 +# Challenge 156 Pernicious Numbers ( Bash ) + +Primes=' 2 3 5 7 11 13 17 19 23 29 ' +Cnt=0 +Num=1 + +until [[ $Cnt -eq 10 ]] +do + BinNum=`echo "obase=2;$Num" | bc` + res="${BinNum//[^1]}" + rescnt=${#res} + + if grep -q " $rescnt " <<< "$Primes"; then + echo -n "$Num " + ((Cnt=Cnt+1)) + fi + + ((Num=Num+1)) +done + +echo " " |
