my 41:
@F[y///c]++for glob"{,1}"x pop;print"@F\n"
@F[eval]++for glob"{,+1}"x pop;print"@F\n"
print"@{[$w=1,map$w*=$_/--$;,-pop..-1]}\n"
my 42:
@F[y///c]++for glob"{,1}"x~-pop;print"@F\n"
@F[eval]++for glob"{,+1}"x~-pop;print"@F\n"
Also fun are:
45 s/^/0 /,s/\d+/$&+$'/egfor($_="1\n")x pop;print
48 @F=1;push@F,$F[-1]*$_/--$;for-pop..-1;print"@F\n"
