haskell: Phase 10 — Fractional stub: recip + fromRational (+3 tests, 31/31)

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
2026-05-07 08:23:04 +00:00
parent ef33e9a43a
commit e27daee4a8
3 changed files with 21 additions and 1 deletions
--- a/lib/haskell/tests/numerics.sx
+++ b/lib/haskell/tests/numerics.sx
@@ -156,4 +156,13 @@
  (hk-deep-force (hk-run "main = truncate (negate 3.7)"))
  -3)

+(hk-test "recip 4.0 = 0.25" (hk-deep-force (hk-run "main = recip 4.0")) 0.25)
+
+(hk-test "1.0 / 4.0 = 0.25" (hk-deep-force (hk-run "main = 1.0 / 4.0")) 0.25)
+
+(hk-test
+  "fromRational 0.5 = 0.5 (identity)"
+  (hk-deep-force (hk-run "main = fromRational 0.5"))
+  0.5)
+
 {:fails hk-test-fails :pass hk-test-pass :fail hk-test-fail}