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 +++++++++++++++++++ examples/euler/2.kurt | 21 +++++++++++++++++++++ examples/euler/3.kurt | 16 ++++++++++++++++ examples/euler/4.kurt | 32 ++++++++++++++++++++++++++++++++ examples/euler/5.kurt | 31 +++++++++++++++++++++++++++++++ 5 files changed, 119 insertions(+) create mode 100644 examples/euler/1.kurt create mode 100644 examples/euler/2.kurt create mode 100644 examples/euler/3.kurt create mode 100644 examples/euler/4.kurt create mode 100644 examples/euler/5.kurt (limited to 'examples/euler') 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 diff --git a/examples/euler/2.kurt b/examples/euler/2.kurt new file mode 100644 index 0000000..a1c6a67 --- /dev/null +++ b/examples/euler/2.kurt @@ -0,0 +1,21 @@ +;; test +;; (format nil "~a~%" 4613732) + +;; https://projecteuler.net/problem=2 +;; Fibonacci serisi, +;; f(0) = 0, f(1) = 1 ve f(n) = f(n-1) + f(n-2) +;; şeklinde tanımlanmış bir dizidir. +;; 0 1 1 2 3 5 8 13 21 34 55 89... gibi +;; 4 milyondan küçük ve çift sayı olan ögelerin toplamını bulun. + +kütüphane "std.kurt" + +bel 0 store64 +0 1 döngü eş 4000000 < iken + eş 2 % 0 = ise + eş bel load64 + + bel değiş store64 + yap + değiş üst + +yap düş düş +bel load64 dump diff --git a/examples/euler/3.kurt b/examples/euler/3.kurt new file mode 100644 index 0000000..4589786 --- /dev/null +++ b/examples/euler/3.kurt @@ -0,0 +1,16 @@ +;; test +;; (format nil "~a~%" 6857) + +;; https://projecteuler.net/problem=3 +;; 13195 sayısının asal çarpanları 5, 7, 13 ve 29 dur. +;; 600851475143 sayısının en büyük asal çarpanını bulun. + +kütüphane "std.kurt" + +600851475143 2 döngü üst 1 > iken + 2eş % 0 = ise + değiş üst / değiş + yoksa + 1 + + yap +yap dump \ No newline at end of file diff --git a/examples/euler/4.kurt b/examples/euler/4.kurt new file mode 100644 index 0000000..08bc962 --- /dev/null +++ b/examples/euler/4.kurt @@ -0,0 +1,32 @@ +;; test +;; (format nil "~a~%" 906609) + +;; palindrom sayılar ters çevrildiğinde kendine eşit olan sayılardır. +;; iki basamaklı iki sayının çarpımından oluşan en büyük palindrom +;; 9009 = 91 x 99 dur. +;; üç basamaklı iki sayının çarpımından oluşan en büyük palindromu bulun. + +kütüphane "std.kurt" + +makro palindrome? (a -- bool) + eş + 0 döngü üst 0 > iken + 10 * üst 10 % + ;;eş dump + değiş 10 / değiş + yap değiş düş + = +son + +bel 0 store64 +100 döngü eş 1000 < iken + 100 döngü eş 1000 < iken + 2eş * eş palindrome? ise + eş bel load64 > ise + eş bel değiş store64 + yap + yap düş + 1 + + yap düş + 1 + +yap düş +bel load64 dump diff --git a/examples/euler/5.kurt b/examples/euler/5.kurt new file mode 100644 index 0000000..f23dcc3 --- /dev/null +++ b/examples/euler/5.kurt @@ -0,0 +1,31 @@ +;; test +;; (format nil "~a~%" 232792560) + +;; 2520, 1den 10a kadar tüm sayılara tam bölünen en küçük sayıdır. +;; 1den 20ye kadar tüm sayılara tam* bölünebilen en küçük sayıyı bulun. +;; * kalansız bölünen + +kütüphane "std.kurt" + +makro N 20 son +makro cevap bel son + +makro gcd (a b -- c) + döngü üst iken + üst % değiş + yap + değiş düş +son + +makro lcd (a b -- c) + 2eş * rot rot gcd / +son + +cevap 1 store64 +1 döngü eş N < iken + cevap + üst cevap load64 lcd + store64 + 1 + +yap +cevap load64 dump \ No newline at end of file -- cgit v1.2.3