#!/usr/local/bin/perl
# order.pl
# value.csv を整理して、指定された値になる4つの数の組合せを求める。
# 順列を考慮する。。
# Written by ODASAN, 2003/05/18
#
$seconds = time();          # 計算時間を計算
open(INP,"value.csv");
open(OUT, ">order.csv");
@list=<INP>;
@line=sort @list;
$wk="0000";
foreach $str (@line)    {
    if ($str ne $wk)    {
        print (OUT $str);
        $wk=$str;
    }
}
close(INP);
close(OUT);
$seconds = time() - $seconds;
print "計算時間は $seconds 秒でした。\n";
exit();