SHARE
TWEET

Untitled

a guest Aug 17th, 2019 70 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. module MasterMindCodes where
  2.  
  3. main :: IO ()
  4. main = writeFile "/tmp/MasterMindCodes.txt"
  5.   . unlines
  6.   . map (unwords . map show)
  7.   $ codes
  8.  
  9. codes :: [[Int]]
  10. codes = do
  11.   a <- range
  12.   b <- range
  13.   c <- range
  14.   d <- range
  15.   pure $ [a,b,c,d]
  16.   where
  17.     range = [1..6]
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top