apply at depth

Community Support
1

can i express this as a single call to dot ?

x:((“0”;“zero”);(“1”;“one”))

@[;0;-7h$]'x

((0;“zero”);(1;“one”))

.[x;0N 0;-7h$]

'length

ta, jack  

2

q)(@[;0;-7h$]each x)~.[x;(::;0);-7h$]

1b

3

> q)(@[;0;-7h$]each x)~.[x;(::;0);-7h$]

> 1b

and my crude timing shows the second term is faster