#!/usr/local/bin/perl
# assort.pl
# value.csv を整理して、指定された値になる4つの数の組合せを求める。
# 順列は無視。
# Written by ODASAN, 2003/05/18
#
$seconds = time();          # 計算時間を計算
open(INP,"value.csv");
open(OUT, ">work.txt");
@table=<INP>;
foreach $line (@table)  {
    chop($line);
    @line2=split(/,/,$line);
    @line3=sort @line2;
    $line4="";
    if ($line3[0] eq "")    {   $line4='0,';    }
    else {  $line4=$line3[0] . ','; }
    if ($line3[1] eq "")    {   $line4=$line4 . '0,';   }
    else {  $line4=$line4 . $line3[1] . ',';    }
    if ($line3[2] eq "")    {   $line4=$line4 . '0,';   }
    else {  $line4=$line4 . $line3[2] . ',';    }
    if ($line3[3] eq "")    {   $line4=$line4 . "0\n";  }
    else {  $line4=$line4 . $line3[3] . "\n";   }
    print (OUT $line4);
}
close(INP);
close(OUT);

# ---------

open(REI, "work.txt");
open(REO, ">assort.csv");
@list=<REI>;
@line5=sort @list;
$wk="0000";
foreach $str (@line5)   {
    if ($str ne $wk)    {
        print (REO $str);
        $wk=$str;
    }
}
close(REI);
close(REO);
unlink("work.txt");
$seconds = time() - $seconds;
print "計算時間は $seconds 秒でした。\n";
exit();