I just realized I used Ric's midpoint instead of your mean. That's odd.

midpt2=:[: -: [: <: #

Linda



-----Original Message-----
From: programming-boun...@forums.jsoftware.com
[mailto:programming-boun...@forums.jsoftware.com] On Behalf  Of Linda Alvord
Sent: Tuesday, March 12, 2013 12:20 PMhat
To: programm...@jsoftware.com
Subject: Re: [Jprogramming] Find the median

F leaves out  #  and  <:  and seems to work:

    medianRM 8 1 6 7
6.5
   f=: 13 :' -:+/  ((<.,>.) midpt2 y){/:~ y' 
   f 8 1 6 7
6.5
   medianRM
([: ([: ([: (<. , >.) -:) <:) #) ([: mean {) /:~
   f
[: -: [: +/ ([: (<. , >.) midpt2) { /:~
   
 Am I missing something?

Linda


-----Original Message-----
From: programming-boun...@forums.jsoftware.com
[mailto:programming-boun...@forums.jsoftware.com] On Behalf Of Linda Alvord
Sent: Tuesday, March 12, 2013 5:45 AM
To: programm...@jsoftware.com
Subject: Re: [Jprogramming] Find the median

Raul,  This didn't lead anywhere new either:

   mean=: +/ % #
   medianRM=:([: ([: ([: (<. , >.) -:) <:) #) ([: mean {) /:~
   medianRM 8 1 6 7
6.5
   medianRM
([: ([: ([: (<. , >.) -:) <:) #) ([: mean {) /:~
   
Linda


-----Original Message-----
From: programming-boun...@forums.jsoftware.com
[mailto:programming-boun...@forums.jsoftware.com] On Behalf Of Raul Miller
Sent: Sunday, March 10, 2013 8:49 PM
To: programm...@jsoftware.com
Subject: Re: [Jprogramming] Find the median

On Sun, Mar 10, 2013 at 6:29 PM, km <k...@math.uh.edu> wrote:
> The median of list 1 2 2 4 6 is 2 ("middle" value of sorted  list), 
> the
median of 2 2 4 6 is 3 (average of two "middle" values).  Write a verb to
find the median of a sorted list of numbers.

Here's one implementation of this definition of median:

mean=: +/ % #
median=: (<.,>.)@-:@<:@#  mean@:{  /:~

--
Raul
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to