Welcome to the CHICKEN Scheme pasting service

generalized-arrays (new egg?) added by DeeEff on Thu Oct 19 04:30:13 2017

#;1> (use generalized-arrays storage-classes)
#;2> (define vv (make-array f64vector-storage-class #(3 3)))
#;3> vv
#a2f64((6.92344724511615e-310 2.75164205365948e-135 6.92344724516783e-310) (6.9234451258684e-310 6.95329674947669e-310 6.92344515884076e-310) (6.92344506971408e-310 4.94065645841247e-324 6.95329674648463e-310))
#;4> (array-tabulate! (compose add1 (cute array-index->storage-index vv <>)) vv)
#a2f64((1.0 2.0 3.0) (4.0 5.0 6.0) (7.0 8.0 9.0))
#;5> vv
#a2f64((1.0 2.0 3.0) (4.0 5.0 6.0) (7.0 8.0 9.0))
#;6>
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
What's the procedure that returns the cdr of a cdr?
Visually impaired? Let me spell it for you (wav file) download WAV