このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/db/1274791771/696
#  初歩的な質問ですみません。どうしても動かないので腹が立って質問します。 
#  取引先テーブルから会社名の最後に株式会社とつく会社を抜き出すときはこれでいいんですよね。どうしても動きません。 
#  使ってるソフトはhsqldbです 
#   
#  SELECT 会社名 
#  FROM 取引先テーブル 
#  WHERE 会社名 LIKE '%株式会社' 
# 
# 

取引先テーブルから会社名の最後に株式会社とつく会社を抜き出す(_会社名) :-
        findall(_,テーブル定義(取引先テーブル,_,_),L),
        テーブル定義(取引先テーブル,Nth,会社名),
        P =.. [取引先テーブル|L],
        call(P),
        list_nth(Nth,L,_会社名),
        sub_atom(_会社名,_,4,0,'株式会社').