このディレクトリの索引
#  象は鼻が長い(名詞+「は」+名詞+「が」+形容詞)、を一つ登録しておけば・・・ 
#  
#  彼は目が大きい 
#  中国は人口が多い 
#  俺は成績が悪い 
#  新幹線は速度が速い 
#  我が家は金が無い 
#  東大は試験が難しい 
#  ダチョウは足が長い 
#  熊は腕力が強い 
#  彼女は髪が短い 
#  ロシアは国土が広い 
#  ソニーは経営が悪い 
#  零戦は航続距離が長い 
#  松屋は牛飯が旨い 
#  原発はコストが高い 
#  高速道路は危険が多い 
#  国道一号線は渋滞が激しい 
#  スピッツは鳴き声がうるさい 
#  北朝鮮は食糧事情が厳しい 
#  
#  ・・・このように、同じ構造の文をいつくもいくつも抽出して、まとめて整理することはできないのだろうか。 
#  

文候補(彼は目が大きい).
文候補(中国は人口が多い).
文候補(俺は成績が悪い).
文候補(新幹線は速度が速い).
文候補(我が家は金が無い).
文候補(東大は試験が難しい).
文候補(ダチョウは足が長い).
文候補(熊は腕力が強い).
文候補(彼女は髪が短い).
文候補(ロシアは国土が広い).
文候補(ソニーは経営が悪い).
文候補(零戦は航続距離が長い).
文候補(松屋は牛飯が旨い).
文候補(原発はコストが高い).
文候補(高速道路は危険が多い).
文候補(国道一号線は渋滞が激しい).
文候補(スピッツは鳴き声がうるさい).
文候補(北朝鮮は食糧事情が厳しい).

%  sPLIT/3

'名詞+「は」+名詞+「が」+形容詞 形の定義'(_文) :-
        sPLIT(_文,[は,が],[_名詞1,は,_名詞2,が,_形容詞]),
        assertz(名詞([_名詞1|R1],名詞,_名詞1,R1)),
        assertz(名詞([_名詞2|R2],名詞,_名詞2,R2)),
        assertz(形容詞([_形容詞1|R3],形容詞,形容詞1,R3)).

'文候補から 名詞+「は」+名詞+「が」+形容詞 形構文を定義する' :-
        文候補(_文),
        '名詞+「は」+名詞+「が」+形容詞 形の定義'(_文),
        fail.
'文候補から 名詞+「は」+名詞+「が」+形容詞 形構文を定義する'.

'名詞+「は」+名詞+「が」+形容詞'(_文,[[名詞,_名詞1],[後置詞,は],[名詞,_名詞2],[後置詞,が],[形容詞,_形容詞1]],_残りの文) :-
        名詞(_文,名詞,_名詞1,_残りの文_1),
        後置詞(_残りの文_1,後置詞,は,_残りの文_2),
        名詞(_残りの文_2,名詞,_名詞2,_残りの文_3),
        後置詞(_残りの文_3,後置詞,が,_残りの文_4),
        形容詞(_残りの文_4,形容詞,_形容詞1,_残りの文).

名詞句(_文,[名詞句,[[名詞,_名詞1],[後置詞,_後置詞1]]],_残りの文) :-
        名詞(_文,名詞,_名詞1,_残りの文_1),
        後置詞(_残りの文_1,後置詞,_後置詞1,_残りの文).

後置詞([は|R],後置詞,は,R).
後置詞([が|R],後置詞,が,R).