(一)請將下面程式改寫為尾遞迴（tail recursion）的形式。

3. 一液體密度為162 lb/ft3，黏度（viscosity）為4.84 lb/ft·h，流經長達9,134 ft之平滑圓管。管路壓力降為0.183 lbf /in.2。如液體質量流率為7,000 lb/h，請問圓管之直徑為何？對於層流（laminar flow）而言，泛寧摩擦係數（Fanning friction factor）f與雷諾數（Reynolds number）Re間之關係式為f = 16/Re；對於紊流（turbulent flow）而言，f = 0.046Re-0.2。單位換算：1 ft = 12 in., g = 32.174 ft/s2, 1 lbf = 32.174 lb·ft/s2。