Actual Factorial

gistfile1.txt

#Convert to Base1
u\{0(\d*)(_*)\}/u{$1mult10{$2}}/
u\{1(\d*)(_*)\}/u{$1mult10{$2}_}/
u\{2(\d*)(_*)\}/u{$1mult10{$2}__}/
u\{3(\d*)(_*)\}/u{$1mult10{$2}___}/
u\{4(\d*)(_*)\}/u{$1mult10{$2}____}/
u\{5(\d*)(_*)\}/u{$1mult10{$2}_____}/
u\{6(\d*)(_*)\}/u{$1mult10{$2}______}/
u\{7(\d*)(_*)\}/u{$1mult10{$2}_______}/
u\{8(\d*)(_*)\}/u{$1mult10{$2}________}/
u\{9(\d*)(_*)\}/u{$1mult10{$2}_________}/
u\{(_*)\}/$1/

#Convert to base 10
d\{((_{10})*)(\d*)\}/d{over10{$1}0$3}/
d\{((_{10})*)_(\d*)\}/d{over10{$1}1$3}/
d\{((_{10})*)__(\d*)\}/d{over10{$1}2$3}/
d\{((_{10})*)___(\d*)\}/d{over10{$1}3$3}/
d\{((_{10})*)____(\d*)\}/d{over10{$1}4$3}/
d\{((_{10})*)_____(\d*)\}/d{over10{$1}5$3}/
d\{((_{10})*)______(\d*)\}/d{over10{$1}6$3}/
d\{((_{10})*)_______(\d*)\}/d{over10{$1}7$3}/
d\{((_{10})*)________(\d*)\}/d{over10{$1}8$3}/
d\{((_{10})*)_________(\d*)\}/d{over10{$1}9$3}/
d\{over10\{\}(\d*)\}/$1/

#Multiply by 10.
mult10\{(_*)\}/$1$1$1$1$1$1$1$1$1$1/

#Divide by 10. Intentionally leaves a over10{} left over
over10\{(_*)(_{10})(:(_*))?\}/over10{$1:_$4}/
over10\{_{0,9}(:?(_+))}/$2/

#Multiply
mult\{(_*)_\}\{(_*)}/mult{$1}{$2}$2
/mult\{\}\{.*?\}//

#Subtract
sub\{(_*)_\}\{(_*)_\}/sub{$1}{$2}/
sub\{(_*)\}\{\}/$1/
sub\{\}\{(_*)\}/$1/

#Factorial
fact\{(\d+)\}/fact\{u\{$1\}\}/
fact\{(_+)\}/fact{$1:$1}/
fact\{(_*)_([_:,]+)\}/fact{$1,$1_$2}/
fact\{,(_+)((,_*)*):(_+)\}/fact{$2:mult{$1}{$4}}/
fact\{,_*:(_*)}/d{$1}/

#Code!
fact{7}