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:
Bisu,
chogaling,
DaHanG,
dionisy_cn,
Elektroputzi,
Gnomerhawker,
hondasupersport,
IGT,
Illusions,
IX_Demon_117_IX,
krathkor,
m3liodas,
NaglFarfar,
pratclot,
Rhaegar86,
SayyadinaAtreides,
Schnorki,
ShadowHeart,
varangium,
Yandex [Bot] and 326 guests.
ceving
175