Averages/Median: Difference between revisions
Content deleted Content added
→{{header|J}}: Replaced solution with variants by Keith Smilie and Ric Sherlock |
Underscore (talk | contribs) m Alphabetized languages. |
||
Line 428:
{my @a = sort @_;
return ($a[(@a - 1) / 2] + $a[@a/2]) / 2;}</lang>
=={{header|Scheme}}==▼
{{trans|Python}}▼
Using Rosetta Code's [[Bubble_Sort#Scheme|bubble-sort function]]▼
<lang Scheme>▼
(define (median l)▼
(* (+ (list-ref (bubble-sort l >) (round (/ (- (length l) 1) 2)))▼
(list-ref (bubble-sort l >) (round (/ (length l) 2)))) 0.5))▼
</lang>▼
Using [http://srfi.schemers.org/srfi-95/srfi-95.html SRFI-95]:▼
<lang Scheme>▼
(define (median l)▼
(* (+ (list-ref (sort l less?) (round (/ (- (length l) 1) 2)))▼
(list-ref (sort l less?) (round (/ (length l) 2)))) 0.5))▼
</lang>▼
=={{header|Perl 6}}==
Line 517 ⟶ 501:
p median([5,4,2,3]) # => 3.5
p median([3,4,1,-8.4,7.2,4,1,1.2]) # => 2.1</lang>
▲=={{header|Scheme}}==
▲{{trans|Python}}
▲Using Rosetta Code's [[Bubble_Sort#Scheme|bubble-sort function]]
▲<lang Scheme>
▲(define (median l)
▲ (* (+ (list-ref (bubble-sort l >) (round (/ (- (length l) 1) 2)))
▲ (list-ref (bubble-sort l >) (round (/ (length l) 2)))) 0.5))
▲</lang>
▲Using [http://srfi.schemers.org/srfi-95/srfi-95.html SRFI-95]:
▲<lang Scheme>
▲(define (median l)
▲ (* (+ (list-ref (sort l less?) (round (/ (- (length l) 1) 2)))
▲ (list-ref (sort l less?) (round (/ (length l) 2)))) 0.5))
▲</lang>
=={{header|Slate}}==
| |||