RosettaCodeData/Task/Long-multiplication/PicoLisp/long-multiplication.l

(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)))))) ) )
Just another update 2015-02-20 00:35:01 -05:00			`(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)))))) ) )`