Erratic Deck, bump version

Author: MathIsFun0

filters/double_legendary.cl

@@ -1,4 +1,4 @@
-// Searches for a first shop buffoon pack with the four jokers that give increased mult to suits.
+// Searches for a first shop with two packs that give legendary jokers
 #include "./lib/immolate.cl"
 long filter(instance* inst) {
     int score = 0;

filters/erratic_flush_five.cl

@@ -0,0 +1,16 @@
+// Searches for an Erratic Deck seed with lots of an exact card
+#include "./lib/immolate.cl"
+long filter(instance* inst) {
+    int scores[52];
+    for (int i = 0; i < 52; i++) scores[i] = 0;
+    item deck[52];
+    init_erratic_deck(inst, deck);
+    for (int i = 0; i < 52; i++) {
+       scores[deck[i]-C_2]++;
+    }
+    int score = scores[0];
+    for (int i = 1; i < 52; i++) {
+        if (scores[i] > score) score = scores[i];
+    }
+    return score;
+}

filters/erratic_ranks.cl

@@ -0,0 +1,16 @@
+// Searches for an Erratic Deck seed with lots of a rank
+#include "./lib/immolate.cl"
+long filter(instance* inst) {
+    int16 scores;
+    for (int i = 0; i < 13; i++) scores[i] = 0;
+    item deck[52];
+    init_erratic_deck(inst, deck);
+    for (int i = 0; i < 52; i++) {
+       scores[rank(deck[i])-_2]++;
+    }
+    int score = scores[0];
+    for (int i = 1; i < 13; i++) {
+        if (scores[i] > score) score = scores[i];
+    }
+    return score;
+}

filters/erratic_suits.cl

@@ -0,0 +1,19 @@
+// Searches for an Erratic Deck seed with lots of a type of suit
+#include "./lib/immolate.cl"
+long filter(instance* inst) {
+    int4 scores;
+    for (int i = 0; i < 4; i++) scores[i] = 0;
+    item deck[52];
+    init_erratic_deck(inst, deck);
+    for (int i = 0; i < 52; i++) {
+        if (suit(deck[i]) == Spades) scores[0]++;
+        if (suit(deck[i]) == Diamonds) scores[1]++;
+        if (suit(deck[i]) == Clubs) scores[2]++;
+        if (suit(deck[i]) == Hearts) scores[3]++;
+    }
+    int score = scores[0];
+    if (scores[1] > score) score = scores[1];
+    if (scores[2] > score) score = scores[2];
+    if (scores[3] > score) score = scores[3];
+    return score;
+}

immolate.c

@@ -2,7 +2,7 @@
 int main(int argc, char **argv) {
 
     // Print version
-    printf_s("Immolate Beta v1.0.0k.0\n");
+    printf_s("Immolate Beta v1.0.0L.0\n");
 
     // Handle CLI arguments
     unsigned int platformID = 0;

lib/cache.cl

@@ -30,6 +30,7 @@ typedef enum RandomType {
     R_Voucher,
     R_Voucher_Tag,
     R_Soul,
+    R_Erratic,
     R_END
 } rtype;
 
@@ -96,6 +97,7 @@ text type_str(int x) {
         case R_Voucher:                  return init_text("Voucher", 7);
         case R_Voucher_Tag:              return init_text("Voucher_fromtag", 15);
         case R_Soul:                     return init_text("soul_", 5);
+        case R_Erratic:                  return init_text("erratic", 7);
         default:                         return init_text("", 0);
     }
 }

lib/functions.cl

@@ -355,4 +355,10 @@ item next_voucher_from_tag(instance* inst, int ante) {
     }
     return i;
 }
-#endif
+#endif
+
+void init_erratic_deck(instance* inst, item out[]) {
+    for (int i = 0; i < 52; i++) {
+        out[i] = randchoice_simple(inst, R_Erratic, CARDS);
+    }
+}

search.cl

@@ -1,4 +1,4 @@
-#include "./filters/double_legendary.cl"
+#include "./filters/erratic_flush_five.cl"
 
 // Search
 __kernel void search(char8 starting_seed, long num_seeds, long filter_cutoff) {