Yukicoder No.706 多眼生物の調査

問題

$S_1, \dots, S_N$の最頻値に含まれる ^ の数を答えよ

実装

bash

私の提出 (57byte):

read a;sort|uniq -c|sort -n|awk 'END{print length($2)-2}'

tailsさんに48byte (https://yukicoder.me/submissions/269967) にまで縮められてしまった。

$1$行読み飛ばしは read a でなく単に read でよい
$2 を取り出すのと -2 するのを tr -cd ^ でまとめる

perl

%20さんのperl (38byte) (https://yukicoder.me/submissions/270027):

++$a[++$$_][y/^//]for<>;print$#{pop@a}

「典型idiom使っただけ」って聞こえてきたけどperl弱者には厳しい。

@a は配列(のreference)の配列。出現回数$i$と文字列長$j$に対し$a[$i][$j]はそのようであるかの真偽値
$$_ は変数 $_ のdereference (perldoc)。文字列に対し次のような挙動をするため辞書のように使える (すごい)

$ echo a b c d a b a b c | xargs -n1 | perl -e 'print ++ $$_, $", $_ for<>'
a
b
c
d
a
b
a
b
c

y/^// は $_ 中の ^ の数を数える
++ $a[ ++ $$_ ][ y/^// ] は文字列長 y/^// のものが ++ $$_ 回出現したことを表すため 1 を代入する。例として次はsample 1のloop終了時点でのprint Dumper @a;の結果

$VAR1 = undef;
$VAR2 = [
          1,
          1,
          1,
          1,
          1,
          undef,
          1,
          1,
          undef,
          undef,
          1,
          1
        ];
$VAR3 = [
          undef,
          undef,
          undef,
          undef,
          1,
          undef,
          1
        ];

pop @a は末尾の配列(の参照)を返し、$#{...}はその長さを取り出す