I need a function which transforms a given LIST to
MATRIX like shown below:

diagonalize ::[Int]-> [[Int]]

diagonalize [3,29,14]
[[ 3, 0, 0],
[ 0,29, 0],
[ 0, 0,14]]