blob: e3a3032c14cdcc586a300eab9e814ff8a4ce5d31 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
;; 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
|
