;(+/\1,2>:/\r) <@(<./\)/. r
10 7 5 5 5 1 1 8 2 2
--- Mikl Kurkov <[EMAIL PROTECTED]> wrote:
> I need function that for each value in vector return this value if
> previous was bigger and return closest minimum if previous data is lesser.
>
> Examlpe:
>
> d =: 10 7 5 6 7 1 9 8 2 4 NB. data
> r =: 10 7 5 5 5 1 1 8 2 2 NB. result
>
> NB. What I have now is
> fn1 =: ({:@])`[ @. ( [ < [EMAIL PROTECTED])
> fn2 =: [ , [EMAIL PROTECTED] , fn1
> fn =: (}. @: (fn2/) @:(,{:)@: |.) f.
>
> r -: fn d
> 1
>
> But it realy slow and I think it could be optimized.
> So what would you suggest?
>
> Thanks in advance.
>
> --
> Mikl
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
>
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
