Path: ...!npeer.as286.net!npeer-ng0.as286.net!3.eu.feeder.erje.net!feeder.erje.net!news.in-chemnitz.de!news.swapon.de!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: "B. Pym" <No_spamming@noWhere_7073.org>
Newsgroups: comp.lang.lisp
Subject: Fibonacci
Date: Mon, 24 Jun 2024 19:00:46 -0000 (UTC)
Organization: A noiseless patient Spider
Lines: 7
Message-ID: <v5cfos$12orp$1@dont-email.me>
MIME-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Injection-Date: Mon, 24 Jun 2024 21:00:46 +0200 (CEST)
Injection-Info: dont-email.me; posting-host="6992755104a3d7a4ecae094c19f92520";
	logging-data="1139577"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX19neBXSYDsgVFOj1Ml5rdyP"
User-Agent: XanaNews/1.18.1.6
Cancel-Lock: sha1:Lg1VFUe20O3Ncf5FKaKYV6o16JQ=
Bytes: 1060

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))