It's a very interesting technique: to mingle multiple
arguments into u`v/ gerund.
yy=: (+ 2000+0 12&([EMAIL PROTECTED]:))`(+ <:@i.)/
(yy -: yr) 3 4 15
1
yy 3 4 15
2003 2003 2003 2003 2003 2003 2003 2003 2003 2004 2004 2004 2004 2004 2004
> From: Raul Miller <[EMAIL PROTECTED]>
>
> yr=: 2000 + [EMAIL PROTECTED]: {. +/@}. {. +`(0,12 # i.@:>[EMAIL
> PROTECTED]&(%&12))/
>
> (yr -: year) 3 4 15
> 1
> From: Brian Schott <[EMAIL PROTECTED]>
>
> With the list's help I have produced a workable
> routine for the problem. For closure I post here the current
> script. I had an embarrassingly difficult time crafting the
> verb "year", btw, but enjoyed the challenge. Thank you for
> your help.
> yrsmths =: 12 12&#:
> NB.* year v
> NB. monad triple: start year after 2000
> NB. start month (eg. April = 4)
> NB. number of months
> NB. year 3 4 15 is start at 2003-April and contain 15 months
> year =: 2000+{.+({:{.<:@(1&{)|.((12&[EMAIL PROTECTED], 12&#)&>:@{.)& [EMAIL
> PROTECTED]:)
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
