「アナグラムメーカー」な話のうち、実入りがなかった方の話、の(少し)続、の改、兼、ごめん、眠かったんだ

読んで大笑いしてくれた人もいるんだろうなぁ、きっと。

これ、バカよね。これでええやんけ:

単純かつ超速
 1 # -*- coding: utf-8 -*-
 2 import io
 3 import os
 4 import csv
 5 from collections import defaultdict
 6 from glob import glob
 7 
 8 
 9 #_kt2kn = {
10 #    chr(c):
11 #    chr(c - (ord("ア") - ord("あ")))
12 #    for c in range(ord("ア"), ord("ン") + 1)
13 #}
14 
15 ipadicdir = "c:/Program Files (x86)/MeCab/dic/ipadic"
16 _result = {}
17 for mdicfn in glob(os.path.join(ipadicdir, "[NA]*.csv")):
18     reader = csv.reader(io.open(mdicfn, encoding="cp932"))
19     for line in reader:
20         #if "人名" in line or "地域" in line or "組織" in line:
21         if "人名" in line or "組織" in line:
22             continue
23         knj, yomi = line[0], line[11]
24         k = "".join(sorted(yomi))
25         if len(k) not in _result:
26             _result[len(k)] = defaultdict(list)
27         _result[len(k)][k].append((yomi, knj))
28 
29 for ln in sorted(_result.keys()):
30     for key, lst in _result[ln].items():
31         if len(lst) == 1:
32             continue
33         print(ln, key, lst)
 1 14 ウガクシシジジダツニノヒフョ [('ヒガシクジョウニシフダノツジ', '東九条西札ノ辻'), ('ヒガシクジョウニシフダノツジ', '東九条西札辻')]
 2 14 イウウエオカガコセムモユンン [('ムコウガオカユウエンセイモン', '向ケ丘遊園正門'), ('ムコウガオカユウエンセイモン', '向ヶ丘遊園正門')]
 3 14 エガキキグサツドネマヤランン [('キツネガサキヤングランドマエ', '狐ケ崎ヤングランド前'), ('キツネガサキヤングランドマエ', '狐ヶ崎ヤングランド前')]
 4 15 ウウガキサシジジタヒュョヨンン [('ヒガシサンジュウヨンジョウキタ', '東三十四条北'), ('キタヨンジュウサンジョウヒガシ', '北四十三条東'), ('キタサンジュウヨンジョウヒガシ', '北三十四条東')]
 5 15 ウウガキササシジジタヒュョンン [('キタサンジュウサンジョウヒガシ', '北三十三条東'), ('ヒガシサンジュウサンジョウキタ', '東三十三条北')]
 6 15 ウウウクコサシジチニュョョンン [('シュンコウチョウニクサンジョウ', '春光町二区三条'), ('シュンコウチョウサンクニジョウ', '春光町三区二条')]
 7 15 ウウガキサシジジタナナヒュョン [('ヒガシサンジュウナナジョウキタ', '東三十七条北'), ('キタサンジュウナナジョウヒガシ', '北三十七条東')]
 8 15 ウウガキサシシジジタチヒュョン [('ヒガシサンジュウシチジョウキタ', '東三十七条北'), ('キタサンジュウシチジョウヒガシ', '北三十七条東')]
 9 15 イウウガキサシジジタチヒュョン [('キタサンジュウイチジョウヒガシ', '北三十一条東'), ('ヒガシサンジュウイチジョウキタ', '東三十一条北')]
10 15 ウガキクサジタチツテミュリリン [('サガテンリュウジキタツクリミチ', '嵯峨天竜寺北造路'), ('サガテンリュウジキタツクリミチ', '嵯峨天龍寺北造路')]
11 15 ウウガシジジナニヒミミュョヨン [('ヒガシニジュウヨンジョウミナミ', '東二十四条南'), ('ヒガシヨンジュウニジョウミナミ', '東四十二条南')]
12 15 イウウガキシジジタチヒュョヨン [('ヒガシヨンジュウイチジョウキタ', '東四十一条北'), ('キタヨンジュウイチジョウヒガシ', '北四十一条東')]
13 15 ウウガキクサシジジタヒュョロン [('ヒガシサンジュウロクジョウキタ', '東三十六条北'), ('キタサンジュウロクジョウヒガシ', '北三十六条東')]
14 15 ウオオオガシゾチトネヒホョリン [('ヒガシオオゾネチョウホントオリ', '東大曽根町本通'), ('ヒガシオオゾネチョウホントオリ', '東大曾根町本通')]
15 15 ウウガサシジジナニヒミミュョン [('ヒガシサンジュウニジョウミナミ', '東三十二条南'), ('ヒガシニジュウサンジョウミナミ', '東二十三条南')]
16 15 ウガガクシシジジダツノヒヒフョ [('ヒガシクジョウヒガシフダノツジ', '東九条東札辻'), ('ヒガシクジョウヒガシフダノツジ', '東九条東札ノ辻')]
17 15 ウウガキサシジジタチハヒュョン [('キタサンジュウハチジョウヒガシ', '北三十八条東'), ('ヒガシサンジュウハチジョウキタ', '東三十八条北')]
18 16 ウウウガキキサシジジタヒュュョン [('キタサンジュウキュウジョウヒガシ', '北三十九条東'), ('ヒガシサンジュウキュウジョウキタ', '東三十九条北')]
19 17 ウウエオカガコセノムモユルレンンー [('ムコウガオカユウエンモノレールセン', '向ヶ丘遊園モノレール線'), ('ムコウガオカユウエンモノレールセン', '向ケ丘遊園モノレール線')]
20 22 イウウエエオガコサシジスチナハハマママャョン [('チョウジャガハマシオサイハマナスコウエンマエ', '長者ヶ浜潮騒はまなす公園前'), ('チョウジャガハマシオサイハマナスコウエンマエ', '長者ケ浜潮騒はまなす公園前')]

こっから完成に向けて、てのは…、どうすっかね? これがイケると、俄然完遂が見えてくるが?



Related Posts