Connect Digits by %20 (Kombu,akouryy)

-module n.
-export[m/0].
m()->G={io,get_line},G(f(G(""))).
f([A,B|T])when abs(A-B)>1->f([A,(A+B)div 2,B|T]);f([H|T])->[H|f(T)];f(A)->A.

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

To protect the system from spam, please input your favorite sport (hint: I believe its name must start with 'g', case insensitive)

download

return to the top page