added new examples

This commit is contained in:
2024-08-22 00:24:19 +03:00
parent 4367febcd7
commit 4c8409da35
10 changed files with 203 additions and 6 deletions

21
examples/euler/2.kurt Normal file
View File

@@ -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