-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).
download
return to the top page