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

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

將它傳遞給一個函數，它將自身的參數相乘？