diff options
| author | Luca Ferrari <fluca1978@gmail.com> | 2021-11-15 10:20:34 +0100 |
|---|---|---|
| committer | Luca Ferrari <fluca1978@gmail.com> | 2021-11-15 10:20:34 +0100 |
| commit | 321a251327a238ecda20b4aa6525064a71af8558 (patch) | |
| tree | db922f18daf22eb3b52c5cd3bb1ad885c106fff9 | |
| parent | ca01e3a95b0f227ba2b9322e8271e86e18bf13f6 (diff) | |
| download | perlweeklychallenge-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.sql | 18 |
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; |
