Make trig app purely functional

examples/trig.pf

@@ -1,35 +1,24 @@
+// We wish to calculate the top (dT), bottom (dB), and height (q) of a symmetric
+// parallelogram such that n of them will exactly circumscribe a symmetric truncated 
+// cone having top radius rT, bottom radius rB, and height h.
+
 import
 
 NULL::"math"
 "fmt"
 
 const PI = 3.141592
 
-// We wish to calculate the top (dT), bottom (dB), and height q of a symmetric
-// parallelogram such that n of them will exactly circumscribe a symmetric truncated 
-// cone having top radius rT, bottom radius rB, and height h.
+def 
 
-cmd 
-
-main :
-    get answer from Input("What is the radius of the top of the cone? ")
-    rT = float(answer)
-    get answer from Input("What is the radius of the bottom of the cone? ")
-    rB = float(answer)
-    get answer from Input("What is the vertical height of the cone? ")
-    h = float(answer)
-    get answer from Input("How many sides should the truncated pyramid have? ")
-    n = int(answer)
-    post fmt.printf("dT is %f, dB is %f, and q is %f", dT, dB, q)
+solveFor(rT, rB, h float, n int) :
+    fmt.sprintf("dT is %f, dB is %f, and q is %f", dT, dB, q)
 given :
     dT = circumscribingLength(rT, n)
     dB = circumscribingLength(rB, n)
     S = sqrt(h squared - (rB-rT) squared)
     q = sqrt(S squared - ((dB-dT)/2) squared)
 
-
-def 
-
 (x float) squared :
     x * x