fork(2) download
copy 
  1. import System.Environment
  2. (%)=(,)
  3. a n=[x%y|x<-n,y<-n,x<y]
  4. s[]=[[]]
  5. s[m]=[[m]]
  6. s((x,y):(z,w):l)|x==z||x==w||y==z||y==w=s(x%y:l++[z%w])|0<1=[x%y:q|q<-s(z%w:l)]
  7. main=do g<-getArgs;print$head$s$a[1..read$g!!0::Int]
stdin
copy 
Standard input is empty
compilation info 
[1 of 1] Compiling Main             ( prog.hs, prog.o )
Linking prog ...
stdout
copy 
Standard output is empty
https://ideone.com/4NfWV
language:
Haskell (ghc 8.4.4)
created:
12 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!