- 216 名前：デフォルトの名無しさん mailto:sage [2009/06/18(木) 05:37:47 ]
- >>214
% Prolog >>215 をより使いやすくするため sChars/6 を定義する。
sChars(A,B,C,D,E,F) :- sub_atom(A,B,C,D,E),C > 0,atom_chars(E,F).
% これでkから始まりoで終わる部分文字列の検索などがやり易くなる。
?- sChars('Hitomaro Kakinomoto',B,C,D,E,F),append([k|_],[o],F).
B = 11,
C = 4,
D = 4,
E = kino,
F = [k,i,n,o],
_ = [i,n];
B = 11,
C = 6,
D = 2,
E = kinomo,
F = [k,i,n,o,m,o],
_ = [i,n,o,m];
B = 11,
C = 8,
D = 0,
E = kinomoto,
F = [k,i,n,o,m,o,t,o],
_ = [i,n,o,m,o,t];
no.
?-
