Code: Select all
(dotimes (i 9)
(let ((tt (+ 20 (* i 3))))
(if (> tt 24)
(setq tt (- tt 24)))
(insert (format "%d\n" tt))))
Code: Select all
20
23
2
5
8
11
14
17
20
Code: Select all
(dotimes (i 9)
(let ((tt (+ 20 (* i 3))))
(if (> tt 24)
(setq tt (- tt 24)))
(insert (format "%d\n" tt))))
Code: Select all
20
23
2
5
8
11
14
17
20
Hide ads
Users browsing Forums:
Amoel86,
bbb0,
Bing [Bot],
Clapton,
Dasdingoman,
dejavue,
IIFOXII,
illdizposed,
k88lech,
Kaforces,
krzysad2,
m3liodas,
notDeadYet,
ShadowHeart,
Tbot [Bot],
TeaWolf,
Zap and 192 guests.
ceving
153