Return to Answer

deleted 10 characters in body

edited May 16, 2017 at 13:25

Haskell, 3939 37 36 bytes

(a:t)#n=any(==n)(map#n=n`elem`map(a+)t)||t#nt||t#n _#n=1<0

Try it online!Try it online! Example usage: [1,3,2,5] # 3. Returns True or False.

40 byte alternativeAlternative (also 36 bytes)

f(a:t)=map(a+)t++f t f e=e (.f).any.(==)elem

(a:t)#n=any(==n)(map(a+)t)||t#n _#n=1<0

Try it online! Example usage: [1,3,2,5] # 3. Returns True or False.

40 byte alternative

f(a:t)=map(a+)t++f t f e=e (.f).any.(==)

(a:t)#n=n`elem`map(a+)t||t#n _#n=1<0

Try it online! Example usage: [1,3,2,5] # 3. Returns True or False.

Alternative (also 36 bytes)

f(a:t)=map(a+)t++f t f e=e (.f).elem

answered May 16, 2017 at 13:19

(a:t)#n=any(==n)(map(a+)t)||t#n _#n=1<0

Try it online! Example usage: [1,3,2,5] # 3. Returns True or False.

40 byte alternative

f(a:t)=map(a+)t++f t f e=e (.f).any.(==)