おためしAZ-Prolog

HEAP (cell) 262144 USED: 25505 ATOM (cell) 16384 USED: 692 ARITY (cell) 16384 USED: 682 LSTACK (cell) 32468 MAX: 64 GSTACK (cell) 262144 MAX: 24455 割り当て稼動秒：最大５秒 /* **** 翻訳プログラム例題 **** */ trans(Bun,IMI,J):- bagof(A,L^(rexpl(Bun,'[^ ^\.]+',L),name(A,L)),E), % 文字列をアトム並びへ変換 s(IMI,E,[]), % 英語の構文解析 js(IMI,J,[]). % 同一構文を持つ日本語生成 %%%%%%%%%%%%%%%%%%%%%%%% %% 英語構文規則、辞書 %% % 通常文 s([s,Np,Vp]) --> np(Np),vp(Vp)