Just another update

2015-02-20 00:35:01 -05:00 · 2015-02-20 00:35:01 -05:00 · 00a190b0a6
commit 00a190b0a6
parent a25938f123
6591 changed files with 94363 additions and 23227 deletions
--- a/Task/Long-multiplication/PicoLisp/long-multiplication.l
+++ b/Task/Long-multiplication/PicoLisp/long-multiplication.l
@ -1,2 +1,5 @@
-: (* (** 2 64) (** 2 64))
-> 340282366920938463463374607431768211456
+(de multi (A B)
+   (setq A (format A) B (reverse (chop B)))
+   (let Result 0
+      (for (I . X) B
+         (setq Result (+ Result (* (format X) A (** 10 (dec I)))))) ) )