ASCII Stars by 51b

-module(s).
-export([m/0]).
m()->{_,[N]}=io:fread('',"~d"),L=N-1,[io:format("~*.*c
",[N+L-abs(M),N+L-abs(M)*2,$*])||M<-lists:seq(-L,L)].

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

download

return to the top page