fork download 
  1. import Data.List
  2.  
  3. sample = [ ]
  4.   ++ [ [0, 1, 1, 1 ] ] 
  5.   ++ [ [0, 0, 0, 0 ] ] 
  6.   ++ [ [1, 0, 0, 1 ] ] 
  7.   ++ [ [1, 0, 1, 0 ] ] 
  8.   ++ [ [0, 0, 0, 1 ] ] 
  9.   ++ [ [0, 0, 1, 1 ] ] 
  10.   ++ [ [1, 1, 1, 0 ] ] 
  11.   ++ [ [1, 0, 0, 0 ] ] 
  12.   ++ [ [1, 1, 1, 1 ] ] 
  13.   ++ [ [0, 1, 1, 0 ] ] 
  14.   ++ [ [1, 1, 0, 0 ] ] 
  15.   ++ [ [1, 0, 1, 1 ] ] 
  16.   ++ [ [0, 1, 0, 1 ] ] 
  17.   ++ [ [1, 1, 0, 1 ] ] 
  18.   ++ [ [0, 0, 1, 0 ] ] 
  19.   ++ [ [0, 1, 0, 0 ] ] 
  20.  
  21. toDBCA [ a, b, c, d ] = [ d, b, c, a ]
  22. fromDBCA  [ d, b, c, a ] = [ a, b, c, d ]
  23.  
  24. main = do
  25.     mapM_ print $ id
  26.         $ map fromDBCA
  27.         $ sort
  28.         $ map toDBCA
  29.         $ sample
Success #stdin #stdout 0.01s 5516KB
comments (?)
stdin 
Standard input is empty
stdout 
[0,0,0,0]
[1,0,0,0]
[0,0,1,0]
[1,0,1,0]
[0,1,0,0]
[1,1,0,0]
[0,1,1,0]
[1,1,1,0]
[0,0,0,1]
[1,0,0,1]
[0,0,1,1]
[1,0,1,1]
[0,1,0,1]
[1,1,0,1]
[0,1,1,1]
[1,1,1,1]
https://ideone.com/KdiMvQ
language:
Haskell (ghc 8.4.4)
created:
1 year 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!