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

/ Scm.NewSRFI42Generator

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
(define-syntax :matrix (syntax-rules (index) ((:matrix cc x (index i j) mexpr) (:do cc (let ((m mexpr) (rows #f) (cols #f)) (set! rows (matrix-rows m)) (set! cols (matrix-cols m))) ((i 0) (j 0)) (< i rows) (let ((x (matrix-ref m i j)) (i+1 (+ i 1)) (j+1 (+ j 1)) (wrap? #f)) (set! wrap? (>= j+1 cols))) #t ((if wrap? i+1 i) (if wrap? 0 j+1)))) ((:matrix cc x mexpr) (:matrix cc x (index i j) mexpr))))

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