blob: 64a871f0279e69a5ae9c021584df80db40097b95 (
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
|
--
-- Perl Weekly Challenge 280
-- Task 2
-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-280>
--
CREATE SCHEMA IF NOT EXISTS pwc280;
CREATE OR REPLACE FUNCTION
pwc280.task2_plpgsql( s text )
RETURNS int
AS $CODE$
WITH searching_for AS (
SELECT v::text, row_number() over () as r
FROM regexp_split_to_table( s, '[|]' ) v
)
, data_parts AS (
SELECT v
FROM searching_for
WHERE r % 2 <> 0
)
SELECT sum( length( v ) - length( replace( v, '*', '' ) ) )
FROM data_parts;
$CODE$
LANGUAGE sql;
|
