Contents

(define cartesian-product 
   [ ] _ -> [ ]  
   [X | Y] Z -> (append (all-pairs-using-X X Z) (cartesian-product Y Z)))

(define all-pairs-using-X 
   _ [ ] -> [ ] 
   X [Y | Z] -> [[X Y] | (all-pairs-using-X X Z)]) 
   

   
    
      
    
      







 

Version data entries

3 entries across 3 versions & 1 rubygems

Version	Path
shen-ruby-0.12.1	shen/release/test_programs/cartprod.shen
shen-ruby-0.12.0	shen/release/test_programs/cartprod.shen
shen-ruby-0.11.0	shen/release/test_programs/cartprod.shen