Eratostenovo síto na testování prvočíselnosti pomocí polí.

#!/bin/bash
n=1000

#program vypise vsechna prvocisla mensi nebo rovna n.

#inicializace pole
for i in `seq 0 $n`
 do
  pole[i]=1
 done


for i in `seq 2 $n`
 do
 if [ ${pole[$i]} -eq 1 ]
 #je to prvocislo
  then
  i2=`expr 2 * $i`
  for k in `seq $i2 $i $n`
   do
   #v cyklu skrtame jeho nasobky
   pole[$k]=0
   done
 fi
 done


for i in `seq 2 $n`
do
 if [ ${pole[$i]} -eq 1 ]
 then
 echo $i
 fi
done