31 lines
551 B
Plaintext
31 lines
551 B
Plaintext
;; 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 |