2012-04-16 6 views

ответ

0

Вы можете сделать это с помощью sort/2:

?- findall([Result, Name], 
     (member((Name, A, B), [(a, 3, 2), (b, 1, 3), (c, 3, 4)]), 
     Result is A*B),Output), 
    sort(Output, SOutput). 

SOutput = [[2, a], [6, b], [12, c]]. 
Смежные вопросы