Add your solutions to this list
---- Zero-based ----
45 Chris Dolan
-l s/\d+/$&+$'/eg,s/^/1 /for($_=1)x+pop;print
49 Chris Dolan (non-regex)
map$x/=@_=(1,map$_+$_[++$x],@_),0..pop;print"@_
"
81 Chris Dolan (factorials)
@_=map{$t=$n;$a=1;$a*=$t--/($n-$t)while$t>$_&&$n-$t<$_;$a}0..($n=pop);print"@_
"
---- One-based ----
48 Jasper McCrea
-l s/\S+/$&+$'/eg&s/^/1 /for($_)x pop;chop;print
49 Chris Dolan
-l s/\d+/$&+$'/eg,s/^/1 /for($_=1)x(-1+pop);print
49 Chris Dolan
map$x/=@_=(1,map$_+$_[++$x],@_),1..pop;print"@_
"
