fork download
copy 
  1. import Data.List
  2.  
  3. main = print . filter test $ perm 5 [1..10]
  4.  
  5. test xs = all (\x -> Nothing /= elemIndex x ns) [1..21]
  6. 	where ns = map sum . filter ((<=5) . length) . concatMap tails . inits $ xs ++ xs
  7.  
  8. perm 0 _ = [[]]
  9. perm n xs = concatMap (\x -> map (x :) $ perm (n - 1) (delete x xs)) xs
  10.  
Success #stdin #stdout 0.41s 5624KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[[1,3,10,2,5],[1,5,2,10,3],[2,5,1,3,10],[2,10,3,1,5],[3,1,5,2,10],[3,10,2,5,1],[5,1,3,10,2],[5,2,10,3,1],[10,2,5,1,3],[10,3,1,5,2]]
https://ideone.com/zB2bTl
http://p...content-available-to-author-only...h.net/test/read.cgi/tech/1418278634/892
language:
Haskell (ghc 8.4.4)
created:
9 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!