From 1ec78ddc196cd94ca8f197351bd0ad15bb18a0d0 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 17 Oct 2022 12:25:37 +0200
Subject: Task 1 plpgsql

---
 challenge-187/luca-ferrari/postgresql/ch-1.sql | 43 ++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100644 challenge-187/luca-ferrari/postgresql/ch-1.sql

diff --git a/challenge-187/luca-ferrari/postgresql/ch-1.sql b/challenge-187/luca-ferrari/postgresql/ch-1.sql
new file mode 100644
index 0000000000..7398ebc930
--- /dev/null
+++ b/challenge-187/luca-ferrari/postgresql/ch-1.sql
@@ -0,0 +1,43 @@
+-- Perl Weekly Challenge 187
+-- Task 1
+
+CREATE SCHEMA IF NOT EXISTS pwc187;
+
+CREATE OR REPLACE FUNCTION
+pwc187.task1_plpgsql( foo_start date, foo_end date, bar_start date, bar_end date )
+RETURNS int
+AS $CODE$
+DECLARE
+	day_start date;
+	day_end date;
+	day_count int := 0;
+BEGIN
+
+	IF NOT (foo_start, foo_end) OVERLAPS (bar_start, bar_end) THEN
+	   RETURN 0;
+	END IF;
+
+	IF foo_start > bar_start THEN
+	   day_start := bar_start;
+	ELSE
+	   day_start := foo_start;
+	END IF;
+
+	IF foo_end > bar_start THEN
+	   day_end := foo_end;
+	ELSE
+	  day_end := bar_end;
+        END IF;
+
+	WHILE day_start <= day_end LOOP
+	      IF day_start >= foo_start AND day_start <= foo_end AND day_start >= bar_start AND day_end <= bar_end THEN
+	      	 day_count := day_count + 1 ;
+              END IF;
+	      day_start := day_start + 1;
+	END LOOP;
+
+	RETURN day_count;
+
+END
+$CODE$
+LANGUAGE plpgsql;
-- 
cgit