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