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

Initial revision
---

diff --git a/test/prime.cupl b/test/prime.cupl
new file mode 100644
index 0000000..77f61a6
--- /dev/null
+++ b/test/prime.cupl
@@ -0,0 +1,11 @@
+COMMENT READ A NUMBER AND TEST IT FOR PRIMALITY
+	READ M
+	PERFORM TEST FOR N=2
+	PERFORM TEST FOR N=3 TO SQRT(M) BY 2
+TEST	BLOCK
+	IF N*FLOOR(M/N) = M THEN GO TO FOUND
+TEST	END
+	WRITE /M, 'IS A PRIME'
+	STOP
+FOUND	WRITE /M, 'IS NOT A PRIME'
+	STOP