# [R], <s>105</s> 96 bytes

*Edit: -9 bytes thanks to pajonk*

<!-- language-all: lang-r -->

    function(l,a=expand.grid(l,l,l),b=apply(a[rowSums(a)==max(l),],1,sort))b[,order(b[3,]-b[1,])[1]]

[Try it online!][TIO-kxq1osvh]

[R]: https://www.r-project.org/
[TIO-kxq1osvh]: https://tio.run/##VY27CsMwDAD3fokEaonJFvBXdDQe5DgNgfiBbNP0611vpdx03HDSg1/zXLkV3V8trvVIEU5ivV2Zo3/scvjhAySnOefzA2wkvZ8tFGDUOvAFI1pSVJJURGcoid8EnJnJ3p1RZNEoa38vUIua8PbvE/Yv "R – Try It Online"