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