re: mini golf

[Eric Timme]

didn't officially submit any, but here are my two 46s

#!perl -nl
$a[$_]++while$_--;END{print for reverse@a}

#!perl -nl
map$a[$_]++,1..$_;END{print while$_=pop@a}