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/4.kurt | |
| parent | 4367febcd70e9bb7538cd168917ec3c7d3b0a6f3 (diff) | |
added new examples
Diffstat (limited to 'examples/euler/4.kurt')
| -rw-r--r-- | examples/euler/4.kurt | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/examples/euler/4.kurt b/examples/euler/4.kurt new file mode 100644 index 0000000..08bc962 --- /dev/null +++ b/examples/euler/4.kurt @@ -0,0 +1,32 @@ +;; test +;; (format nil "~a~%" 906609) + +;; palindrom sayılar ters çevrildiğinde kendine eşit olan sayılardır. +;; iki basamaklı iki sayının çarpımından oluşan en büyük palindrom +;; 9009 = 91 x 99 dur. +;; üç basamaklı iki sayının çarpımından oluşan en büyük palindromu bulun. + +kütüphane "std.kurt" + +makro palindrome? (a -- bool) + eş + 0 döngü üst 0 > iken + 10 * üst 10 % + ;;eş dump + değiş 10 / değiş + yap değiş düş + = +son + +bel 0 store64 +100 döngü eş 1000 < iken + 100 döngü eş 1000 < iken + 2eş * eş palindrome? ise + eş bel load64 > ise + eş bel değiş store64 + yap + yap düş + 1 + + yap düş + 1 + +yap düş +bel load64 dump |