((( [logo]Racket )))Need Help?
AboutDownloadDocumentationPLaneTCommunityLearning

[racket] strange loops

From: Marijn (hkBst at gentoo.org)
Date: Tue Mar 6 08:28:03 EST 2012		 
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

On 06-03-12 14:23, Marijn wrote:

>> (define (fa) (let ((squares (for/vector ((i (in-range 1 10000)))
>> (* i i)))) (let/ec return (let next-sum ((sum 3)) (let ((limit-z 
>> (quotient sum 3))) (let next-z ((z 1)) (if (= z limit-z)
>> (next-sum (add1 sum)) (for ((y+z (in-vector squares)))

Sorry, thunderbird seems to have garbled your program :(

Marijn
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v2.0.18 (GNU/Linux)
Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org/

iEYEARECAAYFAk9WEOMACgkQp/VmCx0OL2wrXgCeL4BD32Vl4ZXYK7zgVG31e3NB
MEMAn3tOcIV+DgH/x4YOps2Z8Eiw4ZwH
=osma
-----END PGP SIGNATURE-----
Posted on the users mailing list.