Skip to main content
deleted 1 character in body
Source Link
nimi
  • 35.9k
  • 4
  • 34
  • 99

Haskell, 85 81 7979 77 bytes

([h++'-':n++'-':t|h<-cq"AZ",t<-cq"AZ",n<-q"099"]!!)
q g@(a:b:_)=mapMg=mapM(\_->[a>[g!!0..b]g!!1])g
c=q"AZ"

Try it online!Try it online!

Haskell, 85 81 79 bytes

([h++'-':n++'-':t|h<-c,t<-c,n<-q"099"]!!)
q g@(a:b:_)=mapM(\_->[a..b])g
c=q"AZ"

Try it online!

Haskell, 85 81 79 77 bytes

([h++'-':n++'-':t|h<-q"AZ",t<-q"AZ",n<-q"099"]!!)
q g=mapM(\_->[g!!0..g!!1])g

Try it online!

added 8 characters in body
Source Link
nimi
  • 35.9k
  • 4
  • 34
  • 99

Haskell, 8585 81 79 bytes

([h++'-':n++'-':t|h<-c,t<-c,n<-m$['0'..'9']<$"aaa"]q"099"]!!)
m=mapMq id
c=m$['A'g@(a:b:_)=mapM(\_->[a..'Z']<$"aa"b])g
c=q"AZ"

Try it online!Try it online!

Haskell, 85 bytes

([h++'-':n++'-':t|h<-c,t<-c,n<-m$['0'..'9']<$"aaa"]!!)
m=mapM id
c=m$['A'..'Z']<$"aa"

Try it online!

Haskell, 85 81 79 bytes

([h++'-':n++'-':t|h<-c,t<-c,n<-q"099"]!!)
q g@(a:b:_)=mapM(\_->[a..b])g
c=q"AZ"

Try it online!

Source Link
nimi
  • 35.9k
  • 4
  • 34
  • 99

Haskell, 85 bytes

([h++'-':n++'-':t|h<-c,t<-c,n<-m$['0'..'9']<$"aaa"]!!)
m=mapM id
c=m$['A'..'Z']<$"aa"

Try it online!