From 0ad9bf1c602f071a4ae74945d6c751457f9e6f75 Mon Sep 17 00:00:00 2001
From: Quentin Carbonneaux <quentin.carbonneaux@yale.edu>
Date: Sun, 23 Aug 2015 11:44:21 -0400
Subject: add new prime finding program

---
 lisc/test/prime.ssa | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 lisc/test/prime.ssa

(limited to 'lisc/test/prime.ssa')

diff --git a/lisc/test/prime.ssa b/lisc/test/prime.ssa
new file mode 100644
index 0000000..fd0b05f
--- /dev/null
+++ b/lisc/test/prime.ssa
@@ -0,0 +1,24 @@
+# find the 10,001st prime
+# store it in a
+
+@start
+@loop
+	%n =w phi @start 5, @tloop %n, @yes %n1
+	%p =w phi @start 13, @tloop %p1, @yes %p1
+	%p1 =w add %p, 2
+@tloop
+	%t =w phi @loop 3, @next %t1
+	%r =w rem %p, %t
+	jnz %r, @next, @loop
+@next
+	%t1 =w add 2, %t
+	%tsq =w mul %t1, %t1
+	%c0 =w csgt %tsq, %p
+	jnz %c0, @yes, @tloop
+@yes
+	%n1 =w add 1, %n
+	%c1 =w ceq 10001, %n1
+	jnz %c1, @end, @loop
+@end
+	storew %p, $a
+	ret
-- 
cgit 1.4.1