Multifactorials by teebee(pooq)

do 184
pull a
b=pos(!,a)
s=1
do i=left(a,b-1)to 1 by-length(a)+b-1
s=s*i
end
say s
end

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page