このディレクトリの索引

'URLのアンカー部分を取得する'(URL,_アンカー部分) :-
    split(URL,['#'],[_|R]),
    concat_atom(R,_アンカー部分).