From dcfb3147ba13463651ccc3aa655637b3c618b3d1 Mon Sep 17 00:00:00 2001
From: 0x4261756D <38735823+0x4261756D@users.noreply.github.com>
Date: Fri, 28 Jul 2023 07:05:09 +0200
Subject: [PATCH] Add first project euler problem

---
 project_euler/problem_1.qbl | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 project_euler/problem_1.qbl

diff --git a/project_euler/problem_1.qbl b/project_euler/problem_1.qbl
new file mode 100644
index 0000000..a497ece
--- /dev/null
+++ b/project_euler/problem_1.qbl
@@ -0,0 +1,30 @@
+import "../std.qbl"
+
+true 3 0
+while
+{
+//	i sum
+	dup check req req +
+	incAndCheck req
+}
+
+deq intToStr println
+
+function int => int check
+{
+	3 dup % 0 req != req
+	// not_divisible start
+	if
+	{
+		5 dup % 0 req != req
+		if
+		{
+			deq 0
+		}
+	}
+}
+
+function int => bool int incAndCheck
+{
+	1 + 1000 dup < req
+}