blob: f23dcc3cb71fe5ce2c044e137e8aceefba51a4ca (
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
|
;; 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
|
