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

[0001 nobody ◆cxDnurUjDY NG NG]

　て、ての、と、のと、とが
　四日同じことをやったらやめられない。
　荒れ寺の和尚が香をたいて、一心不乱に彼岸を念じている。


T-Coder, TUT-Coderの皆様、引き続き連習しましょう。
超絶技巧入力など、他の漢直の話題も歓迎します。
「連習」の意味については前スレを参照してください。

前スレ
http://pc.2ch.net/test/read.cgi/unix/1014523030/

関連リンク
・T-code本家:　http://openlab.jp/tcode/
・TUT-code本家:　http://www.crew.sfc.keio.ac.jp/~chk/
・増田式・超絶技巧入力:　http://member.nifty.ne.jp/kb/index-kb.htm
・漢直Win(Windowsで漢直):　http://t.pos.to/tc/kanchoku.html

[0211 99 NG NG]

ちなみに辞書のフォーマットを拡張しました。

辞書作成スクリプトの使い方
・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
--------

[0212 99 NG NG]

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"
--------