Data commit

Task/Pathological-floating-point-problems/Crystal/pathological-floating-point-problems-1.crystal

@@ -0,0 +1,9 @@
+require "big"
+
+ar = [0.to_big_d, 2.to_big_d, -4.to_big_d]
+
+100.times { ar << 111 - 1130.to_big_d.div(ar[-1], 132) + 3000.to_big_d.div((ar[-1] * ar[-2]), 132) }
+
+[3, 4, 5, 6, 7, 8, 20, 30, 50, 100].each do |n|
+  puts "%3d -> %0.16f" % [n, ar[n]]
+end

Task/Pathological-floating-point-problems/Crystal/pathological-floating-point-problems-2.crystal

@@ -0,0 +1,9 @@
+require "big"
+
+ar = [0, 2, -4].map(&.to_big_r)
+
+100.times { ar << (111 - 1130.to_big_r / ar[-1] + 3000.to_big_r / (ar[-1] * ar[-2])) }
+
+[3, 4, 5, 6, 7, 8, 20, 30, 50, 100].each do |n|
+  puts "%3d -> %0.16f" % [n, ar[n]]
+end

Task/Pathological-floating-point-problems/Crystal/pathological-floating-point-problems-3.crystal

@@ -0,0 +1,19 @@
+require "big"
+
+def e(precision)
+  y = BigDecimal.new(10.to_big_i ** precision, precision)
+  d = y
+  i = 1
+
+  while true
+    d = (d / i).scale_to(y)
+    y2 = y + d
+    return y if y2 == y
+    y = y2
+    i += 1
+  end
+end
+
+balance = e(50) - 1
+1.upto(25) { |y| balance = (balance * y) - 1 }
+puts "Bank balance after 25 years = #{balance.to_f}"

Task/Pathological-floating-point-problems/Crystal/pathological-floating-point-problems-4.crystal

@@ -0,0 +1,7 @@
+require "big"
+
+e = 106246577894593683.to_big_d.div(39085931702241241.to_big_d)
+
+balance = e - 1
+1.upto(25) { |y| balance = (balance * y) - 1 }
+puts "Bank balance after 25 years = #{balance.to_f}"

Task/Pathological-floating-point-problems/Crystal/pathological-floating-point-problems-5.crystal

@@ -0,0 +1,8 @@
+require "big"
+
+def rump(a, b)
+  a, b = a.to_big_r, b.to_big_r
+  333.75.to_big_r * b**6 + a**2 * (11 * a**2 * b**2 - b**6 - 121 * b**4 - 2) + 5.5.to_big_r * b**8 + a / (2 * b)
+end
+
+puts "rump(77617, 33096) = #{rump(77617, 33096).to_f}"