Task 2 plpgsql

1 files changed, 40 insertions, 0 deletions

diff --git a/challenge-198/luca-ferrari/postgresql/ch-2.sql b/challenge-198/luca-ferrari/postgresql/ch-2.sql
new file mode 100644
index 0000000000..7367757a00
--- /dev/null
+++ b/challenge-198/luca-ferrari/postgresql/ch-2.sql
@@ -0,0 +1,40 @@
+CREATE SCHEMA IF NOT EXISTS pwc198;
+
+CREATE OR REPLACE FUNCTION
+pwc198.is_prime( l int )
+RETURNS bool
+AS $CODE$
+DECLARE
+	i int;
+BEGIN
+	FOR i IN  2 .. l - 1 LOOP
+	    IF l % i = 0 THEN
+	       RETURN FALSE;
+	    END IF;
+	END LOOP;
+
+	RETURN TRUE;
+END
+$CODE$
+LANGUAGE plpgsql;
+
+
+
+CREATE OR REPLACE FUNCTION
+pwc198.task2_plpgsql( l int )
+RETURNS int
+AS $CODE$
+DECLARE
+	c int := 0;
+	i int;
+BEGIN
+	FOR i IN 2 .. l LOOP
+	    IF pwc198.is_prime( i ) THEN
+	       c := c + 1;
+	    END IF;
+	END LOOP;
+
+	RETURN c;
+END
+$CODE$
+LANGUAGE plpgsql;