Perlゴルフ大好き

もう解答編が出てしまったが、結城浩さん出題の「ランダム・アルバイト・クイズ」への答案。

perl -ne'$r[$.<=5?$.:1+rand$.]=$_;END{map print,@r[1..5]}' <応募者が1行ずつ並んでいるファイル>

以前たほいやの嘘をシャッフルするのに使ったone linerと原理は似ている。