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

Отдельные люди отличные вещи делают на Elm, несмотря на то что он "игрушечный" и "вообще никакой". Опять же популяризации полезных идей язык способствует. Пусть даже эльмосообщество и полннится громкими неосиляторами, скандирующими "матан нинужен".

кстати длинные числа где-то в недрах типов для векторизации есть

через фмап в фмапе должно разрулить

через фмап в фмапе должно разрулить

задание для читателя: дописать сигнатуры функций Запустить: https://ideone.com/TCeSp3

задание для читателя: дописать сигнатуры функций Запустить: https://ideone.com/TCeSp3

в чем подвох-то? Без него задание слишком тривиально

конечно, жаль, что нет в стандартной библиотеке функции для списка случайных int

import System.Random (randomRIO) import Control.Monad (replicateM) data Pair = P Int Int deriving Show randIntList m = replicateM m $ randomRIO (1,10::Int) createRandomPairs m = zipWith P <$> randIntList m <*> randIntList m n = 5 main = createRandomPairs n >>= print

Есть же randoms и randomRs

кстати, sequence . replicate m = replicateM m

Для нетаскания генераторов есть Control.Monad.Random.

кстати, sequence . replicate m = replicateM m

Добрый день! У меня тут нубский вопрос. Есть у меня ADT, который хранит в себе 2 инта. И мне надо сделать n таких ADT, каждый инт в которых будет случайным.

честно говоря, лень идти смотреть. Если бы вы привели пример, было бы прекрасно!

честно говоря, лень идти смотреть. Если бы вы привели пример, было бы прекрасно!

Лениво. В документации всё есть.

Приведённые выше решения правильные. Но я для рандома рекомендую использовать библиотеку cryptonite, потому что random — это ненастоящий рандом. Так, для детишек поиграться. А если хочется настоящую псевдослучайность, то лучше использовать cryptonite. Приведу пример кода в ghci, как решить эту проблему с более хорошей библиотекой: ghci> import Crypto.Random ghci> import Crypto.Number.Generate ghci> -- напишем функцию, которая принимает дествие в монаде рандом и выполняет его, создавая генератор в монаде IO ghci> evalRandom randomAction = drgNew >>= \gen -> pure $ fst $ withDRG gen randomAction ghci> :t evalRandom evalRandom :: MonadRandom m => MonadPseudoRandom ChaChaDRG b -> m b ghci> -- объявим генератор типа данных Line ghci> data Line = Line Integer Integer deriving Show ghci> genLine = Line <$> generateMax 100 <*> generateMax 100 ghci> :t genLine genLine :: MonadRandom f => f Line ghci> -- напишем функцию, которая принимает число n и генерирует n строчек ghci> import Control.Monad ghci> genNLines n = replicateM n genLine ghci> :t genNLines genNLines :: MonadRandom m => Int -> m [Line] ghci> -- а теперь запутим наши функции в REPL'е, чтобы посмотреть результат ghci> evalRandom $ genNLines 5 [Line 16 99,Line 23 72,Line 19 79,Line 27 24,Line 92 18] ghci> evalRandom $ genNLines 3 [Line 17 51,Line 58 70,Line 8 72]

Собственно, посмотрев на код одного из предыдущих ораторов, наклепал такое: import System.Random (randomRIO) data Line = Line { start :: Int, end :: Int } deriving (Show) randomInt :: IO Int randomInt = randomRIO (-10, 10) generateNLines n = sequence $ replicate n $ Line <$> randomInt <*> randomInt

да, это лучше, чем у меня было с zipWith, здорово!

Отдельные люди отличные вещи делают на Elm, несмотря на то что он "игрушечный" и "вообще никакой". Опять же популяризации полезных идей язык способствует. Пусть даже эльмосообщество и полннится громкими неосиляторами, скандирующими "матан нинужен".

Приведённые выше решения правильные. Но я для рандома рекомендую использовать библиотеку cryptonite, потому что random — это ненастоящий рандом. Так, для детишек поиграться. А если хочется настоящую псевдослучайность, то лучше использовать cryptonite. Приведу пример кода в ghci, как решить эту проблему с более хорошей библиотекой: ghci> import Crypto.Random ghci> import Crypto.Number.Generate ghci> -- напишем функцию, которая принимает дествие в монаде рандом и выполняет его, создавая генератор в монаде IO ghci> evalRandom randomAction = drgNew >>= \gen -> pure $ fst $ withDRG gen randomAction ghci> :t evalRandom evalRandom :: MonadRandom m => MonadPseudoRandom ChaChaDRG b -> m b ghci> -- объявим генератор типа данных Line ghci> data Line = Line Integer Integer deriving Show ghci> genLine = Line <$> generateMax 100 <*> generateMax 100 ghci> :t genLine genLine :: MonadRandom f => f Line ghci> -- напишем функцию, которая принимает число n и генерирует n строчек ghci> import Control.Monad ghci> genNLines n = replicateM n genLine ghci> :t genNLines genNLines :: MonadRandom m => Int -> m [Line] ghci> -- а теперь запутим наши функции в REPL'е, чтобы посмотреть результат ghci> evalRandom $ genNLines 5 [Line 16 99,Line 23 72,Line 19 79,Line 27 24,Line 92 18] ghci> evalRandom $ genNLines 3 [Line 17 51,Line 58 70,Line 8 72]