hopefully no more missing,
lr =: 3 : '5!:5 < ''y'''
daFx =: (0 : ) 1 : ('a =. (''2 : ('', (lr m) , '') u'') label_. 1 : (''u
1 :'' , quote a)')
tieAD =: 'u tieA v' daF
tieADs =: 'v tieA u' daF
eval_z_ =: 1 : ' a: 1 : m'
isNoun_z_ =: (0 = 4!:0 ( :: 0:))@:<
ar =: 1 : '5!:1 <''u'''
aar =: 1 : 'if. isNoun ''u'' do. q =. m eval else. q =. u end. 5!:1 < ''q'' '
isgerund =: 0:`(0 -.@e. 3 : ('y (5!:0)';'1')"0)@.(0 < L.) :: 0:
isgerundA =: 1 : ' if. isNoun ''u'' do. isgerund m else. 0 end.'
tie =: 2 : 'if. u isgerundA do. if. v isgerundA do. m ar , v ar else. m , v ar
end. else. if. v isgerundA do. u ar , n else. u ar , v ar end. end. '
tieA =: 2 : 'if. u isgerundA do. if. v isgerundA do. m ar , v ar else. m , v
aar end. else. if. v isgerundA do. u aar , n else. u aar , v aar end. end. '
daF =: 1 : ('a =. (''2 : '', (quote m) , '' u'') label_. 1 : (''u 1 :'' ,
quote a)')
tieD =: 'u tie v' daF
tieDs =: 'v tie u' daF
Ug =: 2 : 'a =. (m { n) if. 1 =#a do. a 5!:0 end.'
MA1 =: (1 : 0)
'`ff' =. {: m
f =. 1 : ('U =. Ug m'; ff )
(}: m) f
)
ncS =: 3 : 'z=.y 1 :y label_. 4!:0 <''z'' ' ::(_2:)
lrA =: 1 : '5!:5 < ''u'''
eval =: 1 : ' a: 1 : m'
ismodstring =: 1 : 'if. 0 = 4!:0 <''u'' do. try. q =. m eval catch. 0 return.
end. 1 2 e.~ 4!:0 <''q''else. 0 end. '
ncA =: 1 : 'if. 3 ~: 4!:0 < ''u'' do. if. m ismodstring do. m ; ncS m else. 0
;~ ''('', m lrA ,'')'' end. else. 3;~ ''('', u lrA ,'')'' end.'
aatrain =: 0 daFx
if. 0 -.@-: 1{:: a =. v ncA do. n =. ,: a end.
if. 1 = 1 {:: (;: inv {."1 a =.(u ncA , n)) ncA do. a aatrain else.
(;: inv {."1 a) eval end.
)
MA =: 'tieD MA1' aatrain
MA3 =: 'tieD tieD' MA
NB. fork definitions
F =: '0 U 1 U 2 U' MA3
F =: '(i.3) U `:6' MA3
F =: 'm `:6' MA3
conjoin =: '(0 (joinstring ;/) }. i.@# m) U `:6' MA
----- Original Message -----
From: Brian Schott <[email protected]>
To: Programming forum <[email protected]>
Sent: Saturday, July 30, 2016 12:37 PM
Subject: Re: [Jprogramming] multiadverb (double adverb) improvements
Yes, and lr is undoubtedly defined in terms of 5!: but I don't have it.
On Sat, Jul 30, 2016 at 12:24 PM, 'Pascal Jasmin' via Programming <
[email protected]> wrote:
> sorry for missing definitions
>
> daFx =: (0 : ) 1 : ('a =. (''2 : ('', (lr m) , '') u'') label_. 1 : (''u
> 1 :'' , quote a)')
>
> tieAD =: 'u tieA v' daF
> tieADs =: 'v tieA u' daF
>
>
>
> isgerund +`''
> 1
> isgerund 3;5
> 0
> isgerund 0 ; 'asdfd'
> 0
>
> isgerund +/@]`+`-:
> 1
>
>
>
>
>
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
