Yukicoder No.5 数字のブロック

date: 2016-09-24
see also: http://yukicoder.me/problems/no/5

私の提出 ($59$byte):

$l=<>;<>;$a+=0<=($l-=$_)for sort{$a<=>$b}split$",<>;print$a

tailsさんの提出 ($46$byte) http://yukicoder.me/submissions/71789:

$-=<>+1;<>;print~~grep$--=$_,sort{$a-$b}glob<>

split$", $\to$ glob
$a<=>$b $\to$ $a-$b
for $\to$ grep
grepにblock {$--=$_}でなくexpr $--=$_を渡す
~~はlistからその長さを得る