프롤로그 : 중첩 목록

Question

나는이 Prolog 코드를 가지고있다.

pick_number_simple([],[]). 
pick_number_simple([H|T],[H|T2]):- 
    number(H), pick_number_simple(T,T2). 
pick_number_simple([H|T],T2):- 
    not(number(H)), pick_number_simple(T,T2). 

이는 목록에서 숫자를 얻는다. 예를 들면 다음과 같습니다.

pick_number_simple([d,f,7,5,e,3,g], NumList) 

는 다음을 제공합니다.

[7,5,3] 

그러나 중첩 목록에서 숫자를 가져 오려고합니다.

예 :

pick_numbers_general([a,b,1,[2,[c,3]],d],1,NumList) 

줄 것입니다 :

[2,3] 

어떻게해야합니까?

Answer 1

U는 flatten/2 predicate

pick_number_simple([],[]). 
pick_number_simple([H|T],[H|T2]):- 
    number(H), pick_number_simple(T,T2). 
pick_number_simple([H|T],T2):- 
    not(number(H)), pick_number_simple(T,T2). 

pick_numbers_general(List, Num, NumList) :- 
    flatten(List, NestList), 
    pick_number_simple(NestList, NumListAll), 
    findall(X, (member(X, NumListAll),X > Num), NumList). 

그래서

?- pick_numbers_general([a,b,1,[2,[c,3]],d],1,NumList). 
NumList = [2, 3] ;