From 0900325a7fa810841cd4522e34fb8df7cb5d9cc7 Mon Sep 17 00:00:00 2001 From: AlephAlpha Date: Thu, 9 Nov 2023 06:01:25 +0800 Subject: [PATCH] :tired_face: --- analysis/Ideas.md | 4 ++-- analysis/corpus.txt | 5 +++-- analysis/freq_1gram.txt | 20 ++++++++++---------- analysis/freq_2gram.txt | 18 +++++++++--------- analysis/freq_3gram.txt | 14 +++++++------- analysis/freq_4gram.txt | 15 +++++++-------- analysis/freq_5gram.txt | 17 ++++++++--------- test/Eval.hs | 10 ++++++++-- 8 files changed, 54 insertions(+), 49 deletions(-) diff --git a/analysis/Ideas.md b/analysis/Ideas.md index 260a9fe..4fe244a 100644 --- a/analysis/Ideas.md +++ b/analysis/Ideas.md @@ -168,10 +168,10 @@ LiberationMono 字体所支持的字符列举于[此文件](analysis/LiberationM ### [Hypercube elements](https://codegolf.stackexchange.com/q/70558/9288) ``` -2 \range1 \swap \polyPow +2 \range1 \swap \polPow ``` -- [ ] `\polyPow`：将一个列表视为多项式的系数，求多项式的 n 次幂。感觉不会太常用。 +- [ ] `\polPow`：将一个列表视为多项式的系数，求多项式的 n 次幂。感觉不会太常用。 ## 关于字符串 diff --git a/analysis/corpus.txt b/analysis/corpus.txt index c47595d..d1778f8 100644 --- a/analysis/corpus.txt +++ b/analysis/corpus.txt @@ -110,7 +110,7 @@ R:∙ 258Ɗ+12%→ 12Rᶠ{-Z3¦ RË3÷ -ᵗ{±1Ĩ$BaOđᵒ{≈∑Ƶ +ᵗ{±1Ĩ$þÐaOđᵒ{≈∑Ƶ Ë:ᵒ&Þ£E ŋ∑ũ ĉᵐ∫j @@ -163,6 +163,7 @@ J$ᶻL o↔ĭ∑ä R:E∏ ux→=∕$p= +ĭ$Ĭ ƊsC↔~cɗ- ¢Bx¢E$y↔∫ Jᵖ{ix→ᶻL @@ -293,4 +294,4 @@ Jᵐ{x:ᵒ≈>~}aş# 1D∑ rjŢ ŋ∑Aaṁ -ĕ3¦¿ĭÐŤʳXH"c"I +ĕ<ĭÐŤʳXH"c"I diff --git a/analysis/freq_1gram.txt b/analysis/freq_1gram.txt index 2f23aa2..55ce46e 100644 --- a/analysis/freq_1gram.txt +++ b/analysis/freq_1gram.txt @@ -1,5 +1,5 @@ { : 67 -$ : 48 +$ : 49 : : 45 ∑ : 41 = : 38 @@ -22,18 +22,18 @@ x : 20 o : 18 ↔ : 18 # : 17 -3 : 17 +ĭ : 17 u : 17 2 : 17 -ĭ : 16 +3 : 16 p : 16 ~ : 16 ↕ : 15 l : 15 ᵖ : 15 Ṁ : 15 +Ð : 15 Ƃ : 14 -Ð : 14 S : 13 đ : 13 ∫ : 13 @@ -49,6 +49,7 @@ N : 12 Ɗ : 12 ; : 12 J : 11 +< : 11 Q : 11 ᶻ : 11 ≡ : 11 @@ -56,7 +57,6 @@ Z : 11 ĉ : 11 _ : 11 L : 11 -< : 10 Ţ : 10 ᵃ : 10 r : 10 @@ -94,7 +94,6 @@ f : 7 £ : 7 / : 7 ɗ : 7 -¦ : 7 Ĉ : 7 ∙ : 7 ä : 7 @@ -108,10 +107,10 @@ O : 7 ∕ : 6 Ä : 6 Ø : 6 +Ĭ : 6 +¦ : 6 ş : 6 -¿ : 6 i : 6 -B : 6 ∩ : 6 Ř : 6 į : 6 @@ -126,15 +125,16 @@ d : 5 ≤ : 5 Ç : 5 ʳ : 5 -Ĭ : 5 ɔ : 5 µ : 5 ĕ : 5 +¿ : 5 h : 5 8 : 5 √ : 5 5 : 5 0 : 5 +B : 5 b : 5 A : 5 ŧ : 4 @@ -172,6 +172,7 @@ v : 3 g : 2 ^ : 2 K : 2 +þ : 2 6 : 2 m : 2 ' : 2 @@ -188,7 +189,6 @@ V : 1 ¡ : 1 Ŭ : 1 Ļ : 1 -þ : 1 ṇ : 1 9 : 1 \ : 1 diff --git a/analysis/freq_2gram.txt b/analysis/freq_2gram.txt index ba45e2b..dac4ac3 100644 --- a/analysis/freq_2gram.txt +++ b/analysis/freq_2gram.txt @@ -45,7 +45,6 @@ Rᶠ : 3 R: : 3 :∙ : 3 2R : 3 -$B : 3 xŘ : 3 -_ : 3 u# : 3 @@ -95,6 +94,7 @@ cɗ : 2 2ᵚ : 2 ʳ× : 2 Y$ : 2 +$Ĭ : 2 {1 : 2 %ŗ : 2 ŗ} : 2 @@ -133,7 +133,7 @@ Qƥ : 2 +1 : 2 12 : 2 {- : 2 -3¦ : 2 +Ða : 2 {≈ : 2 Ë: : 2 ᵒ& : 2 @@ -168,6 +168,7 @@ o↔ : 2 ux : 2 x→ : 2 →= : 2 +ĭ$ : 2 ¢B : 2 $y : 2 {Ť : 2 @@ -195,6 +196,7 @@ ut : 2 ŋ+ : 2 {ᵈ : 2 }- : 2 +$B : 2 $L : 2 →ᵉ : 2 RS : 2 @@ -289,7 +291,6 @@ cʳ : 1 1U : 1 Uᶦ : 1 {Y : 1 -$Ĭ : 1 Ĭ} : 1 }ɗ : 1 ˡ∑ : 1 @@ -463,6 +464,7 @@ $∑ : 1 %→ : 1 -Z : 1 Z3 : 1 +3¦ : 1 RË : 1 Ë3 : 1 3÷ : 1 @@ -470,7 +472,8 @@ RË : 1 {± : 1 ±1 : 1 Ĩ$ : 1 -Ba : 1 +$þ : 1 +þÐ : 1 aO : 1 Ođ : 1 đᵒ : 1 @@ -569,7 +572,6 @@ O: : 1 :ᵐ : 1 ≡$ : 1 $Ð : 1 -Ða : 1 ṁl : 1 8ᵚ : 1 ᵚ~ : 1 @@ -983,7 +985,6 @@ $ç : 1 lÐ : 1 ;* : 1 *ṁ : 1 -ĭ$ : 1 $∏ : 1 ∑R : 1 :Ɗ : 1 @@ -1212,9 +1213,8 @@ r$ : 1 D∑ : 1 ∑A : 1 Aa : 1 -ĕ3 : 1 -¦¿ : 1 -¿ĭ : 1 +ĕ< : 1 +<ĭ : 1 Ťʳ : 1 ʳX : 1 XH : 1 diff --git a/analysis/freq_3gram.txt b/analysis/freq_3gram.txt index ebe8dde..c085fce 100644 --- a/analysis/freq_3gram.txt +++ b/analysis/freq_3gram.txt @@ -313,9 +313,10 @@ RË3 : 1 {±1 : 1 ±1Ĩ : 1 1Ĩ$ : 1 -Ĩ$B : 1 -$Ba : 1 -BaO : 1 +Ĩ$þ : 1 +$þÐ : 1 +þÐa : 1 +ÐaO : 1 aOđ : 1 Ođᵒ : 1 đᵒ{ : 1 @@ -463,6 +464,7 @@ x→= : 1 =∕$ : 1 ∕$p : 1 $p= : 1 +ĭ$Ĭ : 1 ƊsC : 1 sC↔ : 1 C↔~ : 1 @@ -1201,10 +1203,8 @@ rjŢ : 1 ŋ∑A : 1 ∑Aa : 1 Aaṁ : 1 -ĕ3¦ : 1 -3¦¿ : 1 -¦¿ĭ : 1 -¿ĭÐ : 1 +ĕ<ĭ : 1 +<ĭÐ : 1 ĭÐŤ : 1 ÐŤʳ : 1 ŤʳX : 1 diff --git a/analysis/freq_4gram.txt b/analysis/freq_4gram.txt index 4e38454..1eae783 100644 --- a/analysis/freq_4gram.txt +++ b/analysis/freq_4gram.txt @@ -213,10 +213,11 @@ RË3÷ : 1 ᵗ{±1 : 1 {±1Ĩ : 1 ±1Ĩ$ : 1 -1Ĩ$B : 1 -Ĩ$Ba : 1 -$BaO : 1 -BaOđ : 1 +1Ĩ$þ : 1 +Ĩ$þÐ : 1 +$þÐa : 1 +þÐaO : 1 +ÐaOđ : 1 aOđᵒ : 1 Ođᵒ{ : 1 đᵒ{≈ : 1 @@ -974,10 +975,8 @@ $ÇƆ/ : 1 ɔ$ᵑ∆ : 1 ŋ∑Aa : 1 ∑Aaṁ : 1 -ĕ3¦¿ : 1 -3¦¿ĭ : 1 -¦¿ĭÐ : 1 -¿ĭÐŤ : 1 +ĕ<ĭÐ : 1 +<ĭÐŤ : 1 ĭÐŤʳ : 1 ÐŤʳX : 1 ŤʳXH : 1 diff --git a/analysis/freq_5gram.txt b/analysis/freq_5gram.txt index 3f9e2b7..6a5828a 100644 --- a/analysis/freq_5gram.txt +++ b/analysis/freq_5gram.txt @@ -141,11 +141,12 @@ Rᶠ{-Z : 1 {-Z3¦ : 1 ᵗ{±1Ĩ : 1 {±1Ĩ$ : 1 -±1Ĩ$B : 1 -1Ĩ$Ba : 1 -Ĩ$BaO : 1 -$BaOđ : 1 -BaOđᵒ : 1 +±1Ĩ$þ : 1 +1Ĩ$þÐ : 1 +Ĩ$þÐa : 1 +$þÐaO : 1 +þÐaOđ : 1 +ÐaOđᵒ : 1 aOđᵒ{ : 1 Ođᵒ{≈ : 1 đᵒ{≈∑ : 1 @@ -766,10 +767,8 @@ $ÇƆ/← : 1 ŗ0ɔ$ᵑ : 1 0ɔ$ᵑ∆ : 1 ŋ∑Aaṁ : 1 -ĕ3¦¿ĭ : 1 -3¦¿ĭÐ : 1 -¦¿ĭÐŤ : 1 -¿ĭÐŤʳ : 1 +ĕ<ĭÐŤ : 1 +<ĭÐŤʳ : 1 ĭÐŤʳX : 1 ÐŤʳXH : 1 ŤʳXH" : 1 diff --git a/test/Eval.hs b/test/Eval.hs index 3db138a..5a1f9ee 100644 --- a/test/Eval.hs +++ b/test/Eval.hs @@ -1233,7 +1233,7 @@ testEval = describe "Evaluation" $ do ] describe "q154363: Check if all non-zero elements in a matrix are connected" $ do specEval - "ᵗ{±1Ĩ$BaOđᵒ{≈∑Ƶ" + "ᵗ{±1Ĩ$þÐaOđᵒ{≈∑Ƶ" [ ("[0] 1", Check True) , ("[0,0] 2", Check True) , ("[1,1,1,0,0,0] 3", Check True) @@ -1819,6 +1819,12 @@ testEval = describe "Evaluation" $ do , ("[1,2,1,3,2,1,4,1]", Check False) , ("[1,3,1,5,3,1,7,5]", Check False) ] + describe "q237085: Swap every two elements in a list" $ do + specEval + "ĭ$Ĭ" + [ ("[1,2,3,4,5,6]", all_ ["[2,1,4,3,6,5]"]) + , ("[0,1,0,1]", all_ ["[1,0,1,0]"]) + ] describe "q238607: Converge to a number" $ do specEval "ƊsC↔~cɗ-" @@ -3185,7 +3191,7 @@ testEval = describe "Evaluation" $ do ] describe "q266561: aaabbabbc" $ do specEval - "ĕ3¦¿ĭÐŤʳXH\"c\"I" + "ĕ<ĭÐŤʳXH\"c\"I" [ ("\"cbbbaab\"", all_ ["aa"]) , ("\"bbbaabc\"", all_ ["aa"]) , ("\"baaacbb\"", all_ ["ab"])