fork download
copy 
  1. import Data.List
  2.  
  3. allC = [ [ a, b, c ] | a<-[0..10],b<-[a+1..11],c<-[b+1..12] ]
  4.  
  5. obts = let 
  6.    act i = sort . map (( flip mod 13) . ( + i ))
  7.    obt x = sort [ act i x | i<-[0..12] ]
  8.    in nub $ map obt allC
  9.  
  10. main = do
  11.     print $ length allC
  12.     print $  length obts
Success #stdin #stdout 0.01s 5424KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
286
22
https://ideone.com/qGG44v
language:
Haskell (ghc 8.4.4)
created:
2 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!