NB. 2 f/\y and 2 f~/\y for vector y -------------------------------------

f=: =/
(2 = /\y) -: 2 f\y=:    ?  101$2
(2 = /\y) -: 2 f\y=:    ?  100$1e6 
(2 = /\y) -: 2 f\y=:    (2^_8)*_1e3+?  101$2e3 
(2 = /\y) -: 2 f\y=: j./(2^_8)*_1e3+?2 101$2e3 

f=: </
(2 < /\y) -: 2 f\y=:    ?  101$2
(2 < /\y) -: 2 f\y=:    ?  100$1e6 
(2 < /\y) -: 2 f\y=:    (2^_8)*_1e3+?  101$2e3 

f=: <./
(2 <./\y) -: 2 f\y=:    ?  101$2
(2 <./\y) -: 2 f\y=:    ?  100$1e6 
(2 <./\y) -: 2 f\y=:    (2^_8)*_1e3+?  101$2e3

f=: <:/
(2 <:/\y) -: 2 f\y=:    ?  101$2
(2 <:/\y) -: 2 f\y=:    ?  100$1e6 
(2 <:/\y) -: 2 f\y=:    (2^_8)*_1e3+?  101$2e3

f=: >/
(2 > /\y) -: 2 f\y=:    ?  101$2
(2 > /\y) -: 2 f\y=:    ?  100$1e6 
(2 > /\y) -: 2 f\y=:    (2^_8)*_1e3+?  101$2e3

f=: >./
(2 >./\y) -: 2 f\y=:    ?  101$2
(2 >./\y) -: 2 f\y=:    ?  100$1e6 
(2 >./\y) -: 2 f\y=:    (2^_8)*_1e3+?  101$2e3

f=: >:/
(2 >:/\y) -: 2 f\y=:    ?  101$2
(2 >:/\y) -: 2 f\y=:    ?  100$1e6 
(2 >:/\y) -: 2 f\y=:    (2^_8)*_1e3+?  101$2e3

f=: +/
(2 + /\y) -: 2 f\y=:    ?  101$2
(2 + /\y) -: 2 f\y=:    ?  100$1e6 
(2 + /\y) -: 2 f\y=:    (2^_8)*_1e3+?  101$2e3
(2 + /\y) -: 2 f\y=: j./(2^_8)*_1e3+?2 101$2e3 

f=: +./
(2 +./\y) -: 2 f\y=:    ?  101$2
(2 +./\y) -: 2 f\y=:    ?  100$1e6 
(2 +./\y) -: 2 f\y=:    (2^_8)*_1e3+?  101$2e3 
(2 +./\y) -: 2 f\y=: j./(2^_8)*_1e3+?2 101$2e3 

f=: +:/
(2 +:/\y) -: 2 f\y=:    ?  101$2

f=: */
(2 * /\y) -: 2 f\y=:    ?  101$2
(2 * /\y) -: 2 f\y=:    ?  100$1e6 
(2 * /\y) -: 2 f\y=:    (2^_8)*_1e3+?  101$2e3
(2 * /\y) -: 2 f\y=: j./(2^_8)*_1e3+?2 101$2e3 

f=: *./
(2 *./\y) -: 2 f\y=:    ?  101$2
(2 *./\y) -: 2 f\y=:    ?  100$1e6 
(2 *./\y) -: 2 f\y=:    (2^_8)*_1e3+?  101$2e3 
(2 *./\y) -: 2 f\y=: j./(2^_8)*_1e3+?2 101$2e3 

f=: *:/
(2 *:/\y) -: 2 f\y=:    ?  101$2

f=: -/
(2 - /\y) -: 2 f\y=:    ?  101$2
(2 - /\y) -: 2 f\y=:    ?  101$1e6 
(2 - /\y) -: 2 f\y=:    (2^_8)*_1e3+?  101$2e3 
(2 - /\y) -: 2 f\y=: j./(2^_8)*_1e3+?2 101$2e3 

f=: %/
(2 % /\y) -: 2 f\y=:    ?  101$2
(2 % /\y) -: 2 f\y=:    ?  101$1e6 
(2 % /\y) -: 2 f\y=:    (2^_8)*_1e3+?  101$2e3
(2 % /\y) -: 2 f\y=: j./(2^_8)*_1e3+?2 101$2e3 

f=: ^/
(2 ^ /\y) -: 2 f\y=:    ?  101$2
(2 ^ /\y) -: 2 f\y=:    ?  101$13 
(2 ^ /\y) -: 2 f\y=:    (2^_8)*_1e3+?  101$2e3
(2 ^ /\y) -: 2 f\y=: j./(2^_8)*_1e3+?2 101$2e3 

f=: ^./
NB. (2 ^./\y) -: 2 f\y=:    ?  101$2
(2 ^./\y) -: 2 f\y=: 1+?101$13 
(2 ^./\y) -: 2 f\y=:    (2^_8)*_1e3+?  101$2e3
(2 ^./\y) -: 2 f\y=: j./(2^_8)*_1e3+?2 101$2e3

f=: ~:/
(2 ~:/\y) -: 2 f\y=:    ?  101$2
(2 ~:/\y) -: 2 f\y=:    ?  101$1e3 
(2 ~:/\y) -: 2 f\y=:    (2^_8)*_1e3+?  101$2e3
(2 ~:/\y) -: 2 f\y=: j./(2^_8)*_1e3+?2 101$2e3 

f=: |/
(2 | /\y) -: 2 f\y=:    ?  101$2
(2 | /\y) -: 2 f\y=:    ?  101$1e3 
(2 | /\y) -: 2 f\y=:    (2^_8)*_1e3+?  101$2e3
(2 | /\y) -: 2 f\y=: j./(2^_8)*_1e3+?2 101$2e3

f=: !/
(2 ! /\y) -: 2 f\y=:    ?  101$2
(2 ! /\y) -: 2 f\y=:    ?  101$113 
(2 ! /\y) -: 2 f\y=:    (2^_8)*_1e3+?  101$2e3
(2 ! /\y) -: 2 f\y=: j./(2^_8)*_1e3+?2 101$2e3

f=: <~/
(2 < ~/\y) -: 2 f\y=:    ?  101$2
(2 < ~/\y) -: 2 f\y=:    ?  100$1e6 
(2 < ~/\y) -: 2 f\y=:    (2^_8)*_1e3+?  101$2e3

f=: <:~/
(2 <:~/\y) -: 2 f\y=:    ?  101$2
(2 <:~/\y) -: 2 f\y=:    ?  100$1e6 
(2 <:~/\y) -: 2 f\y=:    (2^_8)*_1e3+?  101$2e3

f=: -~/
(2 - ~/\y) -: 2 f\y=:    ?  101$2
(2 - ~/\y) -: 2 f\y=:    ?  101$1e6 
(2 - ~/\y) -: 2 f\y=:    (2^_8)*_1e3+?  101$2e3
(2 - ~/\y) -: 2 f\y=: j./(2^_8)*_1e3+?2 101$2e3 

f=: !~/
(2 ! ~/\y) -: 2 f\y=:    ?  101$2
(2 ! ~/\y) -: 2 f\y=:    ?  101$113 
(2 ! ~/\y) -: 2 f\y=:    (2^_8)*_1e3+?  101$2e3
(2 ! ~/\y) -: 2 f\y=: j./(2^_8)*_1e3+?2 101$2e3 

y=: 1e4 ?@$ 2
((}:> }.) -: 2 > /\]) y
((}:>:}.) -: 2 >:/\]) y
((}:< }.) -: 2 < /\]) y
((}:<:}.) -: 2 <:/\]) y
((}:+.}.) -: 2 +./\]) y
((}:*.}.) -: 2 *./\]) y
((}:= }.) -: 2 = /\]) y
((}:~:}.) -: 2 ~:/\]) y

NB. commented out because times were too close (within 10%) and prone to fail
NB. y=: 1e6 ?@$ 2  
NB. >/ t=: 6!:2 '(}:+.}.)y',:'2+./\y'
NB. >/ t=: 6!:2 '(}:~:}.)y',:'2~:/\y'


4!:55 ;:'f t y'