Ejemplo en Haskell de forma declarativa:
divisores :: Int -> [Int]
divisores n = [x | x <- [1..n], n `rem` x == 0]
primo :: Int -> Bool
primo n | divisores (abs n) == [1,abs n] = True
| n == 1 = True
| otherwise = False
str :: Bool -> [Char]
str v | v==True = "Cierto"
| otherwise = "Falso"
main = putStrLn ( str(primo 179))
Ejemplo en Java de forma imperativa.
public class Primo{
static boolean esPrimo (int n){
int i;
for (i=2;i< n-1;i++)
if ( (n % i) == 0) return false;
return true;
}
public static void main(String []args){
if (esPrimo(179))
System.out.println("Cierto");
else
System.out.println("Falso");
}
}