んじゃ、貼りますね。

pizza_types([hawaiian,marco_polo,pepperoni,super_supreme,ninja]).
pizza_meats([ham,mussels,prawns,salami,tuna]).
pizza_vegitables([avocado,corn,olive,pineapple,tomato]).
pizza_prices([5.00,6.50,7.00,8.50,10.00]).

select(X,[X|R],R).
select(X,[Y|R],[Y|S]) :- select(X,R,S).
select_in_order(X,[X|R],R).
associate([],[],[],[],[]).
associate([(T,M,V,P)|R],Types,Meats,Vegitables,Prices) :-
select_in_order(T,Types,RTypes),
select(M,Meats,RMeats),
select(V,Vegitables,RVegitables),
select(P,Prices,RPrices),
associate(R,RTypes,RMeats,RVegitables,RPrices).