このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1294061094/21
#  [1] 授業単元:C言語プログラミング 
#  [2] 問題文(含コード&リンク): http://ime.nu/www.dotup.org/uploda/www.dotup.org1340661.txt 
#  
#  5.文字列を引数としてその文字列の長さを返す関数mystlen()を作成せよ。

'文字列を引数としてその文字列の長さを返す述語mystlen'(_文字列,_文字列の長さ) :-
        mystlen(_文字列,_文字列の長さ).

mystrlen(_文字列,_文字列の長さ) :-
        sub_atom(_文字列,_,_文字列の長さ,_,_文字列).