blob: e96464bc117a535218c9506d1f074ce0f97667f4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
-- Perl Weekly Challenge 197
-- Task 1
CREATE SCHEMA IF NOT EXISTS pwc197;
CREATE OR REPLACE FUNCTION
pwc197.task1_plpgsql( l int[] )
RETURNS int[]
AS $CODE$
DECLARE
i int;
v int[];
zeros int := 0;
BEGIN
FOREACH i IN ARRAY l LOOP
IF i = 0 THEN
zeros := zeros + 1;
CONTINUE;
END IF;
v := v || i;
END LOOP;
WHILE zeros > 0 LOOP
v := v || 0;
zeros := zeros - 1;
END LOOP;
RETURN v;
END
$CODE$
LANGUAGE plpgsql;
|
