fork download
  1. object Main extends App {
  2. def p(a: String,b: String)={type D=List[Char]
  3. val d="0123456789".toList
  4. def v(s: String)=s.toList.map{c⇒d.takeWhile(c.!=)}
  5. def u(l:D, a:D):(Char,D)=l match {
  6. case _::_::_::_::_::_::_::_::_::_::m⇒u(m,'a'::a)
  7. case _(('a'::l).zip(d).last._2,a)}
  8. val o=(("", List[Char]())/:v(a).tails.toList.init.map{l⇒(v(b) map {_.flatMap(_⇒l.head)})++l.tail.map(_⇒Nil) reverse}.reduce(_.zipAll(_, Nil, Nil).map{t⇒t._1++t._2}))({(t,e)val s=u(t._2++e,Nil);(s._1+t._1,s._2)})
  9. u(o._2, Nil)._1+o._1}
  10. }
Success #stdin #stdout 0.23s 381760KB
stdin
Standard input is empty
stdout
Standard output is empty