I usually using this script
expand=:4 : '((I. x) i. i. # x){y,0'
a
1 1 0 1 0 1
b
1 2 3 4
a expand b
1 2 0 3 0 4
as same as bit of a and number of bmasato Shimura (Japan APL Association) ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
