Save experimental solutions 🎉

Nothing is shown on /rankings yet but it's a start :-)

Updates code-golf#893

routes/hole.go

@@ -56,7 +56,7 @@ func holeGET(w http.ResponseWriter, r *http.Request) {
 
 	golfer := session.Golfer(r)
 
-	if golfer != nil && data.Hole.Experiment == 0 {
+	if golfer != nil {
 		// Fetch all the code per lang.
 		rows, err := session.Database(r).Query(
 			`SELECT code, lang, scoring

routes/legacy_api.go

@@ -134,6 +134,24 @@ func solutionPOST(w http.ResponseWriter, r *http.Request) {
 				out.Cheevos = append(out.Cheevos, *c)
 			}
 		}
+
+		// TODO Eventually save exp langs too.
+		if experimentalHole && !experimentalLang {
+			if _, err := db.ExecContext(
+				r.Context(),
+				`SELECT save_solution(
+				            bytes   := octet_length($1),
+				            chars   := char_length($1),
+				            code    := $1,
+				            hole    := $2,
+				            lang    := $3,
+				            user_id := $4
+				        )`,
+				in.Code, in.Hole, in.Lang, golfer.ID,
+			); err != nil {
+				panic(err)
+			}
+		}
 	} else if pass && golfer != nil && !experimental {
 		if err := db.QueryRowContext(
 			r.Context(),

sql/c-other-functions.sql

@@ -255,7 +255,11 @@ BEGIN
            AND solutions.scoring = 'chars';
     END IF;
 
-    ret.earned := earn_cheevos(hole, lang, user_id);
+    -- Only earn cheevos if the hole isn't experimental.
+    SELECT experiment = 0 INTO found FROM holes WHERE id = hole;
+    IF found THEN
+        ret.earned := earn_cheevos(hole, lang, user_id);
+    END IF;
 
     RETURN ret;
 END;