Re: dividing numbers
- To: mathgroup at smc.vnet.net
- Subject: [mg53966] Re: [mg53943] dividing numbers
- From: DrBob <drbob at bigfoot.com>
- Date: Sat, 5 Feb 2005 03:16:13 -0500 (EST)
- References: <200502040912.EAA01124@smc.vnet.net>
- Reply-to: drbob at bigfoot.com
- Sender: owner-wri-mathgroup at wolfram.com
Here are a couple of solutions, but they only work for one-digit divisors.
f[divisor_][{a_,b_},c_]:=
{Quotient[10b+c,divisor],Mod[10b+c,divisor]}
longDivide[numerator_,divisor_]:=Rest@FoldList[f[
divisor],{0,0},IntegerDigits@numerator]
longDivide[20839,9]
{{0,2},{2,2},{3,1},{1,4},{5,4}}
or
Clear[f]
f[divisor_][{a_, b_}, c_] :=
PadLeft[IntegerDigits[10*b + c, divisor], 2]
longDivide[20839, 9]
{{0, 2}, {2, 2}, {3, 1}, {1, 4}, {5, 4}}
Bobby
On Fri, 4 Feb 2005 04:12:40 -0500 (EST), <fartous at mail15.com> wrote:
> Hi
> i have a small question
> we know how to divide numbers using the elementary school Long procedure, suppose
> mathematica is a small child and i want him to show me his procedure step by step
> such as this:
> input: 20839 , 9
> output:
> 1- 2/9 ->0 mod=2
> 2- 20/9 ->2 mod=2
> 3- 28/9 ->3 mod=1
> 4- 13/9 ->1 mod=4
> 5- 49/9 ->5 mod=4
> so the final result will be 2315+(4/9)
> how to implement this in mathematica
> jack
>
>
>
>
--
DrBob at bigfoot.com
www.eclecticdreams.net
- References:
- dividing numbers
- From: fartous@mail15.com
- dividing numbers