10 lines
223 B
Rexx
10 lines
223 B
Rexx
|
say multiply(123456789,987654321)
|
||
|
|
say multiply_long(123456789,987654321)
|
||
|
|
::routine multiply
|
||
|
|
use arg x, y
|
||
|
|
return x *y
|
||
|
|
::routine multiply_long
|
||
|
|
use arg x, y
|
||
|
|
Numeric Digits (length(x)+length(y))
|
||
|
|
return x *y
|