fork download 
  1. xs = [ [x,y,z] | x <- [1..11], y <- [x+1..11], z <- [y+1..11], x*y*z`mod`7 == 0]
  2. main = print (length xs) >> mapM_ print xs
Success #stdin #stdout 0s 6272KB
comments (?)
stdin 
Standard input is empty
stdout 
45
[1,2,7]
[1,3,7]
[1,4,7]
[1,5,7]
[1,6,7]
[1,7,8]
[1,7,9]
[1,7,10]
[1,7,11]
[2,3,7]
[2,4,7]
[2,5,7]
[2,6,7]
[2,7,8]
[2,7,9]
[2,7,10]
[2,7,11]
[3,4,7]
[3,5,7]
[3,6,7]
[3,7,8]
[3,7,9]
[3,7,10]
[3,7,11]
[4,5,7]
[4,6,7]
[4,7,8]
[4,7,9]
[4,7,10]
[4,7,11]
[5,6,7]
[5,7,8]
[5,7,9]
[5,7,10]
[5,7,11]
[6,7,8]
[6,7,9]
[6,7,10]
[6,7,11]
[7,8,9]
[7,8,10]
[7,8,11]
[7,9,10]
[7,9,11]
[7,10,11]
https://ideone.com/uDTFqn
language:
Haskell (ghc 8.4.4)
created:
11 years ago
visibility:
secret

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!