From: Eric S. Raymond <esr@thyrsus.com>
Date: Fri, 11 Nov 1994 21:14:51 +0000 (+0000)
Subject: Initial revision
X-Git-Tag: 1-2~31
X-Git-Url: http://thyrsus.com/gitweb/?a=commitdiff_plain;h=5243401a14f66c4eb3de1eef9f800e1500f30cab;p=cupl.git

Initial revision
---

diff --git a/test/poly11.cupl b/test/poly11.cupl
new file mode 100644
index 0000000..2e4bf47
--- /dev/null
+++ b/test/poly11.cupl
@@ -0,0 +1,12 @@
+COMMENT	EVALUATION OF A POLYNOMIAL
+COMMENT (SPECIFICALLY, SUM FOR K = 1 TO 11 OF K!X**K, PLUS 1)
+	READ X
+	LET FOFX = 0
+	LET TERM = 1
+	PERFORM STEP FOR N = 1 TO 11
+STEP	BLOCK
+	LET FOFX = FOFX + TERM
+	LET TERM = TERM*N*X
+STEP	END
+	WRITE X, FOFX
+	STOP