- 523 名前：デフォルトの名無しさん mailto:sage [2010/01/30(土) 05:59:00 ]
- >>484
% Prolog (その一)
インデント深度とは(_行,_インデント深度) :-
'行頭からタブ、空白以外の文字が現れるまでがn回(n>=0)現れた場合深度=nとする'(_行,_n),
_n = _インデント深度,!.
'行頭からタブ、空白以外の文字が現れるまでがn回(n>=0)現れた場合深度=nとする'(_行,_n) :-
sub_atom(_行,_n,1,_,C),
\+(C=' '),
\+(C='\t'),!.
