Skip to content
Snippets Groups Projects

real/rsa run-time adjusted.

Merged Benjamin Maurer requested to merge cptwunderlich/nofib:bmaurer/real-rsa-times into master
7 files
+ 479
201
Compare changes
  • Side-by-side
  • Inline
Files
7
+ 3
1
@@ -7,8 +7,10 @@ import System.Environment
import NofibUtils
main = do
(iters:_) <- getArgs
let n = read iters :: Int
input <- getContents
replicateM_ 100 $ do
replicateM_ n $ do
input' <- salt input
print (hash (encrypt 2036450659413645137870851576872812267542175329986469156678671505255564383842535488743101632280716717779536712424613501441720195827856504007305662157107
387784473137902876992546516170169092918207676456888779623592396031349415024943784869634893342729620092877891356118467738167515879252473323905128540213
Loading