-module m. -export[m/0]. m()->G={io,get_line},[C|S]=string:to_upper(G("")),G([C,[[B,C]||B<-" ",C<-S]]).
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page