将min放在列表中？

Question

所以我知道如何在列表中找到最小值，但是如果我想对结果进行平方怎么办？以下是我必须找到的最低要求：

min_in_list([Min],Min).           
min_in_list([H,K|T],M) :-
    H =< K,                            
    min_in_list([H|T],M).              
min_in_list([H,K|T],M) :-
    H > K,                              
    min_in_list([K|T],M).              

Answer 1

已经有一段时间了，但我觉得有点像：

min_squared(List,Squared) :- min_in_list(List, Min), Squared is Min*Min. 

Answer 2

将它传递给一个函数，该函数将其参数与其自身相乘？