From 2189c455bdb5ebe1c52a1a343b0ff2f9c11479b4 Mon Sep 17 00:00:00 2001 From: AlephAlpha Date: Tue, 3 Dec 2024 13:49:40 +0800 Subject: [PATCH] :microbe: --- analysis/corpus.txt | 4 +++ analysis/freq_1gram.txt | 60 ++++++++++++++++++++--------------------- analysis/freq_2gram.txt | 44 +++++++++++++++++++++--------- analysis/freq_3gram.txt | 31 ++++++++++++++++++--- analysis/freq_4gram.txt | 26 +++++++++++++++++- analysis/freq_5gram.txt | 22 +++++++++++++++ analysis/particles.txt | 4 +-- test/Eval.hs | 36 +++++++++++++++++++++++++ 8 files changed, 178 insertions(+), 49 deletions(-) diff --git a/analysis/corpus.txt b/analysis/corpus.txt index cce92b9..a3134b4 100644 --- a/analysis/corpus.txt +++ b/analysis/corpus.txt @@ -103,6 +103,7 @@ pƆᵗf poil ᵏ{ᵉ+→%Z ᵏ{ʲĝ= +↕¦ ˡ{C4+>‼ RḞŤ Ď∑ @@ -359,3 +360,6 @@ R~3DᵉlhÖ*ž Ṗ@ᵐ~oũ ↔SĦaõ@ ᵑʰ→::∙$ṁ7*+Å +Ƃ;↔=#Ë= +↕x-±→Ħ-ž +2ᵚ~ᵖ{:∫PÄx--v%Ţ≡¿$L diff --git a/analysis/freq_1gram.txt b/analysis/freq_1gram.txt index aac5562..8fbf4ab 100644 --- a/analysis/freq_1gram.txt +++ b/analysis/freq_1gram.txt @@ -1,41 +1,41 @@ -{ : 83 -$ : 57 -= : 56 -: : 52 +{ : 84 +$ : 58 += : 58 +: : 53 + : 47 ∑ : 39 ᵐ : 36 -→ : 34 +→ : 35 * : 33 R : 33 +x : 32 ← : 30 -x : 30 +- : 30 } : 28 -- : 26 1 : 25 o : 25 j : 25 ᵉ : 24 +↕ : 24 +2 : 24 ç : 23 -2 : 23 , : 22 -↕ : 22 Ť : 22 +↔ : 22 +# : 21 3 : 21 -↔ : 21 -# : 20 +~ : 21 ᵒ : 20 -~ : 20 đ : 19 +ᵖ : 19 S : 18 ĭ : 18 u : 18 -ᵖ : 18 a : 18 p : 17 +Ƃ : 16 l : 16 ĉ : 16 -Ƃ : 15 Ɔ : 15 Z : 15 t : 15 @@ -43,71 +43,72 @@ t : 15 Ṁ : 15 Ð : 15 ∙ : 15 +L : 15 " : 14 +≡ : 14 +∫ : 14 +ž : 14 Ň : 14 -L : 14 +; : 14 ᶦ : 13 < : 13 q : 13 ᵃ : 13 -≡ : 13 -∫ : 13 -ž : 13 -; : 13 +Ë : 13 +± : 13 ½ : 12 +Ţ : 12 ᶻ : 12 ᵑ : 12 ? : 12 -Ë : 12 @ : 12 -± : 12 ∆ : 12 _ : 12 ʷ : 11 ũ : 11 ˡ : 11 -Ţ : 11 Q : 11 r : 11 +% : 11 ∏ : 11 J : 11 E : 10 ≥ : 10 ŋ : 10 c : 10 -% : 10 ᶠ : 10 N : 10 h : 10 O : 10 i : 10 z : 10 +P : 9 ᶜ : 9 f : 9 +ᵚ : 9 ¬ : 9 ‼ : 9 +Ħ : 9 +¦ : 9 ŗ : 9 ᵗ : 9 ≈ : 9 C : 9 -P : 8 +¿ : 9 Ƶ : 8 -ᵚ : 8 × : 8 ů : 8 H : 8 ∕ : 8 £ : 8 +Ä : 8 Ø : 8 ɗ : 8 -Ħ : 8 -¦ : 8 ƒ : 8 4 : 8 -¿ : 8 ᵈ : 8 +v : 8 ᴶ : 7 -Ä : 7 / : 7 Ĭ : 7 õ : 7 @@ -115,7 +116,6 @@ H : 8 ṁ : 7 ä : 7 Ř : 7 -v : 7 ¢ : 7 ᵏ : 6 Ö : 6 diff --git a/analysis/freq_2gram.txt b/analysis/freq_2gram.txt index 96a81ef..8a6c2d5 100644 --- a/analysis/freq_2gram.txt +++ b/analysis/freq_2gram.txt @@ -1,11 +1,11 @@ ᶦ{ : 12 -ᵖ{ : 11 +ᵖ{ : 12 ʷ{ : 9 ˡ{ : 9 ᶠ{ : 7 {$ : 6 ᵑ{ : 6 -{: : 5 +{: : 6 Ťđ : 5 ↕= : 4 *→ : 4 @@ -13,6 +13,7 @@ £E : 4 Ɔž : 4 {ᵉ : 4 +$L : 4 1Ĩ : 4 ᵏ{ : 4 :∙ : 4 @@ -21,6 +22,7 @@ xŘ : 4 ↕ũ : 4 Ňᵖ : 4 +x- : 4 aş : 4 S= : 3 {Ƶ : 3 @@ -40,6 +42,7 @@ $ᵑ : 3 Ø= : 3 1c : 3 →r : 3 +2ᵚ : 3 Ňŧ : 3 Rᶠ : 3 1% : 3 @@ -48,10 +51,11 @@ Rᶠ : 3 :← : 3 đ+ : 3 x: : 3 +-± : 3 R~ : 3 ĉʲ : 3 -$L : 3 3D : 3 +;↔ : 3 {C : 3 ᵐ{ : 3 {x : 3 @@ -72,6 +76,7 @@ x→ : 3 *+ : 3 +$ : 3 ᴶ{ : 3 +≡¿ : 3 *$ : 3 #← : 3 }a : 3 @@ -108,7 +113,6 @@ $ŧ : 2 Ɗj : 2 cɗ : 2 ᵐĦ : 2 -2ᵚ : 2 ʳ× : 2 Y$ : 2 $Ĭ : 2 @@ -126,7 +130,6 @@ xᵐ : 2 +Å : 2 ᶜt : 2 :Ĭ : 2 --± : 2 ∙ž : 2 ʲ{ : 2 {ĭ : 2 @@ -141,8 +144,9 @@ xᵐ : 2 :E : 2 E∑ : 2 o; : 2 -;↔ : 2 +↔= : 2 ᵐh : 2 +-ž : 2 ᵐ~ : 2 *4 : 2 +→ : 2 @@ -178,6 +182,7 @@ qŤ : 2 N, : 2 Z: : 2 ½$ : 2 +Ţ≡ : 2 oĉ : 2 oĭ : 2 ĉ# : 2 @@ -190,6 +195,8 @@ $đ : 2 _= : 2 {v : 2 -ň : 2 +ᵚ~ : 2 +~ᵖ : 2 0* : 2 $ᶻ : 2 o↔ : 2 @@ -229,13 +236,11 @@ ut : 2 ĭ? : 2 {* : 2 ᵃ{ : 2 -x- : 2 ŋ+ : 2 +} : 2 {ᵈ : 2 ᵉh : 2 hl : 2 -≡¿ : 2 2Š : 2 }- : 2 $B : 2 @@ -449,7 +454,6 @@ lµ : 1 YṀ : 1 oᶜ : 1 ᶜ↔ : 1 -↔= : 1 ᵑᵉ : 1 ᵉř : 1 ř^ : 1 @@ -471,7 +475,6 @@ y1 : 1 |∏ : 1 ř∏ : 1 2- : 1 --ž : 1 8* : 1 →√ : 1 R∫ : 1 @@ -499,6 +502,7 @@ il : 1 {ʲ : 1 ʲĝ : 1 ĝ= : 1 +↕¦ : 1 C4 : 1 +> : 1 >‼ : 1 @@ -582,7 +586,6 @@ jĭ : 1 Ðɗ : 1 ɗ$ : 1 $Ĩ : 1 -Ţ≡ : 1 ≡2 : 1 2= : 1 ĉŤ : 1 @@ -658,8 +661,6 @@ $Ð : 1 Ðå : 1 ål : 1 8ᵚ : 1 -ᵚ~ : 1 -~ᵖ : 1 ≈← : 1 ←ň : 1 ň‼ : 1 @@ -1471,3 +1472,20 @@ aõ : 1 ∙$ : 1 ṁ7 : 1 7* : 1 +Ƃ; : 1 +=# : 1 +#Ë : 1 +Ë= : 1 +↕x : 1 +±→ : 1 +→Ħ : 1 +Ħ- : 1 +:∫ : 1 +∫P : 1 +PÄ : 1 +Äx : 1 +-- : 1 +-v : 1 +v% : 1 +%Ţ : 1 +¿$ : 1 diff --git a/analysis/freq_3gram.txt b/analysis/freq_3gram.txt index d475469..9e6d72f 100644 --- a/analysis/freq_3gram.txt +++ b/analysis/freq_3gram.txt @@ -3,6 +3,7 @@ u∕u : 3 ∫Ɔž : 3 Ɔž≥ : 3 }Ø= : 3 +ᵖ{: : 3 }aş : 3 "ᵉĝ : 2 ᵉĝ, : 2 @@ -33,10 +34,11 @@ Sᵖ{ : 2 Þ£E : 2 Ɔ$đ : 2 $đ+ : 2 +ᵚ~ᵖ : 2 +~ᵖ{ : 2 į→ŋ : 2 tut : 2 ᵒ{ᵋ : 2 -ᵖ{: : 2 ŋ+} : 2 ᵉhl : 2 ::∙ : 2 @@ -459,8 +461,6 @@ O:Ŝ : 1 $Ðå : 1 Ðål : 1 8ᵚ~ : 1 -ᵚ~ᵖ : 1 -~ᵖ{ : 1 ᵖ{≈ : 1 {≈← : 1 ≈←ň : 1 @@ -1482,3 +1482,28 @@ $ṁ7 : 1 ṁ7* : 1 7*+ : 1 *+Å : 1 +Ƃ;↔ : 1 +;↔= : 1 +↔=# : 1 +=#Ë : 1 +#Ë= : 1 +↕x- : 1 +x-± : 1 +-±→ : 1 +±→Ħ : 1 +→Ħ- : 1 +Ħ-ž : 1 +2ᵚ~ : 1 +{:∫ : 1 +:∫P : 1 +∫PÄ : 1 +PÄx : 1 +Äx- : 1 +x-- : 1 +--v : 1 +-v% : 1 +v%Ţ : 1 +%Ţ≡ : 1 +Ţ≡¿ : 1 +≡¿$ : 1 +¿$L : 1 diff --git a/analysis/freq_4gram.txt b/analysis/freq_4gram.txt index 489528a..251e3be 100644 --- a/analysis/freq_4gram.txt +++ b/analysis/freq_4gram.txt @@ -11,6 +11,7 @@ :ᵒ&Þ : 2 &Þ£E : 2 Ɔ$đ+ : 2 +ᵚ~ᵖ{ : 2 Ŝoç∆ : 2 ᵉĝ," : 1 ĝ,"ᵉ : 1 @@ -308,7 +309,6 @@ O:Ŝ≡ : 1 ≡$Ðå : 1 $Ðål : 1 8ᵚ~ᵖ : 1 -ᵚ~ᵖ{ : 1 ~ᵖ{≈ : 1 ᵖ{≈← : 1 {≈←ň : 1 @@ -1200,3 +1200,27 @@ SĦaõ : 1 $ṁ7* : 1 ṁ7*+ : 1 7*+Å : 1 +Ƃ;↔= : 1 +;↔=# : 1 +↔=#Ë : 1 +=#Ë= : 1 +↕x-± : 1 +x-±→ : 1 +-±→Ħ : 1 +±→Ħ- : 1 +→Ħ-ž : 1 +2ᵚ~ᵖ : 1 +~ᵖ{: : 1 +ᵖ{:∫ : 1 +{:∫P : 1 +:∫PÄ : 1 +∫PÄx : 1 +PÄx- : 1 +Äx-- : 1 +x--v : 1 +--v% : 1 +-v%Ţ : 1 +v%Ţ≡ : 1 +%Ţ≡¿ : 1 +Ţ≡¿$ : 1 +≡¿$L : 1 diff --git a/analysis/freq_5gram.txt b/analysis/freq_5gram.txt index dd65349..9fd3e7a 100644 --- a/analysis/freq_5gram.txt +++ b/analysis/freq_5gram.txt @@ -940,3 +940,25 @@ SĦaõ@ : 1 ∙$ṁ7* : 1 $ṁ7*+ : 1 ṁ7*+Å : 1 +Ƃ;↔=# : 1 +;↔=#Ë : 1 +↔=#Ë= : 1 +↕x-±→ : 1 +x-±→Ħ : 1 +-±→Ħ- : 1 +±→Ħ-ž : 1 +2ᵚ~ᵖ{ : 1 +ᵚ~ᵖ{: : 1 +~ᵖ{:∫ : 1 +ᵖ{:∫P : 1 +{:∫PÄ : 1 +:∫PÄx : 1 +∫PÄx- : 1 +PÄx-- : 1 +Äx--v : 1 +x--v% : 1 +--v%Ţ : 1 +-v%Ţ≡ : 1 +v%Ţ≡¿ : 1 +%Ţ≡¿$ : 1 +Ţ≡¿$L : 1 diff --git a/analysis/particles.txt b/analysis/particles.txt index f04f686..fb2d515 100644 --- a/analysis/particles.txt +++ b/analysis/particles.txt @@ -10,13 +10,13 @@ particle : with "{" / total ᵃ : 2 / 13 ᵋ : 1 / 5 ᵒ : 4 / 20 +ᵚ : 2 / 9 ᵗ : 2 / 9 -ᵚ : 2 / 8 ʰ : 1 / 3 ʲ : 2 / 5 ᴶ : 3 / 7 ᵑ : 6 / 12 -ᵖ : 11 / 18 +ᵖ : 12 / 19 ᵏ : 4 / 6 ᶠ : 7 / 10 ʸ : 3 / 4 diff --git a/test/Eval.hs b/test/Eval.hs index ef71b51..81ee63f 100644 --- a/test/Eval.hs +++ b/test/Eval.hs @@ -1137,6 +1137,14 @@ testEval = describe "Solutions to Code Golf Stack Exchange challenges" $ do , ("\"0\"", all_ ["1"]) , ("\"012345678910111213141516171819202122232425262728293031323334353637383940\"", all_ ["41"]) ] + describe "q140667: Are the lists divisible?" $ do + specEval + "↕¦" + [ ("[3,4,6] [6,12,8]", Check True) + , ("[1,5,100] [10,5,7]", Check False) + , ("[1,1,1,1] [14,10053,6,9]", Check True) + , ("[7] [12]", Check False) + ] describe "q141949: Count edits accounting for grace period" $ do specEval "ˡ{C4+>‼" @@ -3886,3 +3894,31 @@ testEval = describe "Solutions to Code Golf Stack Exchange challenges" $ do , ("0 [3,2,3]", all_ ["36"]) , ("2 [3,2,1]", all_ ["38"]) ] + describe "q275973: Decide symmetry of fractions" $ do + specEval + "Ƃ;↔=#Ë=" + [ ("0 1", Check True) + , ("3 2", Check True) + , ("9 4", Check True) + , ("15 4", Check True) + , ("51 8", Check True) + , ("1 1", Check False) + , ("2 1", Check False) + , ("1 2", Check False) + , ("5 2", Check False) + , ("1 4", Check False) + ] + describe "q276424: Counting constrained permutations" $ do + specEval + "↕x-±→Ħ-ž" + [ ("3 [1,1,1]", Count 3) + , ("2 [0,2,0]", Count 1) + , ("3 [2,0,1]", Count 1) + , ("4 [2,1,1]", Count 4) + ] + describe "q276795: Walks on a circle" $ do + specEval + "2ᵚ~ᵖ{:∫PÄx--v%Ţ≡¿$L" + [ ("6 2", Count 10) + , ("9 3", Count 22) + ]