From 13c44054b21d26782e98a52e9a114250ab8307ff Mon Sep 17 00:00:00 2001
From: AidenRushbrooke <72034940+AidenRushbrooke@users.noreply.github.com>
Date: Thu, 9 Dec 2021 02:30:57 +0000
Subject: Added example program of each main feature

---
 src/examples/sieve.ft | 48 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 src/examples/sieve.ft

(limited to 'src/examples/sieve.ft')

diff --git a/src/examples/sieve.ft b/src/examples/sieve.ft
new file mode 100644
index 0000000..e771009
--- /dev/null
+++ b/src/examples/sieve.ft
@@ -0,0 +1,48 @@
+!Program to calculate all primes below a certain value
+program sieveOfEratosthenes
+
+	!define variables
+	int::n
+	n=10000
+	int dimension(10000)::checks
+	int::i
+	int::j
+
+	!initialise array
+	do i=2,n
+		checks(i)=1
+	end do
+	i=2
+
+	!search for primes
+	do while(i<root(n))
+		if checks(i)==1 then
+			j=i**2
+			do while(j<n)
+				checks(j)=0
+				j=j+i
+			end do
+		end if
+		i=i+1
+	end do
+
+	!output primes found
+	print*,"Primes below ",n
+	do i=2,n
+		if checks(i)==1 then
+			print*,i
+		end if
+	end do
+end program sieveOfEratosthenes
+
+
+!Function to find the square root of a value
+function real root(int value)
+	real::result
+	result=1
+	int::count
+	do count=0,10
+		result =(result+value/result)/2
+	end do
+	return result
+end
\ No newline at end of file
-- 
cgit v1.2.3