blob: 08bc96222c16d3c3f8ab3c7a93a3df14b74f6764 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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
|
