diff options
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 |