将列表中的最小值列在列表中？

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

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