blob: bbc11aae44f31295f578c9c2d53aac1b2dddd0dd (
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
|
-- Perl Weekly Challenge 163
-- Task 1
CREATE SCHEMA IF NOT EXISTS pwc163;
CREATE OR REPLACE FUNCTION
pwc163.task1_plperl( int[] )
RETURNS int
AS $CODE$
my ( $n ) = @_;
my $sum = 0;
for my $index ( 1 .. scalar( @$n ) - 1 ) {
my ( $a, $b ) = ( sprintf( '%03b', $n->[ $index - 1 ] ), sprintf( '%03b', $n->[ $index ] ) );
my $result = $a & $b;
elog( DEBUG, "Nums $n->[ $index - 1 ] and $n->[ $index ] => $a and $b => $result" );
$sum += oct( '0b'. $result );
}
my ( $a, $b ) = ( sprintf( '%03b', $n->[ 0 ] ), sprintf( '%03b', $n->[ -1 ] ) );
my $result = $a & $b;
$sum += oct( '0b'. $result );
return $sum;
$CODE$
LANGUAGE plperl;
|
