added new examples
This commit is contained in:
21
examples/euler/2.kurt
Normal file
21
examples/euler/2.kurt
Normal 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
|
||||
Reference in New Issue
Block a user