このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/db/1316769778/155
#   SQL命令で表(TABLE)を作る  
#   1、本(コード・題名・著者名・出版社名・価格・在庫冊数)  
#     
#   2、出納(費用・本のコード・冊数・日付)  
#     
#   3、顧客(顧客コード・氏名・連絡先)  
#     
#   4、予約本(顧客コード・本のコード・予約日付・入荷日付) 
#   
#  このまんまの問題がでたんだけど意味が全く分からない 
# 
# 

テーブル構造を定義する(_定義文文字列) :-
        split(_定義文文字列,['(',')','・'],[_テーブル名|_属性名ならび]),
        append(L0,[_属性名|R],_属性名ならび),
        length([_|L0],_属性番号],
        _テーブル構造 =.. [_テーブル構造,_テーブル名,_属性番号,_属性名],
        assertz(_テーブル構造),
        R = [],!.

?- テーブル構造を定義する('本(コード・題名・著者名・出版社名・価格・在庫冊数)').

?- テーブル構造を定義する('出納(費用・本のコード・冊数・日付)').

?- テーブル構造を定義する('顧客(顧客コード・氏名・連絡先)').

?- テーブル構造を定義する('予約本(顧客コード・本のコード・予約日付・入荷日付)').