Prime numbers which contain 123: Difference between revisions
no edit summary
(→{{header|Ruby}}: Add Ruby) |
No edit summary |
||
Line 347:
Found 435002 primes < 1000000000 which contain the string 123 in base 10 representation.
</pre>
=={{header|Ksh}}==
<lang ksh>
#!/bin/ksh
# Prime numbers which contain 123
# # Variables:
#
integer MAX_SHOW=100000 MAX_COUNT=1000000 primecnt=0
pattrn='123'
typeset -a parr
# # Functions:
#
# # Function _isprime(n) return 1 for prime, 0 for not prime
#
function _isprime {
typeset _n ; integer _n=$1
typeset _i ; integer _i
(( _n < 2 )) && return 0
for (( _i=2 ; _i*_i<=_n ; _i++ )); do
(( ! ( _n % _i ) )) && return 0
done
return 1
}
######
# main #
######
for ((i=2; i<MAX_COUNT; i++)); do
_isprime ${i}
if (( $? )); then
if [[ ${i} == *${pattrn}* ]]; then
((primecnt++))
(( i < MAX_SHOW )) && parr+=( ${i} )
fi
fi
done
print ${parr[*]}
print ${#parr[*]} found under $MAX_SHOW
echo ; print ${primecnt} found under $MAX_COUNT</lang>
{{out}}<pre>1123 1231 1237 8123 11239 12301 12323 12329 12343 12347 12373 12377 12379
12391 17123 20123 22123 28123 29123 31123 31231 31237 34123 37123 40123 41231 41233 44123 47123
49123 50123 51239 56123 59123 61231 64123 65123 70123 71233 71237 76123 81233 81239 89123 91237 98123
46 found under 100000
451 found under 1000000</pre>
=={{header|Nim}}==
| |||