REDROOM

Navigation

Breadcrumbs

Create

Edit File Size: 1.03 KB

//usr/share/doc/mawk/examples/primes.awk

Text Base64

#!/usr/bin/mawk -f

# primes.awk
#
#  mawk -f primes.awk  [START]  STOP
# find all primes    between 2 and STOP
#       or START and STOP
#

function usage()
{ ustr = sprintf("usage: %s  [start] stop", ARGV[0])
  system( "echo " ustr) 
  exit 1
}

BEGIN { if (ARGC == 1 || ARGC > 3 ) usage()
        if ( ARGC == 2 )  { start = 2  ; stop = ARGV[1]+0 }
	else
	if ( ARGC == 3 )  { start = ARGV[1]+0 ; stop = ARGV[2]+0 }

if ( start < 2 ) start = 2
   if ( stop < start ) stop = start

prime[ p_cnt = 1 ] =  3  # keep primes in prime[]

# keep track of integer part of square root by adding
# odd integers 
   odd = test = 5
   root = 2
   squares = 9

while ( test <= stop )
{
   if ( test >= squares )
   { root++
     odd += 2
     squares += odd 
   }

flag = 1
   for ( i = 1 ; prime[i] <= root ; i++ )
   	if ( test % prime[i] == 0 )  #  not prime
	{ flag = 0 ; break }

if ( flag )  prime[ ++p_cnt ] = test

test += 2
}

prime[0] = 2

for( i = 0 ; prime[i] < start ; i++)  ;

for (  ;  i <= p_cnt ; i++ )  print prime[i]

}

Exit & Reset Text mode: syntax highlighting auto-detects file type.

Name	Size	Perms	Modified	Actions
ct_length.awk	472 B	lrwxr-xr-x	2020-09-19 14:49:10	Edit Download recursive recursive
decl.awk	3.19 KB	lrwxr-xr-x	2020-09-19 13:46:31	Edit Download recursive recursive
deps.awk	1.82 KB	lrwxr-xr-x	2023-10-31 22:58:49	Edit Download recursive recursive
eatc.awk	635 B	lrwxr-xr-x	2020-09-19 11:51:23	Edit Download recursive recursive
gdecl.awk	2.88 KB	lrwxr-xr-x	2020-09-19 14:04:25	Edit Download recursive recursive
hcal	13.97 KB	lrwxr-xr-x	2020-09-24 22:05:19	Edit Download recursive recursive
hical	2.89 KB	lrwxr-xr-x	2009-08-21 00:36:34	Edit Download recursive recursive
nocomment.awk	654 B	lrwxr-xr-x	2020-09-19 13:02:14	Edit Download recursive recursive
primes.awk	1.03 KB	lrwxr-xr-x	2008-09-09 20:52:55	Edit Download recursive recursive
qsort.awk	1.11 KB	lrwxr-xr-x	2020-09-19 14:20:45	Edit Download recursive recursive

Directory Contents