From 01eeffd2a4e768a993e4eb38500663aee26b703f Mon Sep 17 00:00:00 2001 From: SinTan1729 Date: Sun, 26 May 2024 00:36:26 -0500 Subject: [PATCH] chg: Only import the required functions --- Problems 21-28/problem_23.hs | 4 ++-- Problems 21-28/problem_24.hs | 4 ++-- Problems 21-28/problem_25.hs | 4 ++-- Problems 21-28/problem_27.hs | 2 +- Problems 21-28/problem_28.hs | 2 +- 5 files changed, 8 insertions(+), 8 deletions(-) diff --git a/Problems 21-28/problem_23.hs b/Problems 21-28/problem_23.hs index 2d572e2..5ceca86 100644 --- a/Problems 21-28/problem_23.hs +++ b/Problems 21-28/problem_23.hs @@ -1,5 +1,5 @@ -import Data.List -import System.Random +import Data.List (nub) +import System.Random (getStdGen, randomRs) rndSelect :: [a] -> Int -> IO [a] rndSelect ls n = do diff --git a/Problems 21-28/problem_24.hs b/Problems 21-28/problem_24.hs index 36fc5cf..906cd1d 100644 --- a/Problems 21-28/problem_24.hs +++ b/Problems 21-28/problem_24.hs @@ -1,5 +1,5 @@ -import Data.List -import System.Random +import Data.List (nub) +import System.Random (getStdGen, randomRs) diffSelect :: Int -> Int -> IO [Int] diffSelect n m = do diff --git a/Problems 21-28/problem_25.hs b/Problems 21-28/problem_25.hs index 17b3f7a..ec73e9c 100644 --- a/Problems 21-28/problem_25.hs +++ b/Problems 21-28/problem_25.hs @@ -1,5 +1,5 @@ -import Data.List -import System.Random +import Data.List (nub) +import System.Random (getStdGen, randomRs) rndPermu :: [a] -> IO [a] rndPermu ls = do diff --git a/Problems 21-28/problem_27.hs b/Problems 21-28/problem_27.hs index 46f5aac..698adcd 100644 --- a/Problems 21-28/problem_27.hs +++ b/Problems 21-28/problem_27.hs @@ -1,4 +1,4 @@ -import Data.List +import Data.List (groupBy, nub, permutations, sortBy) group' :: [Int] -> [a] -> [[[a]]] group' ln ls = map ((([([fst] <*>)] <*>) . groupBy grouper . sortBy sorter) . zip ls) (nub (permutations placers)) diff --git a/Problems 21-28/problem_28.hs b/Problems 21-28/problem_28.hs index f5d38dc..d472ecf 100644 --- a/Problems 21-28/problem_28.hs +++ b/Problems 21-28/problem_28.hs @@ -1,4 +1,4 @@ -import Data.List +import Data.List (sortBy) lsort :: [[a]] -> [[a]] lsort = sortBy (\x y -> length x `compare` length y)