I found one way of improving the speed, by going from explicit to tacit:
SymbolExist=: 3 : 0 (0 s: 0)~:(5 s: _6 s: i.0 s: 0)i.<y ) ts'SymbolExist''zsdfb dfvb dfb''' 0.795992 1.96092e8 The tacit equivalent (makes the function bigger but works as long as you don't add to the symbol table, if you do then you need to fix again) SymbolExist=: 13 : 0 (0 s: 0)~:(5 s: _6 s: i.0 s: 0)i.<y ) ts'SymbolExist''zsdfb dfvb dfb''' 0.197606 1408 I have: 0 s: 0 1050400 ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
