Integer long division: Difference between revisions

=={{header|C++}}==

{{libheader|GMP}}

 

#include <iomanip>

std::cout << '\n';

}

 

{{out}}

 

=={{header|Common Lisp}}==

(defun $/ (a b)

"Divide a/b with infinite precision printing each digit as it is calculated and return the period length"

() ))

 

{{out}}

<pre>

partly because the Unicode "overline" might not display properly.

In case the overline style is preferred, simply use the following function in the obvious way:

 

def idivide($j):

. as $i

"Period is \($r|length)\n" ;

 

{{out}}

<pre>

 

=={{header|Julia}}==

dpart, remainders, r = "", Dict{BigInt, Int}(), BigInt(numr) % denr

while (r != 0) && !haskey(remainders, r)

 

testrepeatingdecimals()

<pre>

 

{{trans|Wren}}

{{libheader|bignum}}

import bignum

 

echo &"{a}/{b} = {repr}"

echo &"Cycle is <{cycle}>"

 

{{out}}

 

=={{header|Perl}}==

use warnings;

use utf8;

 

printf "%10s Period is %5d : %s\n", $_, long_division split '/'

{{out}}

<pre> 0/1 Period is 0 : 0

=={{header|Phix}}==

Translation of the Python code linked to by the Wren entry, modified to cope with negatives.

<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>

<span style="color: #008080;">procedure</span> <span style="color: #000000;">test</span><span style="color: #0000FF;">(</span><span style="color: #004080;">sequence</span> <span style="color: #000000;">s</span><span style="color: #0000FF;">)</span>

<span style="color: #0000FF;">{</span><span style="color: #000000;">476837158203125</span><span style="color: #0000FF;">,</span><span style="color: #000000;">9223372036854775808</span><span style="color: #0000FF;">}}[</span><span style="color: #000000;">1</span><span style="color: #0000FF;">..$-(</span><span style="color: #7060A8;">machine_bits</span><span style="color: #0000FF;">()=</span><span style="color: #000000;">32</span><span style="color: #0000FF;">)]</span>

<span style="color: #7060A8;">papply</span><span style="color: #0000FF;">(</span><span style="color: #000000;">tests</span><span style="color: #0000FF;">,</span><span style="color: #000000;">test</span><span style="color: #0000FF;">)</span>

{{out}}

The results below are on 64 bit, not surprisingly the last example is inaccurate past 16 significant digits on 32 bit (ditto p2js), and hence omitted.

=={{header|Raku}}==

It's a built-in.

printf "%35s - Period is %-5s: %s%s\n", $rat.nude.join('/'), .[1].chars, .[0], (.[1].comb Z~ "\c[COMBINING OVERLINE]" xx *).join

given $rat.base-repeating

{{out}}

<pre style="overflow:auto;white-space:revert;"> 0/1 - Period is 0 : 0

=={{header|Vlang}}==

{{trans|wren}}

 

const big_ten = big.integer_from_int(10)

println('period is ${res[2]}\n')

}

{{out}}

<pre>

=={{header|Wren}}==

This is based on the Python code [http://codepad.org/hKboFPd2 here].

 

var divide = Fn.new { |m, n|

System.print("Repetend is '%(res[1])'")

System.print("Period is %(res[2])\n")

 

{{out}}