30分プログラム、その753。中央値の計算をしてみました。 もうちょっと複雑かと思いきや、わりと簡単でした。簡単だったので特に書くことがないです。 使い方 print mid(1,2,3),"\n"; # => 2 print mid(5,3,1),"\n"; # => 3 ソースコード #! /usr/bin/perl #…