🦘

analysis/analyze.py

@@ -14,7 +14,7 @@ def ngram_freq(corpus: list[str], n: int) -> dict[str, int]:
     freq = {}
     for line in corpus:
         for i in range(len(line) - n + 1):
-            ngram = line[i:i+n]
+            ngram = line[i : i + n]
             if ngram not in freq:
                 freq[ngram] = 0
             freq[ngram] += 1
@@ -23,7 +23,7 @@ def ngram_freq(corpus: list[str], n: int) -> dict[str, int]:
 
 
 def particles_analysis(corpus: list[str]) -> dict[str, list[int]]:
-    particles = "ᵃᶜᵈᵉᵋᶠᶦᵏˡᵐᵚᵑᵒᵖʳᵗʷˣᶻᶾ"
+    particles = "ᵃᶜᵈᵉᵋᶠʰᶦʲᴶᵏˡᵐᵚᵑᵒᵖʳᵗʷˣʸᶻᶾ"
     freq = {}
 
     for particle in particles:
@@ -53,6 +53,6 @@ def particles_analysis(corpus: list[str]) -> dict[str, list[int]]:
 
 particles = particles_analysis(corpus)
 with open(output_dir / "particles.txt", "w") as f:
-    f.write("particle : with \"{\" / total\n")
+    f.write('particle : with "{" / total\n')
     for particle, count in particles.items():
         f.write(f"{particle} : {count[0]} / {count[1]}\n")

analysis/corpus.txt

@@ -351,3 +351,5 @@ o$2ᵑ{Jĭᵃjᵈ↔,}=
 +ʸ{CU$x3+þç++;ž¿Ø?
 *∙Ɗᴶɗ=
 ĕ∏Hᵗf
+R~3DᵉlhÖ*ž
+3D3UXᶜi3bᵖ≥

analysis/freq_1gram.txt

@@ -6,20 +6,21 @@ $ : 56
 ∑ : 39
 ᵐ : 35
 → : 33
-R : 32
-* : 31
+R : 33
+* : 32
 ← : 30
 x : 30
 } : 28
 - : 26
 1 : 25
 j : 25
 o : 24
+ᵉ : 23
 ç : 23
 2 : 23
-ᵉ : 22
 , : 22
 ↕ : 22
+3 : 21
 Ť : 21
 # : 20
 ᵒ : 20
@@ -28,12 +29,11 @@ o : 24
 a : 19
 ĭ : 18
 u : 18
-3 : 17
+ᵖ : 18
+~ : 18
 S : 17
+l : 17
 p : 17
-ᵖ : 17
-~ : 17
-l : 16
 ĉ : 16
 Ɔ : 15
 Z : 15
@@ -51,11 +51,11 @@ L : 14
 ᵃ : 13
 ≡ : 13
 ∫ : 13
+ž : 13
 ; : 13
 q : 12
 ½ : 12
 ᶻ : 12
-ž : 12
 Ë : 12
 ± : 12
 ∆ : 12
@@ -71,25 +71,26 @@ J : 11
 ũ : 10
 ˡ : 10
 E : 10
+≥ : 10
 ŋ : 10
 c : 10
 @ : 10
 % : 10
 ᶠ : 10
 N : 10
 O : 10
+i : 10
 z : 10
+ᶜ : 9
 f : 9
 ¬ : 9
-≥ : 9
 ‼ : 9
 ŗ : 9
 ᵗ : 9
 ≈ : 9
-i : 9
+h : 9
 C : 9
 P : 8
-ᶜ : 8
 Ƶ : 8
 ᵚ : 8
 × : 8
@@ -100,7 +101,6 @@ H : 8
 Ø : 8
 ɗ : 8
 ƒ : 8
-h : 8
 4 : 8
 ¿ : 8
 ᵈ : 8
@@ -115,6 +115,7 @@ h : 8
 ¢ : 7
 ᴶ : 6
 ᵏ : 6
+Ö : 6
 ƃ : 6
 Ď : 6
 ≤ : 6
@@ -125,6 +126,7 @@ h : 8
 Ŝ : 6
 ɔ : 6
 Ĩ : 6
+D : 6
 ĕ : 6
 ṁ : 6
 > : 6
@@ -133,11 +135,11 @@ h : 8
 į : 6
 0 : 6
 B : 6
+b : 6
 v : 6
 ƀ : 5
 I : 5
 y : 5
-Ö : 5
 d : 5
 Ç : 5
 ř : 5
@@ -150,17 +152,17 @@ M : 5
 8 : 5
 √ : 5
 5 : 5
+U : 5
 ᵋ : 5
-b : 5
 A : 5
 ĝ : 4
 Ł : 4
 Ḟ : 4
 k : 4
 F : 4
 ƥ : 4
-D : 4
 7 : 4
+X : 4
 ÷ : 4
 þ : 4
 § : 4
@@ -169,13 +171,11 @@ D : 4
 ˣ : 4
 ň : 4
 Ṗ : 4
-U : 4
 ʸ : 4
 Ṃ : 3
 ḟ : 3
 Y : 3
 T : 3
-X : 3
 ƶ : 3
 ≠ : 3
 ï : 3

analysis/freq_2gram.txt

@@ -47,8 +47,10 @@ Rᶠ : 3
 :← : 3
 đ+ : 3
 x: : 3
+R~ : 3
 ĉʲ : 3
 $L : 3
+3D : 3
 {C : 3
 ᵐ{ : 3
 {x : 3
@@ -124,7 +126,6 @@ xᵐ : 2
 :Ĭ : 2
 -± : 2
 ∙ž : 2
-R~ : 2
 ʲ{ : 2
 {ĭ : 2
 ĭ+ : 2
@@ -251,7 +252,9 @@ rj : 2
 ←_ : 2
 ŧĉ : 2
 :, : 2
+ᵉl : 2
 {R : 2
+3b : 2
 @j : 2
 Ø? : 2
 ±ĉ : 2
@@ -430,7 +433,6 @@ $~ : 1
 ¦} : 1
 F: : 1
 rG : 1
-3D : 1
 D← : 1
 P∑ : 1
 ,o : 1
@@ -1108,7 +1110,6 @@ tᵋ : 1
 $Ĉ : 1
 ~p : 1
 pᵉ : 1
-ᵉl : 1
 oÐ : 1
 Ðũ : 1
 *Ḟ : 1
@@ -1120,7 +1121,6 @@ oÐ : 1
 cƀ : 1
 ƀ_ : 1
 =3 : 1
-3b : 1
 Ňƒ : 1
 ƒ$ : 1
 $ƥ : 1
@@ -1439,3 +1439,17 @@ x3 : 1
 ĕ∏ : 1
 ∏H : 1
 Hᵗ : 1
+~3 : 1
+Dᵉ : 1
+lh : 1
+hÖ : 1
+Ö* : 1
+*ž : 1
+D3 : 1
+3U : 1
+UX : 1
+Xᶜ : 1
+ᶜi : 1
+i3 : 1
+bᵖ : 1
+ᵖ≥ : 1

analysis/freq_3gram.txt

@@ -1442,3 +1442,20 @@ x3+ : 1
 ĕ∏H : 1
 ∏Hᵗ : 1
 Hᵗf : 1
+R~3 : 1
+~3D : 1
+3Dᵉ : 1
+Dᵉl : 1
+ᵉlh : 1
+lhÖ : 1
+hÖ* : 1
+Ö*ž : 1
+3D3 : 1
+D3U : 1
+3UX : 1
+UXᶜ : 1
+Xᶜi : 1
+ᶜi3 : 1
+i3b : 1
+3bᵖ : 1
+bᵖ≥ : 1

analysis/freq_4gram.txt

@@ -1166,3 +1166,18 @@ x3+þ : 1
 Ɗᴶɗ= : 1
 ĕ∏Hᵗ : 1
 ∏Hᵗf : 1
+R~3D : 1
+~3Dᵉ : 1
+3Dᵉl : 1
+Dᵉlh : 1
+ᵉlhÖ : 1
+lhÖ* : 1
+hÖ*ž : 1
+3D3U : 1
+D3UX : 1
+3UXᶜ : 1
+UXᶜi : 1
+Xᶜi3 : 1
+ᶜi3b : 1
+i3bᵖ : 1
+3bᵖ≥ : 1

analysis/freq_5gram.txt

@@ -912,3 +912,16 @@ x3+þç : 1
 *∙Ɗᴶɗ : 1
 ∙Ɗᴶɗ= : 1
 ĕ∏Hᵗf : 1
+R~3Dᵉ : 1
+~3Dᵉl : 1
+3Dᵉlh : 1
+DᵉlhÖ : 1
+ᵉlhÖ* : 1
+lhÖ*ž : 1
+3D3UX : 1
+D3UXᶜ : 1
+3UXᶜi : 1
+UXᶜi3 : 1
+Xᶜi3b : 1
+ᶜi3bᵖ : 1
+i3bᵖ≥ : 1

analysis/particles.txt

@@ -1,21 +1,25 @@
 particle : with "{" / total
 ᵈ : 0 / 8
-ᵉ : 0 / 22
+ᵉ : 0 / 23
 ʳ : 0 / 5
 ˣ : 0 / 4
 ᶾ : 0 / 1
 ᶻ : 1 / 12
 ᵐ : 3 / 35
-ᶜ : 1 / 8
+ᶜ : 1 / 9
 ᵃ : 2 / 13
 ᵋ : 1 / 5
 ᵒ : 4 / 20
 ᵗ : 2 / 9
 ᵚ : 2 / 8
+ᴶ : 2 / 6
+ʲ : 2 / 5
+ʰ : 1 / 2
 ᵑ : 6 / 11
-ᵖ : 11 / 17
+ᵖ : 11 / 18
 ᵏ : 4 / 6
 ᶠ : 7 / 10
+ʸ : 3 / 4
 ˡ : 8 / 10
 ʷ : 9 / 11
 ᶦ : 12 / 13

test/Eval.hs

@@ -3813,3 +3813,26 @@ testEval = describe "Solutions to Code Golf Stack Exchange challenges" $ do
             , ("[[\"g\",1],[\"g\",1],[\"g\",1],[\"g\",1],[\"g\",1],[\"g\",1],[\"g\",1]]", Check True)
             , ("[[\"a\",0],[\"a\",1],[\"a\",0],[\"g\",1],[\"g\",0],[\"g\",1]]", Check True)
             ]
+    describe "q274924: Shift right by half a trit" $ do
+        specEval
+            "R~3DᵉlhÖ*ž"
+            [ ("0", Count 0)
+            , ("1", Count 0)
+            , ("2", Count 1)
+            , ("26", Count 17)
+            , ("27", Count 18)
+            , ("53", Count 26)
+            , ("54", Count 27)
+            , ("1337", Count 688)
+            ]
+        specEval
+            "3D3UXᶜi3bᵖ≥"
+            [ ("0", first_ "0")
+            , ("1", first_ "0")
+            , ("2", first_ "1")
+            , ("26", first_ "17")
+            , ("27", first_ "18")
+            , ("53", first_ "26")
+            , ("54", first_ "27")
+            , ("1337", first_ "688")
+            ]