fork download
copy 
  1. import Data.List
  2.  
  3. main = print $ map solve
  4. 	[([1,2,3],[5,6,7]),
  5. 	([1,1,1],[1,1,2]),
  6. 	([1,1,2],[2,2,1]),
  7. 	([9,8,9],[8,6,4]),
  8. 	([9,7,2],[2,2,9])]
  9.  
  10. solve (a, b) = 1 == length (a \\ b)
  11.  
Success #stdin #stdout 0s 6224KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[False,True,True,False,True]
https://ideone.com/xRdMin
language:
Haskell (ghc 8.4.4)
created:
10 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!