Post History
Haskell, 110 bytes c[]=1>0 c(a:b:_)|abs(a-b)==1=1<0 c(_:b)=c b f=0:1:zipWith(+)f(tail f) h=[g|g<-f,c.map fromEnum.show$g] r=(h!!) Try it online!
Answer
#1: Initial revision
by
Andrew Ray
·
2024-09-17T18:20:00Z (2 months ago)
# [Haskell], 110 bytes ``` haskell c[]=1>0 c(a:b:_)|abs(a-b)==1=1<0 c(_:b)=c b f=0:1:zipWith(+)f(tail f) h=[g|g<-f,c.map fromEnum.show$g] r=(h!!) ``` [Try it online!][TIO-m16rc8n5] [Haskell]: https://www.haskell.org/ [TIO-m16rc8n5]: https://tio.run/##NcpBC4MgGIDhu7/iG3RQtiKvkrvtEAx23CEizDJlaWHGYPTfXdvY8eV5tVge/TjGKKua03OOJBasZQ3ZRLtgkbaEc8pp8YGG7SWhRYrnjLKXme8maHwkCgdhRlAEaV4N21Ck6iQzK2ZQfrIXt9ps0dMzGWrkOdaHA4lWGAeMQXkDTNC3OHQTAjBuXgMUKfhedNf/VLqw2@yNC5CA/12R5m8 "Haskell – Try It Online"