From 4c53cbc9a631238ad47ab9917c00049314f45fd1 Mon Sep 17 00:00:00 2001 From: Justin Bedo Date: Fri, 20 Jan 2023 15:10:25 +1100 Subject: bump ppl --- bin/cluster.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'bin') diff --git a/bin/cluster.hs b/bin/cluster.hs index 0a7a438..3eee95a 100644 --- a/bin/cluster.hs +++ b/bin/cluster.hs @@ -132,7 +132,7 @@ run opts = do (hdr : lines) <- lines <$> readFile (input opts) let dbl = round . read :: String -> Int parsed <- compact $ map (map dbl . tail . words) lines - ((ps, cl), _) <- foldl1' (\a c -> if mml a < mml c then a else c) . take (nsamples opts) <$> mh (mhfrac opts) (model $ getCompact parsed) + ((ps, cl), _) <- foldl1' (\a c -> if mml a < mml c then a else c) . take (nsamples opts) <$> mh (mhfrac opts) 0.5 (model $ getCompact parsed) writeFile (propsPath opts) . unlines $ map (intercalate "," . map show) ps writeFile (clusterPath opts) . unlines $ map show cl when (dotPath opts /= "") $ drawGraph (dotPath opts) ps cl -- cgit v1.2.3