diff options
| author | mRnea <akannemre@gmail.com> | 2024-08-22 00:24:19 +0300 |
|---|---|---|
| committer | mRnea <akannemre@gmail.com> | 2024-08-22 00:24:19 +0300 |
| commit | 4c8409da359cf0da14214ccc939c10ac759f76a5 (patch) | |
| tree | b9af87c1a47a401503992b280b5253d00957ceb6 /examples/euler/5.kurt | |
| parent | 4367febcd70e9bb7538cd168917ec3c7d3b0a6f3 (diff) | |
added new examples
Diffstat (limited to 'examples/euler/5.kurt')
| -rw-r--r-- | examples/euler/5.kurt | 31 |
1 files changed, 31 insertions, 0 deletions
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 |