RosettaCodeData/Task/Long-multiplication/Ursala/long-multiplication.ursala
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

11 lines
216 B
Text

successor = ~&a^?\1! ~&ah?/~&NfatPRC ~&NNXatPC
sum = ~&B^?a\~&Y@a ~&B?abh/successor@alh2fabt2RC ~&Yabh2Ofabt2RC
product = ~&alrB^& sum@NfalrtPXPRCarh2alPNQX
x = 18446744073709551616
#show+
y = %nP product@iiX x