commit d85974ee8fc05cc5ccd1726e882900f0905885db
parent 13d3657eadbfdf9e341f1add5691f6816dbefe83
Author: Jared Tobin <jared@jtobin.io>
Date: Mon, 30 Jun 2025 15:55:18 -0230
exec: neuter profile case for now
Diffstat:
| M | src/Main.hs | | | 45 | +++++++++++++++++++++++---------------------- |
1 file changed, 23 insertions(+), 22 deletions(-)
diff --git a/src/Main.hs b/src/Main.hs
@@ -7,28 +7,29 @@ import Data.Word.Extended
main :: IO ()
main = do
- let !u = PA.primArrayFromList [
- 5152276743337338587
- , 6823823105342984773
- , 12649096328525870222
- , 8811572179372364942
- ]
- !d = Word256
- 8849385646123010679
- 653197174784954101
- 1286679968202709238
- 3741537094902495500
+ 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
+ -- 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
+ -- r <- go (0 :: Int) (PA.primArrayFromList [0, 0, 0, 0])
+ -- q <- PA.unsafeFreezePrimArray quo
+ -- print r
+ -- print q
