fork(1) download
copy 
  1. pure a = [a] -- pure is part of the standard library in GHC 7.10; Ideone uses the outdated GHC 7.8
  2.  
  3. f=any(all(\(a,b:c)->1>mod(a!!1-b)4).(zip=<<tail)).mapM((\a->[[a,a+1],[a+1,a]]).read.pure)
  4.  
  5. main = print $ map f ["1","1234","1221","3333","143332","22234","2234","22214","1221441","41233","13","1224","121","12221","43221"]
  6.  
Success #stdin #stdout 0s 4752KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[True,True,True,True,True,True,True,True,True,True,False,False,False,False,False]
https://ideone.com/mVASck
language:
Haskell (ghc 8.4.4)
created:
8 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!