sweetpotato #7635(2008/09/15 12:09 GMT) [ Perl ] Rating0/0=0.00
バケットソートです。ワンライナーで書いてみました。 最大値と個数は無視します。
1
($n,$x,$c,@s)=@ARGV;$b[$_-$n]++for@s;$b[$_]&&print(($_+$n.' ')x$b[$_])for 0..$#b
Rating0/0=0.00-0+
[ reply ]
sweetpotato #7635() [ Perl ] Rating0/0=0.00
Rating0/0=0.00-0+
[ reply ]