($n,$k)=glob<>; @a=sort{$a-$b}<>; for(1..$n){ $c=R; if($a[0]==$_){ $_=shift@a; chop; $c=chop; } for(B,G,R,$c){ if($$_<=$R&&$$_<=$G&&$$_<=$B){ $d=$_; } } ++$$d; print$d; }