单字码长比较,星空两笔的码长真是叼破天际。。。。
CJK
sunman.words 20970 3.47768
xuma 20989 3.46948
xklb.superdz 20971 7.037
zzdyx_perfect 20903 3.75315
zzdyx_mofast 20903 3.75267
cqlb 20902 3.82294
cqkm 20902 3.91168
cqyx 20902 3.8303
xtlb 20889 3.81909
xklb.danzi 8079 3.93997
CJK_Ext_A
sunman.words 6582 4.1217
xuma 6592 3.93325
xklb.superdz 6582 6.97129
zzdyx_perfect 71 4
zzdyx_mofast 71 4
cqlb 82 3.87805
cqkm 82 3.97561
cqyx 82 3.87805
xtlb 55 3.89091
xklb.danzi 78 4.75641
CJK_Ext_B
sunman.words 42711 5.29894
xuma 42718 3.96262
xklb.superdz 42711 7.02566
zzdyx_perfect 2 4
zzdyx_mofast 2 4
cqlb 17 3.82353
cqkm 17 4.05882
cqyx 17 3.82353
xklb.danzi 37 4.45946
CJK_Ext_C
sunman.words 4149 5.2215
xuma 4149 3.95879
xklb.superdz 4149 7.01784
cqlb 44 3.95455
cqkm 44 4.02273
cqyx 44 3.95455
CJK_Ext_D
sunman.words 222 4.95045
xuma 222 3.95946
xklb.superdz 222 7.13063
cqlb 8 4
cqkm 8 4
cqyx 8 4
CJK_Ext_E
sunman.words 5762 5.30458
xuma 5762 3.96772
xklb.superdz 5762 7.02083
CJK_Ext_F
xuma 7473 3.96414
xklb.superdz 7473 6.97524
CJK_Ext_G
sunman.words 4939 5.16704
xuma 4939 3.96457
统计脚本:
#!/usr/local/bin/fish
echo CJK
for f in sunman.words xuma xklb.superdz zzdyx_perfect zzdyx_mofast cqlb cqkm cqyx xtlb xklb.danzi; echo -ne "$f "; perl -CSDA -lne 'BEGIN{ $a=$b=0} if ($ok) {@a=split; next unless @a > 1 && length($a[0]) == 1 && $a[0]=~ /\p{Block: CJK}/ && !exists $h{$a[0]}; $h{$a[0]}=1; $a+=length($a[1]); $b++;} elsif (/^\.\.\.\s*$/) { $ok=1} END { print $b, " ", $a/($b or 1)}' $f.dict.yaml; end | tabulate -f plain
echo
echo CJK_Ext_A
for f in sunman.words xuma xklb.superdz zzdyx_perfect zzdyx_mofast cqlb cqkm cqyx xtlb xklb.danzi; echo -ne "$f "; perl -CSDA -lne 'BEGIN{ $a=$b=0} if ($ok) {@a=split; next unless @a > 1 && length($a[0]) == 1 && $a[0]=~ /\p{Block: CJK_Ext_A}/ && !exists $h{$a[0]}; $h{$a[0]}=1; $a+=length($a[1]); $b++;} elsif (/^\.\.\.\s*$/) { $ok=1} END { print $b, " ", $a/($b or 1)}' $f.dict.yaml; end | tabulate -f plain
echo
echo CJK_Ext_B
for f in sunman.words xuma xklb.superdz zzdyx_perfect zzdyx_mofast cqlb cqkm cqyx xtlb xklb.danzi; echo -ne "$f "; perl -CSDA -lne 'BEGIN{ $a=$b=0} if ($ok) {@a=split; next unless @a > 1 && length($a[0]) == 1 && $a[0]=~ /\p{Block: CJK_Ext_B}/ && !exists $h{$a[0]}; $h{$a[0]}=1; $a+=length($a[1]); $b++;} elsif (/^\.\.\.\s*$/) { $ok=1} END { print $b, " ", $a/($b or 1)}' $f.dict.yaml; end | tabulate -f plain
echo
echo CJK_Ext_C
for f in sunman.words xuma xklb.superdz zzdyx_perfect zzdyx_mofast cqlb cqkm cqyx xtlb xklb.danzi; echo -ne "$f "; perl -CSDA -lne 'BEGIN{ $a=$b=0} if ($ok) {@a=split; next unless @a > 1 && length($a[0]) == 1 && $a[0]=~ /\p{Block: CJK_Ext_C}/ && !exists $h{$a[0]}; $h{$a[0]}=1; $a+=length($a[1]); $b++;} elsif (/^\.\.\.\s*$/) { $ok=1} END { print $b, " ", $a/($b or 1)}' $f.dict.yaml; end | tabulate -f plain
echo
echo CJK_Ext_D
for f in sunman.words xuma xklb.superdz zzdyx_perfect zzdyx_mofast cqlb cqkm cqyx xtlb xklb.danzi; echo -ne "$f "; perl -CSDA -lne 'BEGIN{ $a=$b=0} if ($ok) {@a=split; next unless @a > 1 && length($a[0]) == 1 && $a[0]=~ /\p{Block: CJK_Ext_D}/ && !exists $h{$a[0]}; $h{$a[0]}=1; $a+=length($a[1]); $b++;} elsif (/^\.\.\.\s*$/) { $ok=1} END { print $b, " ", $a/($b or 1)}' $f.dict.yaml; end | tabulate -f plain
echo
echo CJK_Ext_E
for f in sunman.words xuma xklb.superdz zzdyx_perfect zzdyx_mofast cqlb cqkm cqyx xtlb xklb.danzi; echo -ne "$f "; perl -CSDA -lne 'BEGIN{ $a=$b=0} if ($ok) {@a=split; next unless @a > 1 && length($a[0]) == 1 && $a[0]=~ /\p{Block: CJK_Ext_E}/ && !exists $h{$a[0]}; $h{$a[0]}=1; $a+=length($a[1]); $b++;} elsif (/^\.\.\.\s*$/) { $ok=1} END { print $b, " ", $a/($b or 1)}' $f.dict.yaml; end | tabulate -f plain
echo
echo CJK_Ext_F
for f in sunman.words xuma xklb.superdz zzdyx_perfect zzdyx_mofast cqlb cqkm cqyx xtlb xklb.danzi; echo -ne "$f "; perl -CSDA -lne 'BEGIN{ $a=$b=0} if ($ok) {@a=split; next unless @a > 1 && length($a[0]) == 1 && $a[0]=~ /\p{Block: CJK_Ext_F}/ && !exists $h{$a[0]}; $h{$a[0]}=1; $a+=length($a[1]); $b++;} elsif (/^\.\.\.\s*$/) { $ok=1} END { print $b, " ", $a/($b or 1)}' $f.dict.yaml; end | tabulate -f plain
echo
echo CJK_Ext_G
for f in sunman.words xuma xklb.superdz zzdyx_perfect zzdyx_mofast cqlb cqkm cqyx xtlb xklb.danzi; echo -ne "$f "; perl -CSDA -lne 'BEGIN{ $a=$b=0} if ($ok) {@a=split; next unless @a > 1 && length($a[0]) == 1 && $a[0]=~ /\p{Block: CJK_Ext_G}/ && !exists $h{$a[0]}; $h{$a[0]}=1; $a+=length($a[1]); $b++;} elsif (/^\.\.\.\s*$/) { $ok=1} END { print $b, " ", $a/($b or 1)}' $f.dict.yaml; end | tabulate -f plain
echo