Long multiplication: Difference between revisions

Natural method: initialize { := v };

Natural method: _v { @v };

Natural classMethod: newValues { super new };

Natural classMethod: newFrom { asList self newValues };

ListBuffer initValue(@v size v size + 1 +, 0) ->l

i v at dup ->x 0 &= ifTrueifEq: [ continue ]

i j + 1 - ->k

j @v at x * + l at(k) + 1000000000 /mod swapk rot l put(k)

l put(k 1 +) swap l put

l dup freeze Natural newValues ;

@v size 1 - loop: i [ @v at(@v size i -) <<wjp(0, Stream.JUSTIFY_RIGHT, 8) ] ;</lang>