fixed

Pure Haskell large fixed-width integers.
git clone git://git.ppad.tech/fixed.git
Log | Files | Refs | README | LICENSE

commit a70c1ead4aa734eb5d8683d8dcbe0cd5b5319a62
parent 15d151f26d8e183fc41e392bcd76318f54a9f28f
Author: Jared Tobin <jared@jtobin.io>
Date:   Sun, 23 Nov 2025 16:07:16 +0400

bench: weigh additional formatting fixes

Diffstat:
Mbench/Weight.hs | 16++++++++++------
1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/bench/Weight.hs b/bench/Weight.hs @@ -23,15 +23,19 @@ add :: Weigh () add = wgroup "add" $ do func "curve: M(1) + M(2)" (C.add 1) 2 func "curve: M(1) + M(2 ^ 255 - 19)" (C.add 1) (2 ^ 255 - 19) - func "scalar: M(1) + M(2)" (S.add S.one) 2 - func "scalar: M(1) + M(2 ^ 255 - 19)" (S.add S.one) (2 ^ 255 - 19) + func "scalar: M(1) + M(2)" (S.add 1) 2 + func "scalar: M(1) + M(2 ^ 255 - 19)" (S.add 1) (2 ^ 255 - 19) sub :: Weigh () sub = wgroup "sub" $ do - func "curve: M(2 ^ 255 - 1) - M(1)" (C.sub (2 ^ 255 - 1)) 1 - func "curve: M(2 ^ 255 - 1) - M(2 ^ 255 - 19)" (C.sub (2 ^ 255 - 1)) (2 ^ 255 - 19) - func "scalar: M(2 ^ 255 - 1) - M(1)" (S.sub (2 ^ 255 - 1)) S.one - func "scalar: M(2 ^ 255 - 1) - M(2 ^ 255 - 19)" (S.sub (2 ^ 255 - 1)) (2 ^ 255 - 19) + func "curve: M(2 ^ 255 - 1) - M(1)" + (C.sub (2 ^ 255 - 1)) 1 + func "curve: M(2 ^ 255 - 1) - M(2 ^ 255 - 19)" + (C.sub (2 ^ 255 - 1)) (2 ^ 255 - 19) + func "scalar: M(2 ^ 255 - 1) - M(1)" + (S.sub (2 ^ 255 - 1)) 1 + func "scalar: M(2 ^ 255 - 1) - M(2 ^ 255 - 19)" + (S.sub (2 ^ 255 - 1)) (2 ^ 255 - 19) mul :: Weigh () mul = wgroup "mul" $ do