Skip to main content
deleted 6 characters in body
Source Link
xnor
  • 146.6k
  • 26
  • 279
  • 652

Haskell, 6057 bytes

(l!!)
l=[1..9]++do x<9]++[x*10+t|x<-l;[x*10+t|t<l,t<-[0..9],(mod x 10-t)^2==1]

Try it online!Try it online!

Haskell, 60 bytes

(l!!)
l=[1..9]++do x<-l;[x*10+t|t<-[0..9],(mod x 10-t)^2==1]

Try it online!

Haskell, 57 bytes

(l!!)
l=[1..9]++[x*10+t|x<-l,t<-[0..9],(mod x 10-t)^2==1]

Try it online!

Source Link
xnor
  • 146.6k
  • 26
  • 279
  • 652

Haskell, 60 bytes

(l!!)
l=[1..9]++do x<-l;[x*10+t|t<-[0..9],(mod x 10-t)^2==1]

Try it online!