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