#!/usr/bin/perl

use strict;
use warnings;
divide(1,18);
for (my $i=1; $i<20; ++$i) {
	print "1/",$i,"=",divide(1,$i),"\n";
}

sub divide {
	my ($z,$n)= @_;
	my (
		%rec,
		$rem,
		$res,
	);
	my $dig= '';
	$res= int($z/$n);
	$z-= $res*$n;
	while ($z) {
		$z*=10;
		$rem= $z % $n;
		$dig.= int($z/$n);
		if (defined $rec{$rem}) {
			my $p= $rec{$rem};
			if ($p>0 and substr($dig,$p-1,1) eq substr($dig,-1)) {
				substr($dig,-1,1)='';
				--$p;
			}
			return $res. "." . substr($dig,0,$p)."p".substr($dig,$p);
		}
		$rec{$rem}= length($dig);
		$z= $rem;
	}
	return $res . "." . $dig;
}