| 1 : |
ktanaka |
1.1 |
(defun getcadr (filename) |
| 2 : |
|
|
(let ((err:end-of-file (function (lambda (x (y))(throw 'eof(nreverse ret))))) |
| 3 : |
|
|
(s (inopen (stream filename))) |
| 4 : |
|
|
(ret nil)) |
| 5 : |
|
|
(catch 'eof |
| 6 : |
|
|
(loop (push (cadr (read s)) ret))))) |
| 7 : |
|
|
(defun getcaddr (filename) |
| 8 : |
|
|
(let ((err:end-of-file (function (lambda (x (y))(throw 'eof(nreverse ret))))) |
| 9 : |
|
|
(s (inopen (stream filename))) |
| 10 : |
|
|
(ret nil)) |
| 11 : |
|
|
(catch 'eof |
| 12 : |
|
|
(loop (push (caddr (read s)) ret))))) |
| 13 : |
|
|
; |
| 14 : |
|
|
(defun sortprim (primlist) |
| 15 : |
|
|
(sort primlist (function (lambda (p1 p2) |
| 16 : |
|
|
(lessp (length (cadr (applykanji p1))) |
| 17 : |
|
|
(length (cadr (applykanji p2)))))))) |
| 18 : |
|
|
; |
| 19 : |
|
|
(setq primitive '(一 右上 ののじ ぼう てん たすき にんにょう 右だれ てんてん |
| 20 : |
|
|
りのじ 直がまえ 二へん めのじ にすい ひのじ がんだれ |
| 21 : |
|
|
なべぶた りっとう 乙 一たすき んのじ 幻の右 ののじ一 なのじ |
| 22 : |
|
|
盾だれ こうがまえ 介の下 人へん 司かまえ 七へん ７のじ |
| 23 : |
|
|
父の下 はのじ そのじ ひとかしら にんべん 卜 二 丁 人 十 七 |
| 24 : |
|
|
三 才 工 小 丈 上 寸 土 川 千 刀 八 入 又 于 几 卩 了 |
| 25 : |
|
|
つちへん てへん りっしんべん 亡 くさかんむり 士 卑の下 大 下 |
| 26 : |
|
|
力 むのじ 九へん 比の左 北の左 奉の下 おのじ 予の下 工へん |
| 27 : |
|
|
きゅうにょう しのじ 仰の中 みつあし このじ 后だれ 代の右 |
| 28 : |
|
|
ゆのじ ののじてんののじ 九 干 けものへん さんずい まだれ |
| 29 : |
|
|
ぎょうにんべん わかんむり さんづくり はこがまえ にじゅうあし |
| 30 : |
|
|
竹の左 竹の右 一ののじぼう 又へん つのじ しきがまえ 叫の右 |
| 31 : |
|
|
しょうへん そのじ一 かんがまえ まきがまえ ふしづくり 宅の下 |
| 32 : |
|
|
つつみがまえ ふうがまえ まのじ ほこ したごころ 卯の左 |
| 33 : |
|
|
かたはね 干干 ほこづくり 号の下 子へん しきがまえ一 四点 |
| 34 : |
|
|
止へん 舛の右 ほのじ ふみへん うしへん くにがまえ おおざと |
| 35 : |
|
|
しかばねかんむり こざとへん のぶん ひへん れんが きへん |
| 36 : |
|
|
やまがまえ すいにょうにょう 丸 久 斤 巾 午 元 犬 父へん 井 |
| 37 : |
|
|
火 向がまえ 考のつくり よのじ横 かんがまえののじ さんぼう |
| 38 : |
|
|
まきがまえぼう 土ののじ 元にょう ぱい 害の中へん 一小 印の左 |
| 39 : |
|
|
一むのじ 逆よのじ 少だれ 図の中 訊の右 看だれ おっとへん |
| 40 : |
|
|
斉の下 ののじつのじ 韋の上 令の下 そのじはのじ 矛の下 |
| 41 : |
|
|
三ののじ 発の下 牛 升 ののじ土 木 口 女 よのじ 害の中 心 |
| 42 : |
|
|
すいにょう 共の上 王 己 天 おんなへん うかんむり おうへん 夭 |
| 43 : |
|
|
くちへん やまへん 万 夕 也 尤 毛 巳 廿 文 夫 不 斗 爪 太 壬 |
| 44 : |
|
|
刃 少 叉 山 子 手 止 氏 主 失 尺 支 水 斥 生 正 中 丹 必 匹 |
| 45 : |
|
|
内 屯 之 乃 半 巴 未 勿 匁 与 矢 末 本 方 戊 片 平 にちへん |
| 46 : |
|
|
片へん 云へん 示へん 气 夬 尹 乍 示 三人 声の下 甘 立 |
| 47 : |
|
|
月つくり 日 ののじ木 畏の下 是の下 半へん まきがまえ人 |
| 48 : |
|
|
衣の下 余の下 いとがしら 正へん 尹たれ 十わかんむり |
| 49 : |
|
|
虚の中へん 元へん 危たれ むにょう 虚の中 一巾 土にんにょう |
| 50 : |
|
|
ののじ止 刀はのじ 口一 益の上 汚の右 生へん 生へん 夜の右下 |
| 51 : |
|
|
このじ十 一少 共の上ののじ 寮の中 然の左上 |
| 52 : |
|
|
わかんむりにんにょう とのじわかんむり 栴の右下 上小 |
| 53 : |
|
|
ほのじてん 幸の下 実の下 県がまえ 禾 牙 円 云 丑 以 鹿の中上 |
| 54 : |
|
|
余へんの下 亥の下 月 欠 乎 五 玉 丘 鬼の下 郷の左 しんにゅう |
| 55 : |
|
|
のぎへん にくづき しめすへん やまいだれ かたへん 拝の右 |
| 56 : |
|
|
内がまえ 又てんてん 段の左 したみず 那の左 十まきがまえ |
| 57 : |
|
|
立へん 業かんむり 棄の中 なべぶたむのじ 矢へん えんにょう |
| 58 : |
|
|
のほこ 耽の右 ののじ一小 いちた 夾の略字 |
| 59 : |
|
|
なおがしらわかんむり そのじ天 そうにょう 才ほこ 氏一 |
| 60 : |
|
|
みみへん ほこほこ ひつじがしら 金の下 つのじ一八 疋へん |
| 61 : |
|
|
其の上 服の右 派の右 辰のつくり ころもへん よん あなかんむり |
| 62 : |
|
|
こめへん いしへん たけかんむり 侖の下 及 瓦 巨 弓 互 光 古 |
| 63 : |
|
|
兄 口十 瓜 央 なおがしらまきがまえ 衆の下 めのじよんてん |
| 64 : |
|
|
庚の中 且へん ひがのぼるの下 とのじ夕 みみがまえ 猟の右下 |
| 65 : |
|
|
暇の中 そのじ一亡 聯の右下 すきへん 晋の上 ののじ一巾 尭の下 |
| 66 : |
|
|
局がまえ 貴の上 関の中 むのじ大 立ののじ まきがまえむのじ |
| 67 : |
|
|
二十二 二人二 旅の右 妻の上 まがりがわ 母の略字 共かんむり |
| 68 : |
|
|
夾の略字へん 田 米 電の下 奄の下 巻の上 はつがしら 且 甲 朱 |
| 69 : |
|
|
匆 戉 羊 用 予 丙 亦 由 目 白 年 疋 氷 兆 占 先 石 走 世 州 |
| 70 : |
|
|
申 四 史 皿 冊 耳 而 死 寿 坐 再 舟 出 成 西 辛 早 赤 舌 虫 |
| 71 : |
|
|
弔 百 皮 釆 当 民 包 母 来 吏 亙 豕 朿 かわへん 書の上 |
| 72 : |
|
|
むしへん 自 てん田 にし のぎへんそのじ ひかるへん 鬲の下 |
| 73 : |
|
|
霊の下 制の左 寒の中 雀のつくり 丞の上 くのじよのじ 口小 |
| 74 : |
|
|
華の下 画の上 官の下 卸の左 岡の中 僕の右下 一十口 兄へん 我 |
| 75 : |
|
|
臼 永 曳 検の右下 衣 血 求 曲 缶 豹の左 とらかんむり 田十 |
| 76 : |
|
|
うまがまえ 口土 別の左 典の上 立わかんむり |
| 77 : |
|
|
ひつじがしらののじ 朔の左 艮へん 恵の上 舟へん 津の右 師の左 |
| 78 : |
|
|
麦にょう 十目 夏の上 みへん 無の上 良へん 束へん 烏がまえ |
| 79 : |
|
|
曹の上 挿の右 そのじ田 展のつくり 逓のつくり ののじ虫 豆へん |
| 80 : |
|
|
弓ぼうののじ あしへん かねへん ごんべん 見 言 凹 漢の右下 |
| 81 : |
|
|
敷の左上 喚の右上 難の左下 日小 僅の右下 僅の右下へん |
| 82 : |
|
|
幣の左上 長へん 弓んのじ 呉の上 盈の上 敢の左 十よん 業の下 |
| 83 : |
|
|
基の上 ほねかんむり 咼がまえ 祭がしら ひつじがしら八 垂へん |
| 84 : |
|
|
さとへん 函の中 隹 貞の上 亜 酉 いとへん 両 里 甫 歩 並 凸 |
| 85 : |
|
|
非 弗 長 吊 争 束 多 足 身 臣 垂 色 肖 更 艮 克 車 糸 乗 兎 |
| 86 : |
|
|
卓 表 東 良 卵 呂 あめかんむり 虎にょう 犀の中 龍の右 率の中 |
| 87 : |
|
|
くのじ田 康の中 白小 捷の右 角 果 雨 夷 串 朝の左 剥の左 |
| 88 : |
|
|
一中わかんむり 韮の下 寅の下 くのじ目 倉の下 善の上 曾の上 |
| 89 : |
|
|
鼠の下 逮のつくり 申又 とりがまえ 焔の右 くちごろも そのじ豕 |
| 90 : |
|
|
緑の右 揺の右 重へん そのじ酉 是にょう 壷の下 しょくへん 革 |
| 91 : |
|
|
里にんにょう 嬢の右下 衰の下 寡の中 慶だれ よのじ豕 楽の上 |
| 92 : |
|
|
婁の上 四人十 憂の上 様の右 庸のつくり 免にょう もんがまえ |
| 93 : |
|
|
免 面 門 阜 承 重 甚 事 首 飛 畢 衷 爽 泉 禹 禺 満の右 |
| 94 : |
|
|
なおがしら貝 溝の右 兼 淵の右 鶴の左 竃の下 観の左 為 |
| 95 : |
|
|
鬼にょう 兜の上 極の右 粛 裏の下 薦の右下 おとほこ 亀 象 爾 |
| 96 : |
|
|
喪 鼎 輿の上 興の上)) |
| 97 : |
|
|
(defun make-hira () |
| 98 : |
|
|
(do ((i 33 (1+ i)) |
| 99 : |
|
|
(ret)) |
| 100 : |
|
|
((> i 114)(nreverse ret)) |
| 101 : |
|
|
(sset str 0 (logor 36 128)) |
| 102 : |
|
|
(sset str 1 (logor i 128)) |
| 103 : |
|
|
(princ str)(princ " "))) |
| 104 : |
|
|
|
Annotation of /lisp/test/check.l
Parent Directory
| 
Revision Log