From 4c8409da359cf0da14214ccc939c10ac759f76a5 Mon Sep 17 00:00:00 2001 From: mRnea Date: Thu, 22 Aug 2024 00:24:19 +0300 Subject: added new examples --- examples/euler/1.kurt | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 examples/euler/1.kurt (limited to 'examples/euler/1.kurt') diff --git a/examples/euler/1.kurt b/examples/euler/1.kurt new file mode 100644 index 0000000..e3a3032 --- /dev/null +++ b/examples/euler/1.kurt @@ -0,0 +1,19 @@ +;; test +;; (format nil "~a~%" 233168) + +;; https://projecteuler.net/problem=1 +;; 1000den küçük, 3 veya 5 in katı olan tüm sayıların toplamını bulun. +;; Örnek: 10 için 3 + 5 + 6 + 9 = 23 + +makro problem-girdi 1000 son + +0 3 döngü eş problem-girdi < iken + eş 3 % 0 = + üst 5 % 0 = + | ise + eş rot + değiş + yap + 1 + +yap düş +dump + \ No newline at end of file -- cgit v1.2.3