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

16
examples/euler/3.kurt Normal file
View File

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