3 ms·
That's a step up from loops with 'goto': (prog ((result '()) (i 0)) loop (when (>= i 5) (return (reverse result))) (wh
by lispm 10y ago
That's a step up from loops with 'goto':
(prog ((result '())
(i 0))
loop
(when (>= i 5)
(return (reverse result)))
(when (evenp i)
(push i result))
(incf i)
(go loop))