Integer long division: Difference between revisions
m
→{{header|Perl}}: cosmetic upgrade
m (→{{header|Phix}}: Use proper English) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: cosmetic upgrade) |
||
Line 203:
<lang perl>use strict;
use warnings;
use utf8;
binmode(STDOUT, ':utf8');
sub long_division {
Line 223 ⟶ 225:
my $period = length($fraction) - $seen{$numerator};
substr
$period, $negative . $fraction
}
Line 230 ⟶ 232:
for <0/1 1/1 1/5 1/3 -1/3 1/7 -83/60 1/17 10/13 3227/555 1/149></lang>
{{out}}
<pre> 0/1 Period is 0 : 0
1/1 Period is 0 : 1
1/5 Period is 0 : 0.2
1/3 Period is 1 : 0.
-1/3 Period is 1 : -0.
1/7 Period is 6 : 0.
-83/60 Period is
1/17 Period is 16 : 0.
10/13 Period is 6 : 0.
3227/555 Period is
476837158203125/9223372036854775808 Period is 0 : 0.0000516987882845642321427703791414387524127960205078125
1/149 Period is 148 : 0.0̅0̅6̅7̅1̅1̅4̅0̅9̅3̅9̅5̅9̅7̅3̅1̅5̅4̅3̅6̅2̅4̅1̅6̅1̅0̅7̅3̅8̅2̅5̅5̅0̅3̅3̅5̅5̅7̅0̅4̅6̅9̅7̅9̅8̅6̅5̅7̅7̅1̅8̅1̅2̅0̅8̅0̅5̅3̅6̅9̅1̅2̅7̅5̅1̅6̅7̅7̅8̅5̅2̅3̅4̅8̅9̅9̅3̅2̅8̅8̅5̅9̅0̅6̅0̅4̅0̅2̅6̅8̅4̅5̅6̅3̅7̅5̅8̅3̅8̅9̅2̅6̅1̅7̅4̅4̅9̅6̅6̅4̅4̅2̅9̅5̅3̅0̅2̅0̅1̅3̅4̅2̅2̅8̅1̅8̅7̅9̅1̅9̅4̅6̅3̅0̅8̅7̅2̅4̅8̅3̅2̅2̅1̅4̅7̅6̅5̅1̅</pre>
=={{header|Phix}}==
| |||