Paste: x-y-table

Author: randy7
Mode: factor
Date: Wed, 7 Jan 2009 17:36:26
Plain Text |
:: axb ( seq1 seq2 -- seq-of-seq )

SYMBOL: x   f x set
SYMBOL: y   f y set
SYMBOL: vector V{ } clone vector set

seq1 [ x set seq2 [ y set x get y get 2array vector get swap suffix vector set
] each ] each 
vector get >array ;

! I must be reinventing the wheel here, since it's basically a double for loop. actually exactly a double for loop. please annotate with the map-like combinator that I've missed. thanks :)

New Annotation