fixed

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

commit 7938767108f3c2225e7f35470c53f08b12c44a6e
parent 3e7e4bdeddf7cd194686a863a55c99d6ed634ad8
Author: Jared Tobin <jared@jtobin.io>
Date:   Sun,  2 Nov 2025 17:40:02 +0400

lib: remove profile for the time being

Diffstat:
Mppad-fixed.cabal | 14--------------
Dsrc/Main.hs | 35-----------------------------------
2 files changed, 0 insertions(+), 49 deletions(-)

diff --git a/ppad-fixed.cabal b/ppad-fixed.cabal @@ -86,17 +86,3 @@ benchmark fixed-weigh , primitive , weigh -executable fixed-profile - default-language: Haskell2010 - hs-source-dirs: src - main-is: Main.hs - - ghc-options: - -rtsopts -O2 -Wall - - build-depends: - base - , criterion - , ppad-fixed - , primitive - diff --git a/src/Main.hs b/src/Main.hs @@ -1,35 +0,0 @@ -{-# LANGUAGE BangPatterns #-} - -module Main where - -import qualified Data.Primitive.PrimArray as PA -import Data.Word.Extended - -main :: IO () -main = do - pure () - -- let !u = PA.primArrayFromList [ - -- 5152276743337338587 - -- , 6823823105342984773 - -- , 12649096328525870222 - -- , 8811572179372364942 - -- ] - -- !d = Word256 - -- 8849385646123010679 - -- 653197174784954101 - -- 1286679968202709238 - -- 3741537094902495500 - - -- quo <- PA.newPrimArray 5 - -- let go !j _ - -- | j == 50000 = pure () - -- | otherwise = do - -- PA.setPrimArray quo 0 5 0 - -- w <- quotrem quo u d - -- go (succ j) w - - -- r <- go (0 :: Int) (PA.primArrayFromList [0, 0, 0, 0]) - -- q <- PA.unsafeFreezePrimArray quo - -- print r - -- print q -