>>484
% Prolog (その一)

インデント深度とは(_行,_インデント深度) :-
　　'行頭からタブ、空白以外の文字が現れるまでがn回(n>=0)現れた場合深度=nとする'(_行,_n),
　　_n = _インデント深度,!.

'行頭からタブ、空白以外の文字が現れるまでがn回(n>=0)現れた場合深度=nとする'(_行,_n) :-
　　sub_atom(_行,_n,1,_,C),
　　\+(C=' '),
　　\+(C='\t'),!.