このディレクトリの索引

'URLのホスト名を取得する'(URL,_ホスト名) :-
    atom_chars(URL,Chars),
    append(L1,['://'|L2],Chars),
    append(L3,['/'|_],L2),
    'URLのホスト名を取得するの二'(L3,_ホスト名),!.

'URLのホスト名を取得するの二'(L3,_ホスト名) :-
    append(L4,[':'|_],L3),
    concat_atom(L4,_ホスト名),!.
'URLのホスト名を取得するの二'(L3,_ホスト名) :-
    concat_atom(L3,_ホスト名),!.