Sujet : Fibonacci
De : No_spamming (at) *nospam* noWhere_7073.org (B. Pym)
Groupes : comp.lang.lispDate : 24. Jun 2024, 21:00:46
Autres entêtes
Organisation : A noiseless patient Spider
Message-ID : <v5cfos$12orp$1@dont-email.me>
User-Agent : XanaNews/1.18.1.6
David Steuber wrote:
(loop with a = 1 with b = 1 do (print (shiftf a b (+ a b))))
Gauche Scheme
(do ((a 1 b) (b 1 (+ a b))) (#f) (print a))