s c h e m e w i k i . o r g

/ Scm.ColonMatrixExpansion

This Web


WebHome 
WebChanges 
WebTopicList 
WebStatistics 

All Webs


Chicken
Cookbook
Erlang
Know
Main
Plugins
Sandbox
Scm
TWiki  

Schematics


Schematics Home
TWiki Shorthand

Offsite Links


Schemers.org
Lambda the Ultimate
twiki.org
(:matrix x (index i j) M)

=>

(let ((m matrix) (rows #f) (cols #f)) (set! rows (matrix-rows m)) (set! cols (matrix-cols m)) (let loop ((i 0) (j 0)) (if (< i rows) (let ((x (matrix-ref m i j)) (i+1 (+ i 1)) (j+1 (+ j 1)) (wrap? #f)) (set! wrap? (>= j+1 cols)) (if #t (begin (do-payload ...) (loop (if wrap? i+1 i) (if wrap? 0 j+1))))))))

 
 
© 2004 by the contributing authors. / You are Main.guest