### 6.50.15 Rajouter une colonne à une matrice : border

border a comme argument une matrice A de dimension p*q et une liste b de dimension p (c’est à dire nrows(A)=size(b)).
border renvoie la matrice obtenue à partir de A en lui rajoutant comme dernière colonne tran(b).
On a :
border(A,b)=tran([op(tran(A)),b])=tran(append(tran(A),b))
On tape :

border([[1,2,4],[3,4,5]],[6,7])

On obtient :

[[1,2,4,6],[3,4,5,7]]

On tape :

border([[1,2,3,4],[4,5,6,8],[7,8,9,10]],[1,3,5])

On obtient :

[[1,2,3,4,1],[4,5,6,8,3],[7,8,9,10,5]]