Skip to content

Instantly share code, notes, and snippets.

@joshcough

joshcough/gist:2690abfc7b63e4f72e0147f3cb4bad34

Created April 10, 2018 20:21
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save joshcough/2690abfc7b63e4f72e0147f3cb4bad34 to your computer and use it in GitHub Desktop.
Save joshcough/2690abfc7b63e4f72e0147f3cb4bad34 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
Prelude> import Data.List
Prelude Data.List> let classes = ["WM", "BM", "RM", "F", "T", "N"]
Prelude Data.List> sort . nub . fmap sort $ do {a<-classes; b<-classes; c<-classes; d<-classes; return [a,b,c,d]}
[["BM","BM","BM","BM"],["BM","BM","BM","F"],["BM","BM","BM","N"],["BM","BM","BM","RM"],["BM","BM","BM","T"],["BM","BM","BM","WM"],["BM","BM","F","F"],["BM","BM","F","N"],["BM","BM","F","RM"],["BM","BM","F","T"],["BM","BM","F","WM"],["BM","BM","N","N"],["BM","BM","N","RM"],["BM","BM","N","T"],["BM","BM","N","WM"],["BM","BM","RM","RM"],["BM","BM","RM","T"],["BM","BM","RM","WM"],["BM","BM","T","T"],["BM","BM","T","WM"],["BM","BM","WM","WM"],["BM","F","F","F"],["BM","F","F","N"],["BM","F","F","RM"],["BM","F","F","T"],["BM","F","F","WM"],["BM","F","N","N"],["BM","F","N","RM"],["BM","F","N","T"],["BM","F","N","WM"],["BM","F","RM","RM"],["BM","F","RM","T"],["BM","F","RM","WM"],["BM","F","T","T"],["BM","F","T","WM"],["BM","F","WM","WM"],["BM","N","N","N"],["BM","N","N","RM"],["BM","N","N","T"],["BM","N","N","WM"],["BM","N","RM","RM"],["BM","N","RM","T"],["BM","N","RM","WM"],["BM","N","T","T"],["BM","N","T","WM"],["BM","N","WM","WM"],["BM","RM","RM","RM"],["BM","RM","RM","T"],["BM","RM","RM","WM"],["BM","RM","T","T"],["BM","RM","T","WM"],["BM","RM","WM","WM"],["BM","T","T","T"],["BM","T","T","WM"],["BM","T","WM","WM"],["BM","WM","WM","WM"],["F","F","F","F"],["F","F","F","N"],["F","F","F","RM"],["F","F","F","T"],["F","F","F","WM"],["F","F","N","N"],["F","F","N","RM"],["F","F","N","T"],["F","F","N","WM"],["F","F","RM","RM"],["F","F","RM","T"],["F","F","RM","WM"],["F","F","T","T"],["F","F","T","WM"],["F","F","WM","WM"],["F","N","N","N"],["F","N","N","RM"],["F","N","N","T"],["F","N","N","WM"],["F","N","RM","RM"],["F","N","RM","T"],["F","N","RM","WM"],["F","N","T","T"],["F","N","T","WM"],["F","N","WM","WM"],["F","RM","RM","RM"],["F","RM","RM","T"],["F","RM","RM","WM"],["F","RM","T","T"],["F","RM","T","WM"],["F","RM","WM","WM"],["F","T","T","T"],["F","T","T","WM"],["F","T","WM","WM"],["F","WM","WM","WM"],["N","N","N","N"],["N","N","N","RM"],["N","N","N","T"],["N","N","N","WM"],["N","N","RM","RM"],["N","N","RM","T"],["N","N","RM","WM"],["N","N","T","T"],["N","N","T","WM"],["N","N","WM","WM"],["N","RM","RM","RM"],["N","RM","RM","T"],["N","RM","RM","WM"],["N","RM","T","T"],["N","RM","T","WM"],["N","RM","WM","WM"],["N","T","T","T"],["N","T","T","WM"],["N","T","WM","WM"],["N","WM","WM","WM"],["RM","RM","RM","RM"],["RM","RM","RM","T"],["RM","RM","RM","WM"],["RM","RM","T","T"],["RM","RM","T","WM"],["RM","RM","WM","WM"],["RM","T","T","T"],["RM","T","T","WM"],["RM","T","WM","WM"],["RM","WM","WM","WM"],["T","T","T","T"],["T","T","T","WM"],["T","T","WM","WM"],["T","WM","WM","WM"],["WM","WM","WM","WM"]]
Prelude Data.List> length . sort . nub . fmap sort $ do {a<-classes; b<-classes; c<-classes; d<-classes; return [a,b,c,d]}
126
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment