[_separable]
Book solution method
Separable ODE, Neither variable missing
Mathematica ✓
cpu = 0.0301078 (sec), leaf count = 59
Maple ✓
cpu = 0.008 (sec), leaf count = 19
DSolve[x*y[x] + 3*(2 - y[x])*y'[x] == 0,y[x],x]
Mathematica raw output
{{y[x] -> -2*ProductLog[-Sqrt[E^(-x^2/6 - C[1])]/2]}, {y[x] -> -2*ProductLog[Sqr
t[E^(-x^2/6 - C[1])]/2]}}
Maple raw input
dsolve(3*(2-y(x))*diff(y(x),x)+x*y(x) = 0, y(x),'implicit')
Maple raw output
1/2*x^2-3*y(x)+6*ln(y(x))+_C1 = 0