19 lines
369 B
Plaintext
19 lines
369 B
Plaintext
;; test
|
||
;; (format nil "~a~%" 233168)
|
||
|
||
;; https://projecteuler.net/problem=1
|
||
;; 1000den küçük, 3 veya 5 in katı olan tüm sayıların toplamını bulun.
|
||
;; Örnek: 10 için 3 + 5 + 6 + 9 = 23
|
||
|
||
makro problem-girdi 1000 son
|
||
|
||
0 3 döngü eş problem-girdi < iken
|
||
eş 3 % 0 =
|
||
üst 5 % 0 =
|
||
| ise
|
||
eş rot + değiş
|
||
yap
|
||
1 +
|
||
yap düş
|
||
dump
|
||
|