fork(5) download 
  1. import Data.List
  2.  
  3. main = do
  4.     print r
  5.     print $ length r
  6.  
  7. r=[l|l@[a,b,c,d,e,f,g,h,i]<-permutations [1..9],a+div (13*b)c+d+12*e-f-11+div (g*h)i-10==66&&mod(13*b)c==0&&mod (g*h)i==0]
  8.  
  9.  
Success #stdin #stdout 0.15s 5584KB
comments (?)
stdin 
Standard input is empty
stdout 
[[9,4,1,5,2,7,8,3,6],[9,4,1,5,2,7,3,8,6],[3,2,1,5,4,7,9,8,6],[3,2,1,5,4,7,8,9,6],[5,2,1,3,4,7,9,8,6],[5,2,1,3,4,7,8,9,6],[5,4,1,9,2,7,8,3,6],[5,4,1,9,2,7,3,8,6],[9,3,1,6,2,5,8,7,4],[9,3,1,6,2,5,7,8,4],[6,3,1,9,2,5,8,7,4],[6,3,1,9,2,5,7,8,4],[6,9,3,5,2,1,8,7,4],[6,9,3,5,2,1,7,8,4],[7,3,1,5,2,6,9,8,4],[7,3,1,5,2,6,8,9,4],[5,3,1,7,2,6,9,8,4],[5,3,1,7,2,6,8,9,4],[5,9,3,6,2,1,8,7,4],[5,9,3,6,2,1,7,8,4]]
20
https://ideone.com/rbgS3C
language:
Haskell (ghc 8.4.4)
created:
10 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!