fork download
copy 
  1. -- http://c...content-available-to-author-only...e.com/questions/58100/drop-of-chaos-constructing-a-minimally-aperiodic-sequence/59589#59589
  2.  
  3. x?_|or[t x==t(drop i x)|i<-[1..length x],t<-[take$div(i+1)2]]=[]
  4. x?0=[x]
  5. x?n=(?(n-1)).(:x)=<<"0123"
  6. f=reverse.head.([]?)
  7.  
  8. main=putStr(f 1000)
Success #stdin #stdout 0.92s 4688KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
0120310213012310320130210312013210230120310213201230210312013023103201230213203102301203210231201302103123013203102130120321023013203123021032012310213012031023013203123021320123103213012031021320123021031201302310320123021320310230120321023120130210320123021320312301321023120130210312301320310213012032102301320312302103201231021301203102301321031201302103201230213203102301203210231201302103123013203102130120321023013203123021320123102130120310230132103120130210320123021320312301321023120130210312301320310213012032102301320312302103201231021301203102301320312302132012310321301203102132012302103120130231032012302132031023012032102312013021031230132031021301203210230132031230210320123102130120321023120130210312301320310230120321023120132103123021320123102130120310230132031230210320123102130120321023013203102130123103201302103120132102301203102130123103213023120132102301203213023103201230210312013023103213012031021320123021031201321023012031021301231032013021031201321023120321301231021320
https://ideone.com/ZtVE56
language:
Haskell (ghc 8.4.4)
created:
8 years ago
visibility:
public

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!