Initial data commit

Task/Mastermind/SQL/mastermind.sql

@@ -0,0 +1,70 @@
+    -- Create Table
+    -- Distinct combination
+    --- R :Red, B :Blue, G: Green, V: Violet, O: Orange, Y: Yellow
+    DROP TYPE IF EXISTS color cascade;CREATE TYPE color AS ENUM ('R', 'B', 'G', 'V', 'O', 'Y');
+
+    DROP TABLE IF EXISTS guesses cascade ; CREATE TABLE guesses (
+        first color,
+        second color,
+        third color ,
+        fourth color
+    );
+    CREATE TABLE mastermind () inherits (guesses);
+
+    INSERT INTO mastermind values ('G', 'B', 'R', 'V');
+
+
+    INSERT INTO guesses values ('Y', 'Y', 'B', 'B');
+    INSERT INTO guesses values ('V', 'R', 'R', 'Y');
+    INSERT INTO guesses values ('G', 'V', 'G', 'Y');
+    INSERT INTO guesses values ('R', 'R', 'V', 'Y');
+    INSERT INTO guesses values ('B', 'R', 'G', 'V');
+    INSERT INTO guesses values ('G', 'B', 'R', 'V');
+
+
+    --- Matches Black
+    CREATE OR REPLACE FUNCTION check_black(guesses,  mastermind) RETURNS integer AS $$
+        SELECT (
+            ($1.first  = $2.first)::int +
+            ($1.second  = $2.second)::int +
+            ($1.third = $2.third)::int +
+            ($1.fourth = $2.fourth)::int
+        );
+    $$ LANGUAGE SQL;
+
+    --- Matches White
+    CREATE OR REPLACE FUNCTION check_white(guesses,  mastermind) RETURNS integer AS $$
+        SELECT (
+            case when ($1.first = $2.first) then 0 else 0 end +
+            case when ($1.second = $2.second) then 0 else 0 end +
+            case when ($1.third = $2.third)  then 0 else 0 end +
+            case when ($1.fourth = $2.fourth) then 0 else 0 end +
+            case when ($1.first != $2.first) then (
+                    $1.first = $2.second or
+                    $1.first = $2.third or
+                    $1.first = $2.fourth
+                    )::int else 0 end +
+            case when ($1.second != $2.second) then (
+                    $1.second = $2.first or
+                    $1.second = $2.third or
+                    $1.second = $2.fourth
+                    )::int else 0 end +
+            case when ($1.third != $2.third) then (
+                    $1.third = $2.first or
+                    $1.third = $2.second or
+                    $1.third = $2.fourth
+                    )::int else 0 end +
+            case when ($1.fourth != $2.fourth) then (
+                    $1.fourth = $2.first or
+                    $1.fourth = $2.second or
+                    $1.fourth = $2.third
+                    )::int else 0 end
+        ) from guesses
+    $$ LANGUAGE SQL;
+
+
+
+    SELECT guesses,
+           check_black(guesses.*, mastermind.*),
+           check_white(guesses.*, mastermind.*)
+        FROM   guesses, mastermind