【漢直】T-Code/TUT-Codeスレ Lesson2【連習】

1 名前：nobody ◆cxDnurUjDY [03/08/27 07:15] 　て、ての、と、のと、とが 　四日同じことをやったらやめられない。 　荒れ寺の和尚が香をたいて、一心不乱に彼岸を念じている。 T-Coder, TUT-Coderの皆様、引き続き連習しましょう。 超絶技巧入力など、他の漢直の話題も歓迎します。 「連習」の意味については前スレを参照してください。 前スレ pc.2ch.net/test/read.cgi/unix/1014523030/ 関連リンク ・T-code本家:　openlab.jp/tcode/ ・TUT-code本家:　www.crew.sfc.keio.ac.jp/~chk/ ・増田式・超絶技巧入力:　member.nifty.ne.jp/kb/index-kb.htm ・漢直Win(Windowsで漢直):　t.pos.to/tc/kanchoku.html 211 名前：99 mailto:sage [03/09/28 02:33] ちなみに辞書のフォーマットを拡張しました。 辞書作成スクリプトの使い方 ・1単語ごとに改行してあるファイルを作る。 （kwmaze.dicからなら行頭のキーを消した後"/"を改行に置換するとか） ・下の2つのファイルをgg1.rb、gg2.rbとして保存。 ・後は ruby -Ks gg1.rb 元ファイル | sort | uniq | ruby -Ks gg2.rb > 辞書ファイル ……perlじゃなくてごめんなさい。 gg1.rb -------- while gets chop! while $_ =~ /^..+$/ if $_ =~ /[^あ-ん]$/ && $_ !~ /^[あ-ん].$/ print $_.gsub(/.$/, ' /\&') print "\r\n" end chop! chop! end end -------- 212 名前：99 mailto:sage [03/09/28 02:33] gg2.rb -------- key = "" while gets chop! if key.length > 0 && key.length+2 == $_.length && key == $_[0,key.length] print $_[-2..-1] else if key.length > 0 print "\r\n" end key = $_.chop key.chop! print key print $_[-2..-1] end end print "\r\n" --------

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef