Haskell, 6277 bytes

a%h%(ba:t)=a=h-ba:b%ta%t
a%_=[a]h%_=[h]
f(h:t)=h:foldr(%)[](f$mapf$zipWith((/).(-h+)t)t[1..])
f e=e

Haskell, 62 bytes

a%(b:t)=a-b:b%t
a%_=[a]
f(h:t)=h:foldr(%)[](f$map(-h+)t)
f e=e

h%(a:t)=h-a:a%t
h%_=[h]
f(h:t)=h:foldr(%)[](f$zipWith((/).(-h+))t[1..])
f e=e

deleted 34 characters in body

Source Link

edited Mar 31, 2020 at 9:31

h%a%(ab:t)=h=a-ab:a%tb%t
h%_=[h]a%_=[a]
f(h:t)=h:foldr(%)[](f$zipWith((/).f$map(-h+))t[1..]t)
f e=e

h%(a:t)=h-a:a%t
h%_=[h]
f(h:t)=h:foldr(%)[](f$zipWith((/).(-h+))t[1..])
f e=e

a%(b:t)=a-b:b%t
a%_=[a]
f(h:t)=h:foldr(%)[](f$map(-h+)t)
f e=e

Source Link

created Mar 31, 2020 at 9:03

h%(a:t)=h-a:a%t
h%_=[h]
f(h:t)=h:foldr(%)[](f$zipWith((/).(-h+))t[1..])
f e=e