(потому что в гхци потестил уже)

списки ленивые, так что если ты явно не зафорсишь вычисление, то в любом случае будет лениво

мне всё больше нравится ленивость хаскеля

В самом начале плевался от неё потому что попалось несколько алгов со спейс ликом, а сейчас норм, чё

а что ты на нём пишешь?

Пока просто алгоритмики и задачки

ну, всё, ГПСЧ готов

ну и все, засовывай это в стейт, получай

type Seed = Int
type Random = State Seed

random' :: Seed -> (Int, Seed)

runRandom :: Seed -> Random a -> a
runRandom = flip evalState

randomInt :: Random Int
randomInt = state random'

randomBy :: Int -> Random Int
randomBy n = fmap (\x -> rem x n) randomInt

randomOf :: [a] -> Random a
randomOf xs = do
 i <- randomBy (length xs)
 pure (xs !! i)

randomChar :: Random Char
randomChar = randomOf ['a'..'z']

randomString :: Random String
randomString = do
 len <- randomBy 50
 replicateM len randomChar

data User = User { name :: String, age :: Int }

randomUser :: Random User
randomUser = do
 name <- randomString
 age <- randomBy 30 -- старше людей не бывает
 pure User {name, age}

generateUsers :: IO [User]
generateUsers = do
 seed <- read <$> readFile "/dev/urandom" -- или как там это сделать правильно
 pure $ runRandom seed (replicateM 10 randomUser)

нифига ты выдал

Привыкай, это кана

Ему похоже на работе платят за решение чужих проблем в чате)

консалтинг все таки

да я просто функцию написал, которая рандом лист интов генерит...

кстати, я не заметил, что у тебя функция возвращает список, а не пару

если обобщишь до пары, то список бесплатно получишь через repilcateM

ну и все что выше тоже полубесплатно благодаря стейту

State это типа паттерна такого? Потому что я не понял, чё ты от меня хошь

да вон выше в коде я заюзал state

отвратная статья какая-то

попробуй со своей функцией построить генератор юзеров, или еще каких-нибудь структур