From eddac153a064648bee2aef6fb733ab6820bb96c3 Mon Sep 17 00:00:00 2001 From: Shinya Sato Date: Thu, 28 Apr 2022 21:41:58 +0900 Subject: v0.8.2 --- comparison/Haskell/msort-800000.hs | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'comparison/Haskell/msort-800000.hs') diff --git a/comparison/Haskell/msort-800000.hs b/comparison/Haskell/msort-800000.hs index eb1a24d..65a5807 100644 --- a/comparison/Haskell/msort-800000.hs +++ b/comparison/Haskell/msort-800000.hs @@ -28,6 +28,7 @@ msort xs = merge (msort m, msort n) main = print $ msort [3,2,8,5] -} + randomList :: Int -> IO([Int]) randomList 0 = return [] randomList n = do @@ -36,10 +37,15 @@ randomList n = do return (r:rs) +validation [] = True +validation (x:xs) = validation_cons x xs +validation_cons x [] = True +validation_cons x (y:ys) = + if x<=y then validation_cons y ys + else False + main = do list <- randomList 800000 let sorted = msort list - print (take 10 sorted) - - + print (validation sorted) -- cgit v1.2.3