xref: /onnv-gate/usr/src/lib/libshell/common/scripts/primenumbers1.sh (revision 12068:08a39a083754)
18462SApril.Chin@Sun.COM#!/usr/bin/ksh93
28462SApril.Chin@Sun.COM
38462SApril.Chin@Sun.COM#
48462SApril.Chin@Sun.COM# CDDL HEADER START
58462SApril.Chin@Sun.COM#
68462SApril.Chin@Sun.COM# The contents of this file are subject to the terms of the
78462SApril.Chin@Sun.COM# Common Development and Distribution License (the "License").
88462SApril.Chin@Sun.COM# You may not use this file except in compliance with the License.
98462SApril.Chin@Sun.COM#
108462SApril.Chin@Sun.COM# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
118462SApril.Chin@Sun.COM# or http://www.opensolaris.org/os/licensing.
128462SApril.Chin@Sun.COM# See the License for the specific language governing permissions
138462SApril.Chin@Sun.COM# and limitations under the License.
148462SApril.Chin@Sun.COM#
158462SApril.Chin@Sun.COM# When distributing Covered Code, include this CDDL HEADER in each
168462SApril.Chin@Sun.COM# file and include the License file at usr/src/OPENSOLARIS.LICENSE.
178462SApril.Chin@Sun.COM# If applicable, add the following below this CDDL HEADER, with the
188462SApril.Chin@Sun.COM# fields enclosed by brackets "[]" replaced with your own identifying
198462SApril.Chin@Sun.COM# information: Portions Copyright [yyyy] [name of copyright owner]
208462SApril.Chin@Sun.COM#
218462SApril.Chin@Sun.COM# CDDL HEADER END
228462SApril.Chin@Sun.COM#
238462SApril.Chin@Sun.COM
248462SApril.Chin@Sun.COM#
25*12068SRoger.Faulkner@Oracle.COM# Copyright (c) 2008, 2010, Oracle and/or its affiliates. All rights reserved.
268462SApril.Chin@Sun.COM#
278462SApril.Chin@Sun.COM
288462SApril.Chin@Sun.COM#
298462SApril.Chin@Sun.COM# primenumbers1 - a simple prime number generator
308462SApril.Chin@Sun.COM#
318462SApril.Chin@Sun.COM
328462SApril.Chin@Sun.COM# Solaris needs /usr/xpg6/bin:/usr/xpg4/bin because the tools in /usr/bin are not POSIX-conformant
338462SApril.Chin@Sun.COMexport PATH=/usr/xpg6/bin:/usr/xpg4/bin:/bin:/usr/bin
348462SApril.Chin@Sun.COM
358462SApril.Chin@Sun.COM# Make sure all math stuff runs in the "C" locale to avoid problems
368462SApril.Chin@Sun.COM# with alternative # radix point representations (e.g. ',' instead of
378462SApril.Chin@Sun.COM# '.' in de_DE.*-locales). This needs to be set _before_ any
388462SApril.Chin@Sun.COM# floating-point constants are defined in this script).
398462SApril.Chin@Sun.COMif [[ "${LC_ALL}" != "" ]] ; then
408462SApril.Chin@Sun.COM    export \
418462SApril.Chin@Sun.COM        LC_MONETARY="${LC_ALL}" \
428462SApril.Chin@Sun.COM        LC_MESSAGES="${LC_ALL}" \
438462SApril.Chin@Sun.COM        LC_COLLATE="${LC_ALL}" \
448462SApril.Chin@Sun.COM        LC_CTYPE="${LC_ALL}"
458462SApril.Chin@Sun.COM        unset LC_ALL
468462SApril.Chin@Sun.COMfi
478462SApril.Chin@Sun.COMexport LC_NUMERIC=C
488462SApril.Chin@Sun.COM
498462SApril.Chin@Sun.COM
508462SApril.Chin@Sun.COM# check whether arg1 is a prime number via comparing it against the "pn" array
518462SApril.Chin@Sun.COMfunction is_prime
528462SApril.Chin@Sun.COM{
538462SApril.Chin@Sun.COM	integer i
548462SApril.Chin@Sun.COM	integer num=$1
558462SApril.Chin@Sun.COM	float   max_pn
568462SApril.Chin@Sun.COM
578462SApril.Chin@Sun.COM	(( max_pn=sqrt(num)+1. ))
588462SApril.Chin@Sun.COM
598462SApril.Chin@Sun.COM	for (( i=0 ; i < num_pn && pn[i] < max_pn ; i++)) ; do
608462SApril.Chin@Sun.COM		(( num % pn[i] == 0 )) && return 1;
618462SApril.Chin@Sun.COM	done
628462SApril.Chin@Sun.COM	return 0
638462SApril.Chin@Sun.COM}
648462SApril.Chin@Sun.COM
658462SApril.Chin@Sun.COM# main
668462SApril.Chin@Sun.COMset -o errexit
678462SApril.Chin@Sun.COM
688462SApril.Chin@Sun.COM# get arguments
698462SApril.Chin@Sun.COMinteger max_prime=$1 # maximum prime number
708462SApril.Chin@Sun.COMtypeset outputformat=$2
718462SApril.Chin@Sun.COM
728462SApril.Chin@Sun.COM# variables
738462SApril.Chin@Sun.COMinteger -a pn		# integer array for the prime numbers
748462SApril.Chin@Sun.COMinteger num_pn=1	# number of prime numbers
758462SApril.Chin@Sun.COMinteger n		# current number which should be tested
768462SApril.Chin@Sun.COMpn[0]=2			# start value
778462SApril.Chin@Sun.COM
788462SApril.Chin@Sun.COM# prechecks
798462SApril.Chin@Sun.COM(( max_prime > 1 )) || { print -u2 -f "%s: requires a positive integer as first input.\n" "$0" ; exit 1 ; }
808462SApril.Chin@Sun.COM
818462SApril.Chin@Sun.COM# calculate prime numbers
828462SApril.Chin@Sun.COMprintf $"# %s: Calculating prime numbes from 1 to %i\n" "${ date '+%T' ; }" max_prime 1>&2
838462SApril.Chin@Sun.COM
848462SApril.Chin@Sun.COMfor (( n=3 ; n < max_prime ; n+=2 )) ; do
858462SApril.Chin@Sun.COM	if is_prime $n ; then
868462SApril.Chin@Sun.COM		(( pn[num_pn++]=n ))
878462SApril.Chin@Sun.COM	fi
888462SApril.Chin@Sun.COMdone
898462SApril.Chin@Sun.COM
908462SApril.Chin@Sun.COM# print results
918462SApril.Chin@Sun.COMprintf $"# %s: Calculation done, printing results:\n" "${ date '+%T' ; }" 1>&2
928462SApril.Chin@Sun.COM
938462SApril.Chin@Sun.COMfor (( n=0 ; n < num_pn ; n++ )) ; do
948462SApril.Chin@Sun.COM	# print prime number
958462SApril.Chin@Sun.COM	case ${outputformat} in
968462SApril.Chin@Sun.COM		block)
978462SApril.Chin@Sun.COM			printf $"%i$( (( n % 8 == 0 )) && print -r '\n' || print -r ',\t')" pn[n]
988462SApril.Chin@Sun.COM			;;
998462SApril.Chin@Sun.COM		line)
1008462SApril.Chin@Sun.COM			printf $"%i\n" pn[n]
1018462SApril.Chin@Sun.COM			;;
1028462SApril.Chin@Sun.COM		*)
1038462SApril.Chin@Sun.COM			printf $"prime %i:\t%i\n" n pn[n]
1048462SApril.Chin@Sun.COM			;;
1058462SApril.Chin@Sun.COM	esac
1068462SApril.Chin@Sun.COMdone
1078462SApril.Chin@Sun.COM
1088462SApril.Chin@Sun.COMif [[ ${outputformat} == "block" ]] && (( n % 8 != 1 )); then
1098462SApril.Chin@Sun.COM	print
1108462SApril.Chin@Sun.COMfi
1118462SApril.Chin@Sun.COM
1128462SApril.Chin@Sun.COMprintf $"# %s: Done.\n" "${ date '+%T' ; }" 1>&2
1138462SApril.Chin@Sun.COM
1148462SApril.Chin@Sun.COM#EOF.
115