forked from manwar/perlweeklychallenge-club
/
ch-2.rb
42 lines (32 loc) · 894 Bytes
/
ch-2.rb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
#!/usr/bin/ruby
#
# See ../README.md
#
#
# Run as: ruby ch-2.rb < input-file
#
#
# See ../README.md for details about this method
#
def long_division (numerator, denominator)
base = 10
fraction = (numerator / denominator) . to_s + "."
position = fraction . length
seen = {}
numerator %= denominator
while !seen [numerator] do
if numerator == 0
then return (fraction)
end
seen [numerator] = position
fraction += (base * numerator / denominator) . to_s
numerator = base * numerator % denominator
position += 1
end
return (fraction [0 .. seen [numerator] - 1] + "(" +
fraction [ seen [numerator] .. -1] + ")")
end
ARGF . each_line do |_|
numerator, denominator = _ . split (/\s+/)
puts (long_division numerator . to_i, denominator . to_i)
end