Connect Digits by n4o847

-module test.
-export[m/0].
f([A,B|Z])->[A|if A+1<B->f([A+1,B|Z]);A-1>B->f([A-1,B|Z]);true->f([B|Z])end];f(Z)->Z.
m()->io:fwrite(f(io:get_line(""))).

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