中央値の計算

Perl 30分プログラム

30分プログラム、その753。中央値の計算をしてみました。
もうちょっと複雑かと思いきや、わりと簡単でした。簡単だったので特に書くことがないです。

使い方

print mid(1,2,3),"\n"; # => 2
print mid(5,3,1),"\n"; # => 3

ソースコード

#! /usr/bin/perl
# -*- mode:perl; coding:utf-8 -*-
use strict;
use warnings;
use Data::Dumper;
use integer;

sub mid(@){
    my (@xs) = @_;
    my @sorted = sort @_;
    @sorted[@sorted / 2];
}

参考