このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1268979408/529
#  A3AACD9ABD377E716127E010FEAC9EBE のような半角英数字32文字の取得はどう書けばいいんでしょうか? 


'A3AACD9ABD377E716127E010FEAC9EBE のような半角英数字32文字の取得'(_文字列,_前文字列,_検索文字列,_後文字列) :-
        atom_chars(_文字列,Chars),
        半角英数N文字の連続を検索(Chars,32,L0,[],L0,L,R),
        atom_chars(_前文字列,L0),
        atom_chars(_検索文字列,L),
        atom_chars(_後文字列,R).

半角英数N文字の連続を検索([],N,[],L1,[],L) :-
        length(L1,N),
        reverse(L1,L),!.
半角英数N文字の連続を検索(R,N,L1,[],L,R) :-
        length(L1,N),
        reverse(L1,L),!.
半角英数N文字の連続を検索([A|R1],N,L1,[A|R0],L,R) :-
        \+(半角英数字(A)),
        半角英数N文字の連続を検索(R1,N,[],R0,L,R),!.
半角英数N文字の連続を検索([A|R1],N,L1,[A|R0],L,R) :-
        半角英数N文字の連続を検索(R1,N,[A|L1],R0,L,R).

半角英数字(C) :-
        member([U1,U2],[['A','Z'],[a,z],['0','9']]),
        C @>= U1,
        C @=< U2,!.