このディレクトリの索引


nth1(_nth1,L,A) :-
        nth1([_],_nth1,L,A).

nth1(Ln,_nth1,[A|_],A) :-
        length(Ln,_nth1).
nth1(Ln,_nth1,[_|R],A) :-
        integer(_nth1),
        length(L2,_nth1),
        append(Ln,_,L2),
        nth1([_|Ln],_nth1,R,A).
nth1(Ln,_nth1,[_|R],A) :-
        var(_nth1),
        nth1([_|Ln],_nth1,R,A).