Multifactorials by 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