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:
dar0,
Drakenden,
Flyhorse,
foul_blank,
Furcht,
gonso0,
Google Feedfetcher,
kastle,
LackofDiscipline,
m3liodas,
Misaki,
roundabout,
Severedxone,
TeaWolf,
uuee,
xlong and 873 guests.
ceving
153