m:-readln(L),s(L),m.\x0d s([A,B,C]):-T is sqrt(A*B*C),format('~0f ~0f ~0f~n',[T/B,T/C,T/A]).

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page