aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLuca Ferrari <fluca1978@gmail.com>2021-11-15 10:20:34 +0100
committerLuca Ferrari <fluca1978@gmail.com>2021-11-15 10:20:34 +0100
commit321a251327a238ecda20b4aa6525064a71af8558 (patch)
treedb922f18daf22eb3b52c5cd3bb1ad885c106fff9
parentca01e3a95b0f227ba2b9322e8271e86e18bf13f6 (diff)
downloadperlweeklychallenge-club-321a251327a238ecda20b4aa6525064a71af8558.tar.gz
perlweeklychallenge-club-321a251327a238ecda20b4aa6525064a71af8558.tar.bz2
perlweeklychallenge-club-321a251327a238ecda20b4aa6525064a71af8558.zip
Task 1 done in plpgsql
-rw-r--r--challenge-139/luca-ferrari/postgresql/ch-1.sql18
1 files changed, 18 insertions, 0 deletions
diff --git a/challenge-139/luca-ferrari/postgresql/ch-1.sql b/challenge-139/luca-ferrari/postgresql/ch-1.sql
new file mode 100644
index 0000000000..9685ec2948
--- /dev/null
+++ b/challenge-139/luca-ferrari/postgresql/ch-1.sql
@@ -0,0 +1,18 @@
+CREATE OR REPLACE FUNCTION
+ f_jort_sort( n int[] )
+ RETURNS int
+AS $CODE$
+ DECLARE
+ n_ordered int[];
+BEGIN
+ SELECT ( ARRAY( SELECT unnest( n ) ORDER BY 1 ) )
+ INTO n_ordered;
+
+ IF array_to_string( n, '|' ) = array_to_string( n_ordered, '|' ) THEN
+ RETURN 1;
+ ELSE
+ RETURN 0;
+ END IF;
+END
+ $CODE$
+ LANGUAGE plpgsql;