From 9182b16e763c7bbbb08d3b14dcdf4b9ef6126bd0 Mon Sep 17 00:00:00 2001
From: Alexey Khudyakov <alexey.skladnoy@gmail.com>
Date: Sun, 5 May 2024 15:59:23 +0300
Subject: [PATCH] Delete unused benchmark

---
 bench/Quickie.hs | 13 -------------
 1 file changed, 13 deletions(-)
 delete mode 100644 bench/Quickie.hs

diff --git a/bench/Quickie.hs b/bench/Quickie.hs
deleted file mode 100644
index 2418b8f..0000000
--- a/bench/Quickie.hs
+++ /dev/null
@@ -1,13 +0,0 @@
-{-# LANGUAGE BangPatterns #-}
-import System.Random.MWC (create, uniform)
-import Control.Monad.ST (ST, runST)
-
-u :: ST s Double
-u = do
-  let last = 1000000 :: Int
-  gen <- create
-  let loop !n !i | n == last = return i
-                 | otherwise = uniform gen >>= loop (n+1)
-  loop 0 0
-
-main = print (runST u)